PureBoard

Verfasst: **18.11.2006 21:39**

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**

@ts-soft
Danke für dein Code

Verfasst: **19.11.2006 10:48**

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

PureBoard

Markierten Txt in EditorGadget ermitteln