XProfan

windowstyle 30
Ventana 100,100 -300,200
Declarar bs#,posx%,posa%
Dim bs#,16'
Def @GetWindowRect(2) !"USER32", "GetWindowRect"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
CLS
Var a&=create("button",%hwnd,"-   Wippe   +",100,100,100,30)

Mientras que 1

    Waitinput

    If getfocus(a&)

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

        If posx%<posa%

            imprimir "minus"

        Más

            imprimir " plus"

        Endif

    EndIf

EndWhile