Markierten Txt in EditorGadget ermitteln

[RSBasic]

Hi ihr, ich habe eine Frage und brauche eure Hife. Wie kann ich ein markierten Text ermitteln? Bitte helft mir

[ts-soft]

Code: Alles auswählen

Define.CHARRANGE sel
Define.s buffer

If OpenWindow(0, #PB_Ignore, 0, 640, 450, "Test") And CreateGadgetList(WindowID(0))
  EditorGadget(0, 0, 0, 640, 400)
  ButtonGadget(1, 280, 410, 80, 30, "Get Select")
  
  Repeat
    
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Break
      
      Case #PB_Event_Gadget
        If EventGadget() = 1
          SendMessage_(GadgetID(0), $0434, 0, @sel)
          buffer = Space((sel\cpMax - sel\cpMin) + 1)
          SendMessage_(GadgetID(0), $043E, 0, @buffer)
          Debug buffer        
        EndIf
      
    EndSelect
  ForEver
EndIf

[RSBasic]

@ts-soft
Danke für dein Code

[HeX0R]

Weiss jetzt nicht, wieso ts-soft hier die Werte anstatt der Konstanten angegeben hat.
Da dann natürlich der Lerneffekt gleich Null ist, noch der Nachtrag:

Code: Alles auswählen

#EM_EXGETSEL = $0434
#EM_GETSELTEXT = $043E