XProfan

Windowstyle 24
Windowtitle "5 Funktionen Button"
Fenêtre 300,200-450,350
Déclarer bs#,posx%,posa%,posy%,posb%,half_b%,half_h%,neutral_b%,neutral_h%
Faible bs#,16'
Def @GetWindowRect(2) !"User32", "GetWindowRect"
Def @ScreenToClient(2) !"User32","ScreenToClient"
cls Externe("User32","GetSysColor",15)
Var test7&=Contrôle("BUTTON","+",$54410000,150,70,200,100,%hwnd,0,%HINSTANCE,$0)
Var text&=Créer("Text",%hwnd,"5 Funktionen-Button",140,173,140,22)

Tandis que 1

    Waitinput

    Si getfocus(test7&)

        posx%=%mousex
        posy%=%mousey
        @GetWindowRect(test7&,bs#)
        @ScreenToClient(%hwnd,bs#)
        @ScreenToClient(%hwnd,bs#+8)
        half_b%=((LONG(bs#,8)-LONG(bs#,0))/2)
        half_h%=((LONG(bs#,12)-LONG(bs#,4))/2)
        neutral_b%=((LONG(bs#,8)-LONG(bs#,0))/5)
        neutral_h%=((LONG(bs#,12)-LONG(bs#,4))/5)
        posa%=Long(bs#,0)+half_b%
        posb%=Long(bs#,4)+half_h%
        setfocus(%Hwnd)
        locate 1,1

        Si non (posx%>posa%-neutral_b%) and (posx%<posa%+neutral_b%) and (posy%>posb%-neutral_h%) and (posy%<posb%+neutral_h%)

            Si (posx%<posa%) and (posy%<posb%)

                imprimer "letzter Click sur à gauche dessus  "

            Endif

            Si (posx%>posa%) and (posy%<posb%)

                imprimer "letzter Click sur  à droite dessus  "

            Endif

            Si (posx%>posa%) and (posy%>posb%)

                Imprimer "letzter Click sur à droite unten  "

            Endif

            Si (posx%<posa%) and (posy%>posb%)

                Imprimer "letzter Click sur à gauche unten  "

            EndIf

        D'autre

            Imprimer "letzter Click sur Mitte        "

        EndIf

    Endif

Endwhile

Waitinput