Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report preview toolbar hidden behind user-defined window
Message
De
08/05/2003 07:49:14
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Report preview toolbar hidden behind user-defined window
Divers
Thread ID:
00786142
Message ID:
00786142
Vues:
68
Hi all,

I have the following problem (I'm using VFP6):

When I define my own window for report previewing and then try to preview the report in that window, the report preview toolbar is located behind the window. If I try to move it over the report preview window, it "hides itself" behind the window.

Here is sample code where you can try this behaviour
(most of this sample code is from Microsoft's Knowledge Base
article 317466):

*------begin----------------------------------*

LOCAL lcResourceFileStem
IF '05.'$VERSION() && Foxtools required in VFP5
SET LIBRARY TO HOME()+'foxtools.fll'
ENDIF
SET SAFETY OFF

lcResourceFileStem = ADDBS(JUSTPATH(SYS(2005)))+JUSTSTEM(SYS(2005))
SET RESOURCE OFF
* Copy the current resource file to NoPrint which is
* used to store changes to the Print Preview toolbar.
COPY FILE (lcResourceFileStem + ".dbf") ;
TO noprint.DBF
COPY FILE (lcResourceFileStem + ".fpt") ;
TO noprint.fpt

* Remove current settings by deleting all records in the table.
USE noprint.DBF EXCLUSIVE
ZAP
USE
CLOSE ALL

* Create a table to use for a simple report and put some data in it.
DELETE FILE PrintTest.DBF
CREATE TABLE PrintTest (NAME C(30), Address C(20), City C(20), State C(2))
INSERT INTO PrintTest VALUES ("Jodie Garber", "1234 Jones St", "Phoenix", "AZ")
INSERT INTO PrintTest VALUES ("Holly Johnson", "675 Smith St", "Chicago", "IL")
INSERT INTO PrintTest VALUES ("Jack Reacher", "968 Duvall Street", "Key West", "FL")
INSERT INTO PrintTest VALUES ("Beau Borken", "1515 Main St", "York", "MT")

* Create a report and preview it.
CREATE REPORT PrintTest FROM PrintTest COLUMN
USE IN PrintTest
SET RESOURCE TO noprint.DBF

* my report window definition
define window REPORTWINDOW at 1,1 size 50,80 in desktop float grow zoom close system

REPORT FORM PrintTest window REPORTWINDOW PREVIEW NOWAIT

release windows REPORTWINDOW

IF '05.'$VERSION() && Turn off Foxtools in VFP5
SET LIBRARY TO
ENDIF
RETURN

*----end-----------------------------------*

Thanks in advance.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform