XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Lauftext erzeugen (1)
PRFellow-Vorlage
Autor: Thomas Hölzer, 1998
Ein einfacher Lauftext
Def Sleep(1) !KERNEL32,Sleep

Proc LaufText

    Parameters delay%,txt$
    SetTimer delay%

    While Neq(Len(txt$),0)

        Sleep(delay%)
        WaitInput
        Let txt$=Del$(txt$,1,1)
        StartPaint GetActiveWindow()
        DrawText 0,20,Add$(txt$, )
        EndPaint
        Angehängter Leerstring verhindert Schmierspuren

    Wend

    KillTimer

EndProc

Beispiel
Cls
UseFont ARIAL,16,0,0,0,0
LaufText 100,Bei diesem Verfahren ist es schwierig, den Text weich scrollen zu lassen.