Seite 1 von 1

Markierten Txt in EditorGadget ermitteln

Verfasst: 18.11.2006 21:12
von RSBasic
Hi ihr, ich habe eine Frage und brauche eure Hife. Wie kann ich ein markierten Text ermitteln? Bitte helft mir :|

Verfasst: 18.11.2006 21:39
von 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

Verfasst: 18.11.2006 22:52
von RSBasic
@ts-soft
Danke für dein Code :D

Verfasst: 19.11.2006 10:48
von 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