StringGadget markieren

[marcelx]

Hallo,

ich vermisse, in mein Gedächtnis, wie ich der Inhalt eine StringGadget markiert!
Ich habe dies Möglichkeit irgend wann verwendet - aber wo.

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 322, 205, "StringGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
    StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
    SetActiveGadget(0)
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Gruß MarcelX

[ST4242]

Hallo,

meinst Du so?

Funktioniert aber nur unter Windows.

Code: Alles auswählen

Procedure SetMark(id,start,ende)              
  SendMessage_(GadgetID(id),#EM_SETSEL,start-1,ende+start-1)   
EndProcedure

If OpenWindow(0, 0, 0, 322, 205, "StringGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
    StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
    SetActiveGadget(0)
    setmark(0,2,4); Zeichen markieren
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Grüße

[marcelx]

Hallo ST4242,

super, danke für die Lösung
Grüße
MarcelX