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