XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Grafik: Gummiband
(C) 2006 Wolfgang Richter
Cls
ShowMax
Declarar xa%, ya%, xe%, ye%
Def Sleep(1) !KERNEL32,Sleep
SetTrueColor 1
MCLS @WIDTH(%HWND),@Height(%HWND) !!!!para Test sin Bild
MLoadBmp mein_bild.bmp                           !!!!para Test con Bild
MCopySizedBmp 0,0-@WIDTH(%HWND),@Height(%HWND) > 0,0;0  !!!!para Test con Bild
USEP 0,4,@RGB(0,0,255)

Mientras que 1

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

    Mientras que %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

End