| |
| |
|
rafl | Ich habe einen mit DrawText geschrieben Text, der im weiteren Verlauf des Programms wieder gelöscht bzw. nach dem Löschen mit einem anderen Text überschrieben werden soll. Wie lösche ich den alten Text?
Schöne Grüße
Rafl |
|
| |
| |
| |
|
|
HofK | |
| |
| |
| |
|
|
 | [OFFTOPIC]klar, drawtext 10,10,"Testtext" aber ein fenster 1500x1200  [/OFFTOPIC] |
|
| |
| |
| |
|
|
HofK | Da gehen noch einige Nullen!
window 5,5 - 1500000000,1200000000
// window 5,5 - 15000000000,12000000000 // negative Fenstergröße
drawtext 10,10,space$(10000)
// drawtext 10,10,space$(100000) // da reißt XProfan 11.2 free die Hufe hoch.
??? Ist das die Hitze der Sonne: 0  Sonne |
|
| |
| |
| |
|
|
rafl | Klaus Hoffmeister (07.08.15)
Der Text wird überschrieben - so einfach:
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)
Bei [...]  bzw. [...] wird das wegradieren genutzt.
So, wie Klaus es beschrieben hat, habe ich es vorher auch probiert gehabt. Ich habe jetzt Schritt für Schritt meine anderen im Programm vorhandenen Befehle weggelassen. Das Problem hängt offenbar mit dem Befehl TextColor 0, -1 zusammen. |
|
| |
| |
| |
|
|
HofK | |
| |
| |
| |
|
|
rafl | | Wie löse ich jetzt mein Problem, dass der zuerst geschriebene Text weg ist und nur der neue Text zu lesen ist? |
|
| |
| |
| |
|
|
ByteAttack | Verstehe das Problem nicht ganz?
Beispiel:
KompilierenMarkierenSeparieren $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 das da:
KompilierenMarkierenSeparierenwindow 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. "
waitinput
|
|
| |
| |
| |
|
|
ByteAttack | Aber mit meinem Beispiel, kann man eine Blondine stundenlang beschäftigen  |
|
| |
| |
| |
|
|
rafl | Vielen Dank,
mit dem Vorschlag von Byte-Attack funktioniert es. Das komische ist nur, sobald ich mein Window verschiebe, wird der Hintergrund hinter dem Text weiß dargestellt. Evtl. probiere ich es auch nochmal mit Klauses zweiten Vorschlag aus.
Rafl |
|
| |
| |
| |
|
|
ByteAttack | Einfach hinter dem WaitInput
KompilierenMarkierenSeparieren
setzen.
KompilierenMarkierenSeparieren $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
|
|
| |
| |
| |
|
(449)
Deutsch
English
Français
Español
Italia