| |
| |
|
Uckermann | ¡Hola,
Yo ya überall gesucht, habe momentan desafortunadamente auch no Concepto, Yo una horizontale Laufschrift (analog el marquee en html) aufsetze. |
|
| |
| |
| |
|
|
 | 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 |
|
| |
| |
| |
|
|
 | @¡Hola Michael
Hier una Texto por Thomas Hölzer (denke veces, el es frei)
Als Anfang es el Code bastante bien 
KompilierenMarcaSeparaciónPRFellow-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 scrque 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 | 24.01.2007 ▲ |
|
| |
|
|
| 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.
KompilierenMarcaSeparació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:
KompilierenMarcaSeparaciónDECLARE __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
|
 |
| |
| |
| |
|
|
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 |
|
| |
| |
| |
|
(1.126)
Deutsch
English
Français
Español
Italia