Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Scrolling VFP6 reports through arrow keys
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00913739
Message ID:
00914205
Views:
18
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform