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ß someone, How one The position the TICs of/ one TrackBar herausbekommt?\nAlso, on welchem Pixel (!) the Schiebregler begins\nund up to welchem Pixel it goes?"
PRINT "Hier shining it one Delta of 13 Pixeln To his... \nKann to the 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)