XProfan

Verschoben, falsches Foro.

Laufschrift es con HTML no posible, con JS (JavaScript) ya. Google después de JS Laufschrift.

Carlo
Keil

Holzhammerlösung para reines Profano (tal vez fällt alguien sí todavía algo eleganteres una):
1. Memory-Mapa de bits invertir
2. Memory-Mapa de bits con el deseado Texto beschreiben
3. Mapa de bits-Ausschnitt con Anfang des Textes de el Memory-Bitmap en Ventana kopieren
4. Nächsten Mapa de bits-Ausschnitt de el Memory-Mapa de bits (1 Pixel más rechts anfangen) la ventana kopieren (natürlich en erste Kopie drüber)
5. Schritt 4 solange wiederholen, a dir el Pixel ausgehen

HTH
Carlo

Uckermann

¡Hola If,
Yo meinte natürlich en un Ventana bajo Xprofan. Ein String con más Signo se größt posible dargestellt voluntad.
Como no todos Signo en dieser Größe adecuado voluntad puede, debería esta Signo como Laufschrift angezeit voluntad.
En una ständig no gleichen wechselten Texto.

Saludo
Michael Uckermann

XP-Prof - Profan immer neuste-

Kompilieren Marca Separación

@¡Hola Michael
Hier una Texto por Thomas Hölzer (denke veces, el es frei)
Als Anfang es el Code bastante bien

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 scr

que se."

Jac
de
Lad

Oder con el SKControl.dll. El es fabelhaft!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Büdde - incluso en echtzeit , se heissen, egal como rápidamente el Rechner es - el Texto se siempre gleichschnell scrollen - y en el Gegensatz a Marquee auch todavía flimmerfreier, todavía sicherlich a x Stellen a optimieren habs sólo hingepinselt.
Kompilieren Marca Separación

!{$cleq}
const outptxt="Hallo Welt"
windowstyle 80
cls
showmax
mcls maxx,maxy
startpaint -1
usefont "Arial",100,0,0,0,0
textcolor 0,-1
long twidth=TextWeite(outptxt,nul)
endpaint
long scrollwidth=maxx+twidth

whilenot iskey(27) {

    startpaint -1
    cls $00FFFFFF
    drawtext maxx-mod(gettickcount/10,scrollwidth),100,outptxt
    endpaint
    mcopybmp 0,100 - maxx,100>0,100;0

}

end

Proc TextWeite   Autor: Gerhard Putschalka, leicht abgeändert iF

    Parameters T$,Prt_Ctl%
    Declare Z$,Adr&,Adr1&,Leng&
    Let Z$ = "000000"     wichtig ab Profan 7.x !
    Let Adr&=@If(@LT$(@Left$($PROFVER,1),"7"),@Add(@Addr(T$),1),@Addr(T$))
    Let Adr1&=@If(@LT$(@Left$($PROFVER,1),"7"),@Add(@Addr(Z$),1),@Addr(Z$))
    GetTextExtentPoint32A(%HDC,Adr&,@Len(T$),Adr1&)
    Let Leng&=@Long(Adr1&,0)
    Let Leng&=@If(@Equ(Prt_Ctl%,1),(@Long(Adr1&,0)/10),@Long(Adr1&,0))
    Return Leng&

ENDPROC

o. para nonXPSEler:
Kompilieren Marca Separación

DECLARE __cf1&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("gdi32.dll"),"GetTextExtentPoint32A")
WINDOWSTYLE 80
CLS
SHOWMAX
MCLS %MAXX,%MAXY
STARTPAINT -1
USEFONT Arial,100,0,0,0,0
TEXTCOLOR 0,-1
var TWIDTH&=TEXTWEITE("Hallo Welt",0)
ENDPAINT
var SCROLLWIDTH&=%MAXX+TWIDTH&

WHILENOT ISKEY(27)

    STARTPAINT -1
    CLS $00FFFFFF
    DRAWTEXT %MAXX-MOD(&GETTICKCOUNT/10,SCROLLWIDTH&),100,"Hallo Welt"
    ENDPAINT
    MCOPYBMP 0,100 - %MAXX,100>0,100;0

ENDWHILE

end

proc TEXTWEITE

    PARAMETERS T$,PRT_CTL%
    DECLARE Z$,ADR&,ADR1&,LENG&
    LET Z$="000000"
    LET ADR&=@IF(@LT$(@LEFT$($PROFVER,1),"7"),@ADD(@ADDR(T$),1),@ADDR(T$))
    LET ADR1&=@IF(@LT$(@LEFT$($PROFVER,1),"7"),@ADD(@ADDR(Z$),1),@ADDR(Z$))
    call(__cf1&,%HDC,ADR&,@LEN(T$),ADR1&)
    LET LENG&=@LONG(ADR1&,0)
    LET LENG&=@IF(@EQU(PRT_CTL%,1),(@LONG(ADR1&,0)/10),@LONG(ADR1&,0))
    RETORNO LENG&

ENDPROC

marquee.exe	727 kB

Hochgeladen:	24.01.2007

Ladeanzahl:
		Descargar

Frank
Abbing

El ProSpeed.dll ha dazu una Demo-Quellcode. Dort kannst du jede Schriftart uso, el Schrift darf una beliebigen Hintergrund haben y el Schrift kann bebiebig rápidamente durchlaufen. Como el Scrolltext una Sprite es, se ejecuta él völlig selbstständig y unabhängig vom Profanprogramm.

Uckermann

Vielen Dank para el schnellen Respuesta!!!!

Saludo
Michael Uckermann

XP-Prof - Profan immer neuste-