XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Scrollbalken per API erstellen
Declare Ende%,ScrollHorz%,Scrollvert%,Button%
Declare ScrollHX%,ScrollHY%,ScrollWX%,ScrollWY%
Declare ButtonrangeX%,ButtonrangeY%
Declare Buttonx%,Buttony%,Buttonh%,Buttonw%
settruecolor 1
cls rgb(192,192,192)
Let Buttonx% = 10                          links oben
Let Buttony% = 60                          rechts oben
Let Buttonh% = 24                          Hoehe
Let Buttonw% = 80                          Breite
Let ButtonrangeX% = sub(width(%hwnd),130)  bis hierhin darf sich der Button in X bewegen
Let ButtonrangeY% = sub(height(%hwnd),30)  bis hierhin darf sich der Button in Y bewegen
Let ScrollHX% = 0                          links Scrollbar Horizontal
Let ScrollHY% = sub(Width(%hwnd),20)       Breite Scrollbar Horizontal
Let ScrollWX% = sub(Width(%hwnd),20)       oben Scrollbar Vertikal
Let ScrollWY% = sub(Height(%hwnd),20)      Hoehe Scrollbar Vertikal
Let ScrollHorz% = @Control(Scrollbar,,$50000000,0,0,ScrollWX%,20,%hwnd,1000,%Hinstance)
Let ScrollVert% = @Control(Scrollbar,,$50000001,ScrollHY%,20,20,ScrollWY%,%hwnd,1001,%Hinstance)
Let Button% = @Control(Button,Ende,$50008000,Buttonx%,Buttony%,Buttonw%,Buttonh%,%hwnd,1002,%Hinstance)
Sendmessage(ScrollHorz%,$00E2,ButtonX%,ButtonrangeX%)  Scrollweite für Scrollbar horizontal
Sendmessage(ScrollVert%,$00E2,ButtonY%,ButtonrangeY%)  Scrollweite für Scrollbar vertikal
Let ende%=0

whilenot ende%

    Waitinput

    if getfocus(Button%)

        Let Ende%=1

    Endif

    Buttonposition anpassen
    setwindowpos Button% = Sendmessage(ScrollHorz%,$00E1,0,0),Sendmessage(Scrollvert%,$00E1,0,0)-80,24;0

wend

End