XProfan

DEF CreateTrackBarHTop(5)  CONTROL("msctls_trackbar32","",$54000004,%(2),%(3),%(4),%(5),&(1),NewID(),%HINSTANCE)
VAR LastDlgID& = 10000

PROC NewID

    DECLARE ID&
    LastDlgID& = LastDlgID& + 1
    ID& = LastDlgID&
    RETORNO ID&

ENDPROC

CLS
USEPEN 0,1,0
LINE 33,05 - 107,05
LINE 20,50 - 120,50
VAR TBAr&   = CreateTrackBarHTOP(%HWND,20,10,100,30)
VAR TBAr2&  = CreateTrackBarHTOP(%HWND,07,60,126,30)
LOCATE 10,1
PRINT "Weiß alguien, cómo el Position el TICs uno TrackBar herausbekommt?\nAlso, a welchem Pixel (!) el Schiebregler beginnt\nund a a welchem Pixel él va?"
PRINT "Hier scheint lo una Delta de 13 Pixeln a ser... \nKann al API-mäßig herausbekommen?"
WAITINPUT

Def GetTrackBarPos(1) SendMessage(&(1),~TBM_GETPOS,0,0)
Def SetTrackBarPos(2) SendMessage(&(1),~TBM_SETPOS,1,&(2))
Def GetTrackBarRangeMin(1) SendMessage(&(1),~TBM_GETRANGEMIN,0,0)
Def GetTrackBarRangeMax(1) SendMessage(&(1),~TBM_GETRANGEMAX,0,0)
Def SetTrackRangeMin(2) SendMessage(&(1),~TBM_SETRANGEMIN,1,&(2))
Def SetTrackBarRange(3) SendMessage(&(1),~TBM_SETRANGE,1,MakeLong(&(2),&(3)))
Def SetTrackRangeMax(2) SendMessage(&(1),~TBM_SETRANGEMAX,1,&(2))
Def ClearTicks(1) SendMessage(&(1),~TBM_CLEARTICS,1,0)
Def GetNumTics(1) SendMessage(&(1),~TBM_GETNUMTICS,0,0)
Def SetThumbLength(1) SendMessage(&(1),~TBM_SETTHUMBLENGTH,0,0)
Def GetThumbLength(1) SendMessage(&(1),~TBM_GETTHUMBLENGTH,0,0)
Def SetLineSize(2) SendMessage(&(1),~TBM_SETLINESIZE,0,&(2))
Def GetLineSize(2) SendMessage(&(1),~TBM_GETLINESIZE,0,0)
Def TrackBarSetSel(3) SendMessage(&(1),~TBM_SETSEL,1,MakeLong(&(2),&(3)))
Def TrackBarGetSelStart(1) SendMessage(&(1),~TBM_GETSELSTART,0,0)
Def TrackBarGetSelEnd(1) SendMessage(&(1),~TBM_GETSELEND,0,0)