Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Form Created with Define Window
Message
De
06/06/2018 15:38:23
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
01660589
Message ID:
01660601
Vues:
84
After read others responses I thought that maybe you could use a actual Form object (via Define Class RepWindow as Form ) instead of a Define Window RepWindow. They should be the same to VFP. Does anyone else have anything to add to this approach?

WAIT … I just tried this and am getting a C5 error on the REPORT FORM line
RepWindow=CREATEOBJECT("RepWindow")
RepWindow.show(2)

REPORT FORM RepWindow TO PRINTER PROMPT PREVIEW WINDOW RepWindow

RETURN

DEFINE CLASS RepWindow as Form
	caption = 'RepWindow'
	windowstate = 2
*	visible = .t.
ENDDEFINE
>Hi,
>
>I have the following code in my application that creates a window in which a report is previewed. Here is the code:
>
>DEFINE WINDOW RepWindow ;
>   FROM 1, 1 TO 20, 20 ;
>   TITLE cReportTitle SYSTEM 
>
>ZOOM Window RepWindow  Max
>
>WAIT CLEAR 
>
>REPORT FORM (cReportFrxName) TO PRINTER PROMPT  PREVIEW WINDOW RepWindow
>
>RELEASE WINDOW RepWindow	
>
>
>While user is previewing the report (at the line REPORT FORM above), a code in another place of the application scans all open windows, as such:
>
>lnForms = _screen.formcount
>	 
>FOR i = lnForms to 1 STEP -1
>
>     *-- try to release this form:
>     _screen.Forms(i).Release
>
>ENDFOR
>
>
>But the _screen.formcount does not seem to include the form created with the DEFINE WINDOW (above).
>
>How can I either include the form created with DEFINE WINDOW in the _screen.formcount? Or how can I check if this form created with DEFINE WINDOW exists?
>
>TIA
Greg Reichert
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform