FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Multiple xbrowse's in same dialog??
Posts: 27
Joined: Fri Jan 11, 2008 09:58 PM
Multiple xbrowse's in same dialog??
Posted: Wed Apr 11, 2012 09:28 PM

I am trying to browse 3 different DBF Files in one Dialog.
Does anyone have a sample of this?? I have tried several different browse classes but have not got any to work properly.
I am using xHarbour and FWH.
I would like to use the Txbrowse Class if possible.

Thanks, Brad.

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Multiple xbrowse's in same dialog??
Posted: Thu Apr 12, 2012 04:16 AM
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Multiple xbrowse's in same dialog??
Posted: Thu Apr 12, 2012 04:46 AM
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "xBrowse.ch"

//------------------//
Function Main()
    Local oDlg,oBrw1,oBrw2,oBrw3

    USE \FWH\SAmples\Customer NEW
    USE \FWH\Samples\Clients NEW
    USE \FWH\Samples\Part NEW    
    
    DEFINE DIALOG oDlg TITLE "Multiple xBrowse" FROM 1,1 to 500,900 PIXEL
    
        @1,1 XBROWSE oBrw1 OF oDlg PIXEL SIZE 150,250;
            ALIAS "Customer"
        oBrw1:CreateFromCode()        
            
        @1,150 XBROWSE oBrw2 OF oDlg PIXEL SIZE 150,250;
            ALIAS "Clients"
        oBrw2:CreateFromCode()                
            
        @1,300 XBROWSE oBrw3 OF oDlg PIXEL SIZE 150,250 ;
            ALIAS "Part"
        oBrw3:CreateFromCode()                
    
    ACTIVATE DIALOG oDlg
    
    CLOSE DATABASES

Return NIL


Regards
Anser

Continue the discussion