topic-4899

Posts: 334

Joined: Fri Oct 14, 2005 01:54 PM

txbrowse from code
Posted: Sat Nov 11, 2006 01:49 PM

I am trying to build a dialog of txbrowse and I don't know what is missing ?

STATIC FUNCTION NewDialog( oWnd )

   local oDlg, oBrw, oCol

   oBrw := TXBrowse():New( oWnd )

   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE "Customer browse "
   oBrw:CreateFromCode()
   ACTIVATE DIALOG oDlg

RETURN NIL

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

txbrowse from code
Posted: Sat Nov 11, 2006 03:17 PM

Code: Select all Collapse

STATIC FUNCTION NewDialog( oWnd )

   local oDlg, oBrw, oCol

   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE "Customer browse "

   ACTIVATE DIALOG oDlg ;
      ON INIT oBrw := BuildBrowse( oDlg )

RETURN NIL 

function BuildBrowse( oWnd )
   
   local oBrw := TXBrowse():New( oWnd )

   oBrw:CreateFromCode()

return oBrw

regards, saludos

Antonio Linares
www.fivetechsoft.com

Ehab Samir Aziz

Posts: 334

Joined: Fri Oct 14, 2005 01:54 PM

txbrowse from code
Posted: Sat Nov 11, 2006 07:20 PM

How can I fill the dialog with the columns of txbrowse ?

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

txbrowse from code
Posted: Sat Nov 11, 2006 07:35 PM

Try oDlg:oClient := oBrw

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Ehab Samir Aziz

Posts: 334

Joined: Fri Oct 14, 2005 01:54 PM

txbrowse from code
Posted: Sat Nov 11, 2006 08:01 PM

No Not work I tried it before . I think the code should be like this . I mean BuildBrowse does not know nothing about oWnd.

Code: Select all Collapse

STATIC FUNCTION NewDialog( oWnd ) 

   local oDlg, oBrw, oCol 

   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE "Customer browse " 

   ACTIVATE DIALOG oDlg ; 
      ON INIT oBrw := BuildBrowse( oDlg ) 

RETURN NIL 

function BuildBrowse( oDlg ) 
    
   local oBrw := TXBrowse():New( oDlg ) 

   oBrw:CreateFromCode() 
   oDlg:oClient:=oBrw

return oBrw

Ehab Samir Aziz

Posts: 334

Joined: Fri Oct 14, 2005 01:54 PM

txbrowse from code
Posted: Wed Nov 15, 2006 06:23 AM

Adding buttons in such way overlaps the columns of xbrowse .

Code: Select all Collapse

STATIC FUNCTION NewDialog( oWnd ) 

   local oDlg, oBrw, oCol 

   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE "Customer browse "


   ACTIVATE DIALOG oDlg ;
      ON INIT oBrw := BuildBrowse( oDlg )



RETURN NIL 

function BuildBrowse( oDlg ) 
    
   local oBrw := TXBrowse():New( oDlg ) 

  oBrw:CreateFromCode()
  oDlg:oClient:=oBrw

  oDlg:ReSize()

   @ 17,   1 BUTTON "&New"    OF oDlg SIZE 40, 12 //ACTION Editcust( oLbx, .t. )
   @ 17,  8 BUTTON "&Modify" OF oDlg SIZE 40, 12 //ACTION Editcust( oLbx, .f. )
   @ 17, 15 BUTTON "&Delete" OF oDlg  SIZE 40, 12 //ACTION Delrecord( oLbx )
   @ 17, 22 BUTTON "&Search" OF oDlg SIZE 40, 12 //ACTION SeekCust( oLbx )
   @ 17, 29 BUTTON "&Print"  OF oDlg 
      //ACTION oLbx:Report( "Customers  Report", .t. ) ;  // .t. --> wants preview
      //SIZE 40, 12
   @ 17, 36 BUTTON "&Exit"   OF oDlg //ACTION oDlg:End() SIZE 40, 12

   @ 18,  1 BUTTON "&Order"    OF oDlg //ACTION ordercust(oLbx) SIZE 40, 12
   @ 18,  8 BUTTON "&Filter"    OF oDlg //ACTION filtercust(oLbx) SIZE 40, 12
   @ 18,  15 BUTTON "&Unfilter" OF oDlg //ACTION Nonfiltercust(oLbx) SIZE 40, 12

return oBrw

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

txbrowse from code
Posted: Wed Nov 15, 2006 08:45 AM

Ehab,

Thats because you are using oDlg:oClient:=oBrw and that means to use the entire dialog area.

You may change oDlg:oClient:=oBrw into:

oBrw:nTop = ...
oBrw:nLeft = ...
oBrw:nWidth = ...
oBrw:nHeight = ...

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion