Can I use the window handle of FASTREPORT preview in xbase dialog?
Posted: Fri Feb 03, 2023 4:13 am
Hi all
Can I use the window handle of FASTREPORT preview in xbase dialog? to create a busy window like:
FUNCTION CreateBusyWindow(oPrg)
LOCAL GetList[0], GetOptions, oBusyDlg
@ 0,0 DCSAY 'Please wait...' SAYSIZE 0 FONT '20.Arial Bold'
@ 2,1 DCSAY 'Counting Pages:' SAYSIZE 25 FONT '13.Arial'
@ DCGUI_ROW, DCGUI_COL + 10 DCSAY '' SAYSIZE 10 FONT '16.Arial Bold' ;
COLOR GRA_CLR_BLUE OBJECT oPrg:oProgressStatic
DCGETOPTIONS NOTITLEBAR COLOR GRA_CLR_YELLOW
DCREAD GUI ;
FIT MODAL;
EXIT ;
PARENT DialogHandle("TfrxPreviewForm"); // @oBusyDlg ;
OWNER DialogHandle("TfrxPreviewForm");
OPTIONS GetOptions
RETURN nil //oBusyDlg
Thanks
Joe
Can I use the window handle of FASTREPORT preview in xbase dialog? to create a busy window like:
FUNCTION CreateBusyWindow(oPrg)
LOCAL GetList[0], GetOptions, oBusyDlg
@ 0,0 DCSAY 'Please wait...' SAYSIZE 0 FONT '20.Arial Bold'
@ 2,1 DCSAY 'Counting Pages:' SAYSIZE 25 FONT '13.Arial'
@ DCGUI_ROW, DCGUI_COL + 10 DCSAY '' SAYSIZE 10 FONT '16.Arial Bold' ;
COLOR GRA_CLR_BLUE OBJECT oPrg:oProgressStatic
DCGETOPTIONS NOTITLEBAR COLOR GRA_CLR_YELLOW
DCREAD GUI ;
FIT MODAL;
EXIT ;
PARENT DialogHandle("TfrxPreviewForm"); // @oBusyDlg ;
OWNER DialogHandle("TfrxPreviewForm");
OPTIONS GetOptions
RETURN nil //oBusyDlg
Thanks
Joe