topic-14771

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Help To Antonio
Posted: Mon Mar 02, 2009 09:08 AM

I need to show many controls on a dialog

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 (fw): Select all Collapse

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 ?

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Continue the discussion