XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
graphic: Gummiband
(C) 2006 Wolfgang judge
Cls
ShowMax
Declare xa%, ya%, xe%, ye%
Def Sleep(1) !KERNEL32,Sleep
SetTrueColor 1
MCLS @WIDTH(%HWND),@Height(%HWND) !!!!for Test without Image
MLoadBmp mein_bild.bmp                           !!!!for Test with Image
MCopySizedBmp 0,0-@WIDTH(%HWND),@Height(%HWND) > 0,0;0  !!!!for Test with Image
USEP 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

End