XProfan

Título de la ventana "Endlich una halbwegs guter Textscroller!   Beenden con ESC-Taste!"
' Autor des Profano 5-Originals: Gerhard Putschalka
' OHNE GEWÄHR! PRIVATE DEMO ONLY!
' So bien - lo bestehen vermutlich Rechte Dritter!
Ventana de Estilo 24:Ventana 0,0 - %maxx,220
Cls $A0A0A0
Declarar outptxt$,twidth&,scrollwidth&,texthöhe&,obererrand&
outptxt$="Hello World!       ¡Hola Welt!       Huhu!      "+\
"   Endlich una Scroller, el esta Namen auch 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

End

Proc TextWeite'Autor d. Originals de Profano 5: Gerhard Putschalka

    Parámetros T$,Prt_Ctl%
    Declarar Z$,Adr&,Adr1&,Leng&
    Z$="000000":Adr& = Addr(T$):Adr1& = Addr(Z$)
    Externo("gdi32.dll","GetTextExtentPoint32A",%HDC,Adr&,Len(T$),Adr1&)
    Leng& = Largo(Adr1&,0)
    Leng& = If(Prt_Ctl%=1,Largo(Adr1&,0)/10, Largo(Adr1&,0))
    Volver Leng&

ENDPROC