XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zeichenprogramm: Gummiband zeichnen
(C) 2006 Wolfgang Richter
Cls
ShowMax
Declare xa%, ya%, xe%, ye%
Def Sleep(1) !KERNEL32,Sleep
SetTrueColor 1
MCLS @WIDTH(%HWND),@Height(%HWND) !!!!für Test ohne Bild
MLoadBmp mein_bild.bmp                           !!!!für Test mit Bild
MCopySizedBmp 0,0-@WIDTH(%HWND),@Height(%HWND) > 0,0;0  !!!!für Test mit Bild
UsePen 0,4,@RGB(0,0,255)

While 1

    UseCursor 0
    WaitMouse
    xa% = %MouseX
    ya% = %MouseY
    UseCursor 3

    While %MousePressed = 1

        Sleep(01)

        IFNot ((xe% = %MouseX) And (ye% = %MouseY))

            xe% = %MouseX
            ye% = %MouseY
            Line xa%,ya% - %MouseX,%MouseY
            MCopyBmp 0,0-@WIDTH(%HWND),@Height(%HWND) > 0,0;0

        EndIf

        Line xa%,ya% - %MouseX,%MouseY

    Wend

    Line xa%,ya% - %MouseX,%MouseY
    CopyBmpToMem 0,0-@WIDTH(%HWND),@Height(%HWND)> 0,0

Wend

Fin