XProfan

declare dlg&,scrollx&,scrolly&
declare static1&,static2&
declare bild1&,bild2&
declare ende%
declare neumousex&
declare zeigerx%
Declare B#
struct POINT = x&, y&
Dim B#,16
Def Getcursorpos(1) !"USER32","GetCursorPos"
Def Getasynckeystate(1) !"User32","GetAsyncKeyState"
Def Getwindowrect(2) !"USER32", "GetWindowRect"
zeigerx% = 41
cls
Öffne einen Dialog
dlg& = create("dialog",%hWnd,"Scrollbalken",50,50,300,300)
static1&=@Control("STATIC","",$5400010E,50,50,200,8,dlg&,$7918,%Hinstance)
bild1& = create("hpic",-1,"balken.bmp")
Bild dem Static zuweisen
sendmessage(static1&,$172,0,bild1&)
static2&=@Control("STATIC","",$5400010E,zeigerx%,60,18,37,dlg&,$7917,%Hinstance)
bild2& = create("hpic",-1,"zeiger.bmp")
sendmessage(static2&,$172,0,bild2&)

whilenot ende%

    waitinput

    if (%key = 2)

        ende% = 1

    elseif mouse(41,45 - 259,100)

        zeigerbewegen()

    endif

wend

DeleteObject bild1&
DeleteObject bild2&
destroyWindow(dlg&)
end

PROC zeigerbewegen

    while Getasynckeystate(1)

        neuMousex& = MouseX()
        Vorsicht, in neuMousex& steckt die absolute Position von der Mouse, brauche aber die relative
        Getwindowrect(dlg&,B#)
        neuMousex& = neuMousex& - Long(B#,0)

        if (neuMousex&>49) AND (neuMousex&<251)

            SetWindowPos static2&=neuMousex&-9,60 - 18,37

        endif

        sleep 10

    wend

ENDPROC

Proc MouseX

    Declare Point#, X&
    Dim Point#, Point
    GetCursorPos(Point#)
    X& = Point#.X&
    Dispose Point#
    Return X&

EndProc

Proc MouseY

    Declare Point#, Y&
    Dim Point#, Point
    GetCursorPos(Point#)
    Y& = Point#.Y&
    Dispose Point#
    Return Y&

EndProc