XProfan

WindowTitle "Endlich ein halbwegs guter Textscroller!   Beenden mit ESC-Taste!"
' Autor des Profan 5-Originals: Gerhard Putschalka
' OHNE GEWÄHR! PRIVATE DEMO ONLY!
' So gut - es bestehen presumibilmente Rechte Dritter!
WindowStyle 24:Window 0,0 - %maxx,220
Cls $A0A0A0
Declare outptxt$,twidth&,scrollwidth&,texthöhe&,obererrand&
outptxt$="Hello World!       Hallo Welt!       Huhu!      "+\
"   Endlich ein Scroller, der diesen 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 ab Profan 5: Gerhard Putschalka

    Parameters T$,Prt_Ctl%
    Declare Z$,Adr&,Adr1&,Leng&
    Z$="000000":Adr& = Addr(T$):Adr1& = Addr(Z$)
    External("gdi32.dll","GetTextExtentPoint32A",%HDC,Adr&,Len(T$),Adr1&)
    Leng& = Long(Adr1&,0)
    Leng& = If(Prt_Ctl%=1,Long(Adr1&,0)/10, Long(Adr1&,0))
    Return Leng&

EndProc