mirando primeramente el Source de Window me encontre con esto
Translate GoogleC:\hmg.3.2\SAMPLES\Controls\VirtualDim\VIRTUALDIM.5\demo.prg
The friend Luis Eduardo asked me if I could disable vertical scrolling in a window containing VirtualDim.
Source of watching the first I came across this Window[/color]
Code: Select all
if valtype(VirtualHeight) == "U"
VirtualHeight := 0
vscroll := .f.
Else
If VirtualHeight <= h
MsgHMGError("DEFINE WINDOW: Virtual Height Must Be Greater Than Height. Program Terminated" )
EndIf
vscroll := .t.
endif
nos encontramos que si indicamos "Virtual Height" el mismo no tiene definicion por lo cual asume
we found that if we indicate "Virtual Height" has the same definition thus assumes
Code: Select all
vscroll := .f.
Code: Select all
DEFINE WINDOW Form_Main ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 480 ;
VIRTUAL WIDTH 1300 ;
VIRTUAL HEIGHT 800;
TITLE 'Virtual Dimensioned Window Demo' ;
MAIN
Code: Select all
DEFINE WINDOW Form_Main ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 480 ;
VIRTUAL WIDTH 1300 ;
TITLE 'Virtual Dimensioned Window Demo' ;
MAIN
we disable the Vertical Scroll and Horizontal Scroll just have, you need our friend Luis Eduardo
Enjoy