Seite 1 von 1

Stringgadget ohne blinkenden Cursor

Verfasst: 27.05.2009 15:14
von CNESM

Code: Alles auswählen

OpenWindow(0,0,0,300,100,"Stringgadet without blinking cursor",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 

StringGadget(0,20,20,260,20,"...") 

Repeat 
  Event=WaitWindowEvent() 
  If Event=#PB_Event_Gadget 
    If EventGadget()=0 
      HideCaret_(GadgetID(0)) 
    EndIf 
  EndIf 
Until Event=#PB_Event_CloseWindow

Verfasst: 27.05.2009 15:23
von ts-soft
Hab sowas zwar nie gebraucht, aber wenn, dann würde ich doch den Eventtype unterscheiden:

Code: Alles auswählen

OpenWindow(0,0,0,300,100,"Stringgadet without blinking cursor",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

StringGadget(0,20,20,260,20,"...")

Repeat
  Event=WaitWindowEvent()
  If Event=#PB_Event_Gadget
    If EventGadget()=0
      If EventType() = #PB_EventType_Focus
        HideCaret_(GadgetID(0))
      EndIf
    EndIf
  EndIf
Until Event=#PB_Event_CloseWindow

Verfasst: 28.05.2009 10:11
von CNESM
Hast recht :)

Verfasst: 28.05.2009 17:56
von Andesdaf
schön, werde ich vielleicht nie brauchen, aber trotzdem danke dafür.