| |
| |
|
rafl | Yo habe una con DrawText geschrieben Texto, el en el más Progreso des Programms otra vez gelöscht o. después de el Löschen con un otro Texto überschrieben voluntad se. Como lösche Yo, el alten Texto?
Schöne Grüße
Rafl |
|
| |
| |
| |
|
|
HofK | |
| |
| |
| |
|
|
 | [OFFTOPIC]klar, drawtext 10,10,"Testtext" aber una fenster 1500x1200  [/OFFTOPIC] |
|
| |
| |
| |
|
|
HofK | Como ir todavía algunos Nullen!
window 5,5 - 1500000000,1200000000
// window 5,5 - 15000000000,12000000000 // negative Fenstergröße
drawtext 10,10,space$(10000)
// drawtext 10,10,space$(100000) // como reißt XProfan 11.2 free el Hufe hoch.
??? Ist el el Hitze el Sonne: 0  Sonne |
|
| |
| |
| |
|
|
rafl | Klaus Hoffmeister (07.08.15)
Der Texto se überschrieben - así simplemente:
Klaus Hoffmeister (07.08.15)
window 5,5-1500,1200
drawtext 10,10,"Testtext"
waitinput
drawtext 10,10,"neuer Text"
waitinput
drawtext 10,10," " // oder space$(100)
waitinput
Klaus Hoffmeister (07.08.15)
So, como Klaus lo beschrieben ha, Yo lo vorher auch probiert gehabt. Yo habe ahora Schritt para Schritt mi otro en el Programa vorhandenen Befehle weggelassen. Das Problema hängt offenbar con el Befehl Color del texto 0, -1 zusammen. |
|
| |
| |
| |
|
|
HofK | |
| |
| |
| |
|
|
rafl | | Como löse Yo ahora mein Problema, dass el zuerst geschriebene Texto weg es y sólo el neue Texto a lesen es? |
|
| |
| |
| |
|
|
ByteAttack | Verstehe el problema no bastante?
Ejemplo:
KompilierenMarcaSeparación $H windows.ph
USERMESSAGES 16
var Text%=1
cls ~GetSysColor(15)
UseFont "ARIAL",20,0,0,0,0
TextColor 0,~GetSysColor(15)
DrawText 10,10,"Klick mich"
WhileNot %Umessage=16
Waitinput
if IsKey(1)
DrawText 10,10,Space$(50)
if Text%=1
DrawText 10,10,"Klick mich nochmal"
Text%=2
elseif Text%=2
DrawText 10,10,"Klick mich"
Text%=1
endif
endif
EndWhile
|
|
| |
| |
| |
|
|
HofK | Hilft el como:
KompilierenMarcaSeparaciónwindow 500,300
cls RGB(233,222,122)' clear screen mit Hintergrundfarbe
' RotGrünBlau-Anteile vom 0 bis 255
usefont "Arial",24,12,0,1,0' wähle: Schrift,Höhe,Breite,F,K,U
TextColor 0, -1
drawtext 20,20," Hier ein kleiner Text. "
waitinput
TextColor RGB(233,222,122) , RGB(233,222,122)
drawtext 20,20," "// oder mit space$
// oder mit drawtext 20,20," Hier ein kleiner Text. " überbügeln
waitinput
TextColor 0, -1
drawtext 20,20," Hier ein frischer neuer kleiner Text. "
put
|
|
| |
| |
| |
|
|
ByteAttack | Aber con mi Ejemplo, puede ser una Blondine stundenlang beschäftigen  |
|
| |
| |
| |
|
|
rafl | Vielen Dank,
con el Vorschlag de Byte-Attack funktioniert lo. Das komische es sólo, sobald Yo mein Ventana verschiebe, se el Hintergrund hinter el Texto weiß dargestellt. Evtl. probiere Yo auch otra vez con Klauses zweiten Vorschlag de.
Rafl |
|
| |
| |
| |
|
|
ByteAttack | Einfach hinter el WaitInput
KompilierenMarcaSeparación
conjunto.
KompilierenMarcaSeparación $H windows.ph
USERMESSAGES 16
var Text%=1
cls ~GetSysColor(15)
UseFont "ARIAL",20,0,0,0,0
TextColor 0,~GetSysColor(15)
DrawText 10,10,"Klick mich"
WhileNot %Umessage=16
Waitinput
TextColor 0,~GetSysColor(15)
if IsKey(1)
DrawText 10,10,Space$(50)
if Text%=1
DrawText 10,10,"Klick mich nochmal"
Text%=2
elseif Text%=2
DrawText 10,10,"Klick mich"
Text%=1
endif
endif
EndWhile
|
|
| |
| |
| |
|
(459)
Deutsch
English
Français
Español
Italia