XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Gemalter Button
Gemalter Button von Alfred Wagner
April 2007 getestet unter XProfan 10
Freeware viel Spass mit dieser Vorlage!
Bei Fragen oder gefundenen Fehlern/Verbesserungen bitte eine mail an
AlfredWagner2@gmx.de
----------------------------------------------------------------------------------------------
 $P+
SET(ERRORLEVEL,0)
 $H windows.ph
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE bild&,bild1&
WINDOWSTYLE 31
WINDOWTITLE Gemalter Button
WINDOW (%maxx/2 - 338/2),(%maxy/2 - 169/2) - 338,169
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1

Proc Neumalen

    SETAUTOPAINT 1
    StartPaint %Hwnd
    bild& = Create(hPic,-1,Ende.BMP)
    bild1& = Create(hPic,-1,Ende_Rot.BMP)

    If mouse(20,15-85,35)  Position des Mauszeigers

        DrawPic bild1&, 20, 15; 0

        while  mouse(20,15-85,35) SOLANGE MAUS ÜBER Text

            Sleep 50 FÜR DEN PROZESSOR: WICHTIG !!!
            Aktion beim Drücken der LINKEN Maustaste über den nun roten Button

            if equ(%mousekey,1)

                while equ(%mousekey,1)  WENN NUN MAUSKLICK LINKS

                wend

                ~DestroyWindow(%hWnd)
                Break  Programm sofort beenden

            Endif

        ENDWHILE

        Wenn die Maus sich nicht über dem Text befindet
        DrawPic bild&, 20, 15; 0
        Else  Damit das Pic beim Programmstart sichtbar ist
        DrawPic bild&, 20, 15; 0

    Endif

    EndPaint

Endproc

Neumalen
*** Hauptschleife
@SetFocus(%hwnd)

WhileNot Ende%

    Getmessage
    ~Sleep(50)  FÜR DEN PROZESSOR: (Hover darf kein Waitereignis besitzen)** Von Rolf Koch ,DANKE

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    Endif

    Neumalen
    Aufräumen
    DeleteObject bild&
    DeleteObject bild1&

ENDWHILE