Estoy probando una VirtualWindow poniendo controles FRAME y LABEL
y no me funciona la rueda de Scroll del raton para avanzar y retroceder.
Si pongo un control BUTTON dentro de dicha ventana, si funciona el Scroll !!!
---------------------------------------------------------------------------
Hello everyone
I'm testing a VirtualWindow putting controls FRAME and LABEL
and does not work the mouse scroll wheel to move back and forth.
If I put BUTTON control within that window, if it works the Scroll !!!
---------------------------------------------------------------------------
Code: Select all
#include "HMG.CH"
//------------------------------------------------------------------------------
FUNCTION MAIN
LOCAL hWnd, x, z, inicio
LOCAL nEndWin:= 2000
DEFINE WINDOW VitualWin AT 000,000 WIDTH 810 HEIGHT System.DesktopHeight ;
VIRTUAL WIDTH 820 VIRTUAL HEIGHT nEndWin ;
TITLE "Test VirtualWin" MAIN NOSIZE
ON KEY ESCAPE OF VitualWin ACTION VitualWin.Release
// Descomentar la siguiente linea y probar la rueda de Scroll
// Uncomment the following line and test the scroll wheel
* @ 010 , 010 BUTTON Butt1 OF VitualWin CAPTION "Button"
inicio := 1 ; li := 110 ; ci := 40 ; tm := 150
for z := 1 to 20
nSec:= strzero(inicio,3)
m := "Frame_" + nSec
cSec := "LabSec_"+ nSec
@ li-5,ci-5 FRAME &m OF VitualWin WIDTH 160 HEIGHT 160 TRANSPARENT
@ li+5,ci+50 LABEL &cSec VALUE STRZERO( z, 3) width 30 height 12 FONT "Droid Sans Mono" SIZE 9 FONTCOLOR BLUE CENTERALIGN
li += tm
inicio++
next z
END WINDOW
CENTER WINDOW VitualWin
ACTIVATE WINDOW VitualWin
RETURN( Nil )