| |
| |
|
| - page 1 - |
|
rafl | j'ai une avec DrawText geschrieben Text, qui im weiteren Verlauf des Programms wieder gelöscht bzw. pour dem Effacer avec einem anderen Text überschrieben volonté soll. comment lösche Je l' alten Text?
belle Grüße
Rafl |
|
| |
| |
| |
|
|
| |
| |
| - page 1 - |
|
 | [OFFTOPIC]bien sûr, drawtext 10,10,"Testtext" mais un la fenêtre 1500x1200  [/OFFTOPIC] |
|
| |
| |
| |
|
|
HofK | là aller encore quelques Nullen!
window 5,5 - 1500000000,1200000000
// window 5,5 - 15000000000,12000000000 // negative Fenstergröße
drawtext 10,10,space$(10000)
// drawtext 10,10,space$(100000) // là reißt XProfan 11.2 free qui Hufe hoch.
??? Ist cela qui Hitze qui soleil: 0  soleil |
|
| |
| |
| |
|
|
rafl | Klaus Hoffmeister (07.08.15)
qui Text wird überschrieben - so simple:
Klaus Hoffmeister (07.08.15)
window 5,5-1500,1200
drawtext 10,10,"Testtext"
waitinput
drawtext 10,10,"neuer Text"
waitinput
drawtext 10,10," " // ou bien space$(100)
waitinput
Klaus Hoffmeister (07.08.15)
chez [...]  bzw. [...] wird cela wegradieren genutzt.
So, comment Klaus es beschrieben hat, habe je es auparavant aussi probiert gehabt. j'ai maintenant Schritt pour Schritt mon anderen im Programme vorhandenen Befehle weggelassen. cela Problem hängt évident avec dem Befehl Couleur du texte 0, -1 zusammen. |
|
| |
| |
| |
|
|
HofK | |
| |
| |
| |
|
|
rafl | | comment löse je maintenant mon Problem, dass qui d'abord geschriebene Text weg ist et seulement qui neue Text trop lesen ist? |
|
| |
| |
| |
|
|
ByteAttack | Verstehe cela Problem pas entier?
Beispiel:
KompilierenMarqueSéparation $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 cela là:
KompilierenMarqueSéparationwindow 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 | mais avec meinem Beispiel, peux on une Blondine stundenlang beschäftigen  |
|
| |
| |
| |
|
|
rafl | Vielen Dank,
avec dem Vorschlag de Byte-Attack funktioniert es. cela komische ist seulement, sobald je mon Fenêtre verschiebe, wird qui Hintergrund derrière dem Text sais dargestellt. Evtl. probiere je es aussi nochmal avec Klauses zweiten Vorschlag aus.
Rafl |
|
| |
| |
| |
|
|
ByteAttack | simple derrière dem WaitInput
KompilierenMarqueSéparation
mettons.
KompilierenMarqueSéparation $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
|
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
| Wobei es ensuite vlt. dans diesem le cas hilfreich wäre, statt DrawText lieber
create("text",... trop verwenden?! Text ensuite oui simple per SetText änderbar. |
|
| |
| |
| |
|
|
ByteAttack | | Richtig! mais je crois il voudrais es 'farbig' avons et qui SKControl pas einsetzen... |
|
| |
| |
| |
|
(1.915)
Deutsch
English
Français
Español
Italia