XProfan

Français

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Text: Text im la fenêtre bewegen
Def @CSleep(1) !KERNEL32,Sleep

Proc moveText

    Déclarer way%
    Paramètres frompos%,topos%,delays%,txt$
    let way%=0

    Whilenot equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        Début de peinture GetActiveWindow()
        DrawText frompos%,20,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,20),getpixel(frompos%-1,20)
            Début de peinture GetActiveWindow()
            DrawText frompos%,20,txt$
            EndPaint

        endif

        dec frompos%
        inc way%

    Wend

ENDPROC

Proc FlyText

    Déclarer way%,fly%
    Paramètres frompos%,topos%,delays%,txt$
    let fly%=20
    let way%=0

    Whilenot equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        Début de peinture GetActiveWindow()
        DrawText frompos%,fly%,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,fly%),getpixel(frompos%-1,fly%)
            Début de peinture GetActiveWindow()
            DrawText frompos%,fly%,txt$
            EndPaint

        endif

        dec frompos%
        inc way%
        cas 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,si je stehe drücke une bouton
waitinput
textcolor rgb(0,0,255),-1
UseFont Arial,40,0,0,0,0
flyText 550,450,10,Copyright by Dieter Zornow
waitinput