6
The LA Fox Developer Newsletter
VFUG’s Hot Tips (Con't from page 5)

foxpro desktop). NO T E This exampie previews tne
5Odbcpro and 5Odbc reports found in the filespec directory * of
VFP5 * * * NOTE: This is for use in .EXEs * - in APP or
PRJ modes you will see the VFP desktop flashing * (when it is
made visible))

IoForm1 = createobject("MainForm")
loFormi .show()
read events
return


classes defined for this example *******
define class cmdQuit as commandbutton
Height = 27
Width = 84
Caption = “Quit”
Name = “cmdQuit”
PROCEDURE Click
*
a simple quit button for the purpose of this demonstration
clear events
release thisform
ENDPROC

enddefine

define class cmdReportPreview as commandbutton
Height = 27
Width = 110
Caption = “View Report”
Name = “cmdReportPreview”
cReportName="ReportName"
cReportCaption=”Report Preview”

PROCEDURE Click
if type(”thisform.llPreviewForm”)”L”

thisform.PrintPreview(this.cReportName,this.cReportCaption)
endif
ENDPROC

enddefine


DEFINE CLASS mainform as RPForm

Top = 2
Left = 23
Height = 390
Width = 549
Name = “MAINFORM”

ADD OBJECT TestQuit AS cmdQuit WiTH;
Top = 12,;
Left = 456

ADD OBJECT Previ AS cmdReportPreview WITH;
Top = 12,;
Left = 50,;
Caption= “View Reporti”,
cReportName=”5odbc”,
cReportCaption=”Preview of 50dbc report”


ADD OBJECT Prev2 AS cmdReportPreview WiTH;
Top= 12,;
Left = 200,;
Caption= “View Report2”,;
cReportName= 50dbc -
August 1997
cReportCaption=”VFP5 DBC Properties’

ENDOEFINE


the general class - can be used in any app that needs report

previews in the main app screen

DEFINE CLASS RPFORM AS form

ShowWindow = 2 && top-level form
DoCreate = .T.
Caption = “Preview Window”
MDlform = .t.
Name = “RPFORM”
llScreenVisible=.f.
IlPreviewForm.t.
loPreviewForm=.NULL.
PROCEDURE INIT()
*
make sure the screen is not visible even if we call
this from the command window
this.llScreenVisible=_screen.visible
_screen.visible.f.
this. IoPreviewFormcreateObject(”test”)
ENDPROC


PROCEDURE RELEASE()
this.loPreviewForm.release()
screen.visible~this.llScreenVisibIe
ENDPROC

Procedure PrintPreview
LPARAMETERS tcReportName,tcCaption
local
lnOldTop,lnOldLeft,llVisible,lcWindowName,lcScreencaption,loForm2
if type(”tcReportName”)=”U”
return .f.
endif
llVisible=_screen.visible
sc reen .vis ibi e.f.

loForm2this.loPreviewForm
if type(”tcCaption”)”C”
loForm2.caption=tcCaption
endif

*
save the old _screen values if we are calling this
from the VFP desktop
*
and move the screen out of sight
lnOldTop=_screen.top
lnOldLeft=_screen.Ieft
screen.top-1 000
screen.Ieft-1 000

*
you have to make the screen visible before moving the
preview toolbar and form
*
or else it will not transfer them correctly
lcScreencaption=_screen.caption
screen.caption=”Prepeari ng Report”
_screen.visible.t.

report preview form (tcReportName) nowait window test

activate window print in (thisform.name)

IcWindowName=left(loForm2.caption,at(”
“,loForm2.caption))
loForm2.caption=”default caption”
Page 6

6