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&
    RETURN 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ß jemand, wie man die Position der TICs einer TrackBar herausbekommt?\nAlso, an welchem Pixel (!) der Schiebregler beginnt\nund bis zu welchem Pixel er geht?"
PRINT "Hier scheint es ein Delta von 13 Pixeln zu sein... \nKann man das 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)