PureBoard

Verfasst: **15.09.2013 15:28**

Hi,

Hier mal der Beispielcode aus der Hilfe:

  If OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
    StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
    StringGadget(2, 8,  60, 306, 20, "Readonly StringGadget", #PB_String_ReadOnly)
    StringGadget(3, 8,  85, 306, 20, "lowercase...", #PB_String_LowerCase)
    StringGadget(4, 8, 110, 306, 20, "uppercase...", #PB_String_UpperCase)
    StringGadget(5, 8, 140, 306, 20, "Borderless StringGadget", #PB_String_BorderLess)
    StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

So, ich bin nun im Cursor im obersten Stringgadget und drücke TAB. Der Cursor springt eins runter. Wie mache ich das, daß der Text gleich markiert wird?
Damit beim Lostippen der alte Text gleich gelöscht wird.
Ich hab zwar die Methode gefunden:
http://www.purebasic.fr/german/viewtopi ... 089#178089
Damit würde ich es irgendwie sicher hinbekommen, aber sicher nicht elegant und schön.

Irgendwelche hab ich das Gefühl das geht ganz einfach. Nur wie?

Verfasst: **15.09.2013 15:42**

Code: Alles auswählen

EnableExplicit

If OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
  StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
  StringGadget(2, 8,  60, 306, 20, "Readonly StringGadget", #PB_String_ReadOnly)
  StringGadget(3, 8,  85, 306, 20, "lowercase...", #PB_String_LowerCase)
  StringGadget(4, 8, 110, 306, 20, "uppercase...", #PB_String_UpperCase)
  StringGadget(5, 8, 140, 306, 20, "Borderless StringGadget", #PB_String_BorderLess)
  StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password)
  SetActiveGadget(0)
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Break
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0, 1, 3, 4, 5, 6
            If EventType() = #PB_EventType_Focus
               SendMessage_(GadgetID(EventGadget()), #EM_SETSEL, Len(GetGadgetText(EventGadget())), 0)
            EndIf
        EndSelect
    EndSelect
  ForEver
EndIf

Verfasst: **15.09.2013 16:05**

So oder so ähnlich hätte ich das wohl auch gemacht

Ein Danke ging raus.

PureBoard

Markieren des Inhalts im Stringgadget nach TAB-Sprung -best?

Markieren des Inhalts im Stringgadget nach TAB-Sprung -best?

Re: Markieren des Inhalts im Stringgadget nach TAB-Sprung -b

Re: Markieren des Inhalts im Stringgadget nach TAB-Sprung -b