Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Preview murders the menu
Message
From
22/01/1999 00:52:15
Walter Meester
HoogkarspelNetherlands
 
 
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00178626
Message ID:
00178840
Views:
32
Michelle,

In addition to what Cristof and Rick said. This is a confirmed bug and can be found in the MS kb. It occurs when a preview is maximized.

I've found a solution to make a class which shows me a preview including the solution cristof gave and a solution which allows you to have your own title bar above your preview. The code looks like this:

LPARAMETER cReport, lPreview, lNoPrompt, cOptions

cOptions=IIF(!EMPTY(cOptions),cOptions,"")

THIS.lSucces=.T. && could be changed in the error event
DO CASE
CASE !FILE(cReport) AND !FILE(cReport+".frx")
WAIT WINDOW "Het rapport is niet gevonden"

CASE lPreview
DEFINE WINDOW _Preview FROM 1,1 TO WROWS("")-2,WCOLS("")-2 ;
CLOSE FLOAT NOMINIMIZE GROW ZOOM SYSTEM TITLE "Afdrukvoorbeeld" NAME preview

WITH Preview
.Top=5
.Left=5
.Width=_Screen.Width-20
.Height=_Screen.Height-40

.Icon="C:\tax\icons\vfp\preview.ico"
.MDIFORM=.T.
ENDWITH

PUSH MENU _MSYSMENU
REPORT FORM (cReport) &cOptions NOCONSOLE WINDOW _Preview PREVIEW
POP MENU _MSYSMENU

RELEASE WINDOW _Preview

CASE lNoPrompt
REPORT FORM (cReport) &cOptions NOCONSOLE TO PRINTER

OTHERWISE
REPORT FORM (cReport) &cOptions NOCONSOLE TO PRINTER PROMPT
ENDCASE
RETURN THIS.lSucces
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform