XProfan

style de fenêtre 30
Fenêtre 100,100 -300,200
Déclarer bs#,posx%,posa%
Faible bs#,16'
Def @GetWindowRect(2) !"User32", "GetWindowRect"
Def @ScreenToClient(2) !"User32","ScreenToClient"
CLS
Var a&=create("button",%hwnd,"-   Wippe   +",100,100,100,30)

Tandis que 1

    Waitinput

    Si getfocus(a&)

        posx%=%mousex
        @GetWindowRect(a&,bs#)
        @ScreenToClient(%hwnd,bs#)
        @ScreenToClient(%hwnd,bs#+8)
        posa%=Long(bs#,0)+(Long(bs#,4)/2)
        setfocus(%Hwnd)
        locate 7,17

        Si posx%<posa%

            imprimer "minus"

        D'autre

            imprimer " plus"

        Endif

    EndIf

Endwhile