| |
|
|
- Page 1 - |
|
rafl | I have a with DrawText written Text, the in the further course the program again deleted or. to the Delete with a others Text überschrieben go should. How lösche I the middle-aged Text?
Best wishes Rafl |
|
|
| |
|
|
|
| |
|
- Page 1 - |
|
| [OFFTOPIC]clear, drawtext 10,10,"Testtext" but one window 1500x1200 [/OFFTOPIC] |
|
|
| |
|
|
|
HofK | there weg yet some nobodies! window 5,5 - 1500000000,1200000000 // window 5,5 - 15000000000,12000000000 // negatives Fenstergröße
drawtext 10,10,space$(10000)
// drawtext 10,10,space$(100000) // there tear XProfan 11.2 free The Hufe high.
??? is the The heat the sun: 0 sun |
|
|
| |
|
|
|
rafl | Klaus Hoffmeister (07.08.15)
The Text becomes überschrieben - so simply:
Klaus Hoffmeister (07.08.15)
window 5,5-1500,1200 drawtext 10,10,"Testtext" waitinput drawtext 10,10,"neuer Text" waitinput drawtext 10,10," " // or space$(100) waitinput
Klaus Hoffmeister (07.08.15)
with [...] or. [...] becomes the wegradieren used.
so, How Klaus it described has, have I it before too probiert had. I have now step for step my others in the program vorhandenen command omitted. The problem depends evident with the commands Text Color 0, -1 together. |
|
|
| |
|
|
|
HofK | |
|
| |
|
|
|
rafl | How resolve I now my trouble, that the first written Text lane is and only the new Text To reading is? |
|
|
| |
|
|
|
ByteAttack | understand the trouble not integrally?
example: CompileMarkSeparation $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 | helps the there: CompileMarkSeparationwindow 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 | but with my example, can a blond for hours keep busy |
|
|
| |
|
|
|
rafl | Vielen Thanks,
with the suggestion of byte-Attack functions it. the komische is only, once I my Window shift, becomes the background behind the Text white displayed. Evtl. Try I it too again with Klauses second suggestion from.
Rafl |
|
|
| |
|
|
|
ByteAttack | simply behind the WaitInput CompileMarkSeparation settle. CompileMarkSeparation $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 - |
|
|
| where it then vlt. in this drop helpful would, instead of DrawText rather create("text",... To use?! Text then Yes simply by SetText änderbar. |
|
|
| |
|
|
|
ByteAttack | correctly.! but I faith it would like it 'farbig' and have The SKControl not bring into action... |
|
|
| |
|
|