the dream would be to create a dialog with the possibility to zoom all controls
as if we were a autocad dialog
but now this is impractical
and now I use the scroll method of EMG
- Code: Select all Expand view
STATIC FUNCTION IMPOSTASCROLL( oDlg,ntop )
LOCAL nStep := 30
oDlg:oVScroll:SetRange( 1, 10 )
oDlg:oVScroll:nPgStep = 1
oDlg:oVScroll:bGoUp = { || SpostaControlli( oDlg, nStep,ntop ) }
oDlg:oVScroll:bGoDown = { || SpostaControlli( oDlg, -nStep ,ntop) }
oDlg:oVScroll:bPageUp = { || SpostaControlli( oDlg, nStep ,ntop) }
oDlg:oVScroll:bPageDown = { || SpostaControlli( oDlg, -nStep,ntop ) }
RETURN NIL
STATIC FUNCTION SPOSTACONTROLLI( oDlg, nStep,ntop )
LOCAL i
Local len:=len(oDlg:aControls )
IF nStep < 0 .AND. oDlg:aControls[len]:nTop + nStep = ntop
RETURN NIL
ENDIF
IF nStep > 0 .AND. oDlg:aControls[ 6 ]:nTop - nStep = ntop
RETURN NIL
ENDIF
FOR i =5 TO LEN( oDlg:aControls )
oDlg:aControls[ i ]:Move( oDlg:aControls[ i ]:nTop + nStep, oDlg:aControls[ i ]:nLeft )
NEXT
oDlg:Refresh()
RETURN NIL
then I create two button :
@ x,y button .....action SpostaControlli( oDlg, -30 ,10)
@ x,y button .....action SpostaControlli( oDlg, 30 ,10)
Now I must use also the Horizontal scroll But I not Know How add command on these function
How I must make ?
