XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Grafik: Gummiband
(C) 2006 Wolfgang Richter
Cls
ShowMax
Déclarer xa%, ya%, xe%, ye%
Def Sleep(1) !KERNEL32,Sleep
SetTrueColor 1
MCLS @WIDTH(%HWND),@Height(%HWND) !!!!pour Test sans Bild
MLoadBmp mein_bild.bmp                           !!!!pour Test avec Bild
MCopySizedBmp 0,0-@WIDTH(%HWND),@Height(%HWND) > 0,0;0  !!!!pour Test avec Bild
USEP 0,4,@RGB(0,0,255)

Tandis que 1

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

    Tandis 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

Fin