#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