XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Buttons: einfacher Icon-Button (ohne DLL)
Die einfachste Art ein Icon-Button mit Schrift zu erstellen, kann jeder
aber man muss schon sehr genau hinschauen um Unzulänglichkeiten zu sehen.
Nur so eine spontane Idee und Spielerei, die ich probiert habe
Autor Dieter Zornow
Code kann frei verwendet werden
Create(Icon gibt es glaube ich erst unter Xprofan
Def @Mouserect(4) (%mouseX > @%(1)) and (%mouseX < @%(1) + @%(2)) and (%mouseY > @%(3)) and (%mouseY < @%(3) + @%(4))
Cls
Declare Button&,icon&
button& = @Create(Button,%hwnd,Mit Icon,10,10,120,26)
icon& = @Create(Icon,button&,A,2,2)
SetWindowPos icon& =0,0-0,0;0
SetWindowPos icon& =2,2-22,22;0
usermessages 16

whilenot %umessage = 16

    getmessage

    if getfocus(button&)

        SetWindowPos icon& =0,0-0,0;0
        SetWindowPos icon& =2,2-22,22;0

        if %lastmessage = 512 Maus wird bewegt, falls man sich vom Button wegschleichen will.

            SetWindowPos icon& =0,0-0,0;0
            SetWindowPos icon& =2,2-22,22;0

        elseif %lastmessage = 514 linke Maustaste wird losgelassen

            SetWindowPos icon& =0,0-0,0;0
            SetWindowPos icon& =2,2-22,22;0
            setfocus(%Hwnd)

            if @Mouserect(10,120,10,30)

                Messagebox(Icon mit Text,Simple Solution,64) aktion

            endif

        endif

    elseif Getfocus(Button1&)

        hier die gleiche Sequenz wie oben

    elseif Getfocus(Button2&)

    elseif Getfocus(Button3&)

    endif

endwhile

='./../../funktionsreferenzen/XProfan/end/'>end