Text im OpenWindow flackert leicht, wenn ich eine Taste..
Verfasst: 03.08.2014 16:01
Hallo, guten Tag.
Text im OpenWindow flackert leicht, wenn ich eine Taste drücke.
Wie kann man das bitte unterdrücken?
Danke.
Gruss
Text im OpenWindow flackert leicht, wenn ich eine Taste drücke.
Wie kann man das bitte unterdrücken?
Danke.
Gruss
Code: Alles auswählen
Global font1.l
Enumeration
#Window_0
#text_1
#font
EndEnumeration
OpenWindow(#Window_0, 0, 0, 640, 480, "", #PB_Window_SystemMenu)
Font1 = LoadFont( #font, "Lucida Console" ,14)
TextGadget(#text_1, 0, 0, 640, 480, "")
SetGadgetFont(#text_1, FontID)
Text.s = ""
Repeat
Select WaitWindowEvent(1)
Case #PB_Event_CloseWindow
Break
Case #WM_CHAR
Char.c = EventwParam()
If Char <> #BS
Text + Chr(Char)
Else
Text = Left(Text, Len(Text) - 1)
EndIf
SetGadgetText(#text_1, Text)
EndSelect
ForEver