Editor-Gadget, wie Markierung in Stringvariable übernehmen?

[JayCool]

Hi @ all,

vielen Dank erstmal, insbesondere an hjbremer!

Ich hab' mal ein Beispiel gebaut, das vielleicht auch für andere, die sich gerade in die Materie einarbeiten wollen, interessant sein könnte:

Code: Alles auswählen

OpenWindow(0,100,100,800,600,"Selektierten Bereich des Editor-Gadgets in String übernehmen",#PB_Window_SystemMenu)

CreateGadgetList(WindowID(0))
  EditorGadget(0,50,50,700,300)
  TextGadget(1,50,400,700,20,"<markierter Text>",#PB_Text_Border)
  ButtonGadget(2,50,470,150,20,"Markierung übernehmen")

Repeat
  event = WaitWindowEvent()
  
  gnr = EventGadget()
  
  If gnr = 2
    
    SendMessage_((0), #EM_EXGETSEL, 0, @markiert.CHARRANGE)
    txt$ = Space(1 + markiert\cpMax - markiert\cpMin)
    SendMessage_(GadgetID(0), #EM_GETSELTEXT, 0, @txt$)
    
    SetGadgetText(1,txt$)
  
  EndIf
  
Until event = #PB_Event_CloseWindow

Gruß, Jan