XProfan

Titre de la fenêtre "Endlich un halbwegs bon Textscroller!   finissons avec ESC-bouton!"
' Autor des Profan 5-Originals: Gerhard Putschalka
' OHNE GEWÄHR! PRIVATE DEMO ONLY!
' si bien - es bestehen probablement Rechte Dritter!
Fenêtre Style 24:Fenêtre 0,0 - %maxx,220
Cls $A0A0A0
Déclarer outptxt$,twidth&,scrollwidth&,texthöhe&,obererrand&
outptxt$="Hello World!       allô monde!       Huhu!      "+\
"   enfin un Scroller, qui cette Namen aussi verdient! "
Texthöhe&=100
ObererRand&=50
MCLS width(%hwnd),height(%hwnd)
startpaint -1
usefont Arial,texthöhe&,0, 1,1,0
textcolor rgb(255,255,0),-1
twidth& = TextWeite(outptxt$, 0)
endpaint
scrollwidth& = width(%hwnd)+twidth&

whilenot iskey(27)

    startpaint -1
    cls rgb(0,0,255)
    textcolor rgb(255,255,0),-1
    drawtext width(%hwnd)-((&gettickcount/10) mod scrollwidth&),100, outptxt$
    endpaint
    mcopybmp 0,100 - width(%hwnd)-20,100 > 10,obererrand&;0

Endwhile

Fin

Proc TextWeite'Autor d. Originals ab Profan 5: Gerhard Putschalka

    Paramètres T$,Prt_Ctl%
    Déclarer Z$,Adr&,Adr1&,Leng&
    Z$="000000":Adr& = Addr(T$):Adr1& = Addr(Z$)
    Externe("gdi32.dll","GetTextExtentPoint32A",%HDC,Adr&,Len(T$),Adr1&)
    Leng& = Long(Adr1&,0)
    Leng& = Si(Prt_Ctl%=1,Long(Adr1&,0)/10, Long(Adr1&,0))
    Retour Leng&

ENDPROC