XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: Text im Fenster bewegen
Def @CSleep(1) !KERNEL32,Sleep

Proc moveText

    Declare way%
    Parameters frompos%,topos%,delays%,txt$
    let way%=0

    Whilenot equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        StartPaint GetActiveWindow()
        DrawText frompos%,20,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,20),getpixel(frompos%-1,20)
            StartPaint GetActiveWindow()
            DrawText frompos%,20,txt$
            EndPaint

        endif

        dec frompos%
        inc way%

    Wend

EndProc

Proc FlyText

    Declare way%,fly%
    Parameters frompos%,topos%,delays%,txt$
    let fly%=20
    let way%=0

    Whilenot equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        StartPaint GetActiveWindow()
        DrawText frompos%,fly%,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,fly%),getpixel(frompos%-1,fly%)
            StartPaint GetActiveWindow()
            DrawText frompos%,fly%,txt$
            EndPaint

        endif

        dec frompos%
        inc way%
        case mod(frompos%,5):inc fly%

    Wend

EndProc

Beispiel
Settruecolor 1
Cls Rgb(0,255,0)
textcolor rgb(0,0,255),-1
UseFont Arial,30,0,0,0,0
moveText 550,500,10,Wenn ich stehe drücke eine Taste
waitinput
textcolor rgb(0,0,255),-1
UseFont Arial,40,0,0,0,0
flyText 550,450,10,Copyright by Dieter Zornow
waitinput