Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scrolling VFP6 reports through arrow keys
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00913739
Message ID:
00914205
Vues:
20
I use code similar to the following.
*** Issuing a REPORT FORM <formname> PREVIEW with the Status Bar set ON causes Visual FoxPro 6.0
*** 	to leak one memory handle each time you close the Preview window.
SET STATUS BAR OFF
THIS.lcWindowTitle = "Previewing Test Report"
DEFINE WINDOW PreviewReport FROM 0,0 TO SROWS() * 0.85, SCOLS() TITLE "Test Report" ;
  	          FLOAT NOCLOSE GROW SYSTEM NOMINIMIZE IN SCREEN
ACTIVATE WINDOW PreviewReport 
ZOOM WINDOW PreviewReport MAX

*** Set up On Keys 
ON KEY LABEL LEFTARROW MOUSE CLICK AT WROWS(THIS.lcWindowTitle) + 0.5, ;
                       0.7 WINDOW (THIS.lcWindowTitle)
ON KEY LABEL RIGHTARROW MOUSE CLICK AT WROWS(THIS.lcWindowTitle) + 0.5, ;
                       WCOLS(THIS.lcWindowTitle) - 0.7 WINDOW (THIS.lcWindowTitle)
ON KEY LABEL UPARROW MOUSE CLICK AT 0.5, ;
                       WCOLS(THIS.lcWindowTitle) + 0.7 WINDOW (THIS.lcWindowTitle)
ON KEY LABEL DNARROW MOUSE CLICK AT WROWS(THIS.lcWindowTitle) - 0.5, ;
                       WCOLS(THIS.lcWindowTitle) + 0.7 WINDOW (THIS.lcWindowTitle)

REPORT FORM (Test.frx) NOCONSOLE PREVIEW WINDOW PreviewReport 

*** Clear up On Keys 
ON KEY LABEL LEFTARROW
ON KEY LABEL RIGHTARROW
ON KEY LABEL UPARROW
ON KEY LABEL DNARROW

RELEASE _PREVIEWING
HIDE WINDOW PreviewReport
RELEASE WINDOW PreviewReport

SET STATUS BAR ON
>Dear Experts
>
>I want to scroll/move my vfp6 reports through arrow keys.
>Is it possible, if yes then please help me.
>
>Thanks in advance
Dennis Lindeman
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform