XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button: Bitmap auf Button zeichnen
Lauffähig ab Profan-Version 5.0
Andreas Miethe * Bielefeld * Juni 1998
#############################################################
Declare dlg%,Knopf%,ende%
windowstyle 240
window 0,0-0,0                  Fenster erzeugen für MLOADBMP
UseFont Arial,15,0,0,0,0           Dialogfont wählen
Setdialogfont 1                 Dialogfont setzen
Dialogbox mit einem Knopf erzeugen
----------------------------------
Let Dlg%=@CreateDialog(%Desktop,Test...,100,100,200,200)
Let Knopf%=@CreateButton(dlg%,OK,10,10,100,30)
@CreateText(dlg%,Beachte : Nach jeder Fensterbewegung
muß der Haken neu gezeichnet werden,10,60,180,100)
Bitmap in den Speicher laden
MLoadBMP Haken.bmp
Ausgabe umleiten auf den knopf

Proc Haken_zeichnen

    startpaint knopf%
    MCopyBmp 0,0-%bmpx,%bmpy > 0,0;-1
    endpaint

Endproc

Haken_zeichnen
SetAutoPaint 0
Let ende%=0
waitinput

Whilenot ende%

    if getfocus(knopf%)     Wenn Knopf gedrückt = ENDE

        Let ende%=1

    ELSEIF %wmPaint         Wenn Fenster bewegt wird = NEUZEICHNEN

        Haken_zeichnen

    Endif

Wend

end