Text am Ende einfügen

[Kiffi]

Code aus dem CodeArchiv geklaut und leicht modifiziert:

Code: Alles auswählen

Procedure AppendText(Gadget, Text.s) 
  SendMessage_(GadgetID(Gadget), #EM_SETSEL, -1, -1)
  SendMessage_(GadgetID(Gadget), #EM_REPLACESEL, 0, Text) 
EndProcedure 

OpenWindow(0,0,0,300,330,"Insert",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
CreateGadgetList(WindowID(0)) 
EditorGadget(0,5,5,290,290) 
AppendText(0,"Line 1"+#CRLF$) 
AppendText(0,"Line 2"+#CRLF$) 
AppendText(0,"Line 3") 
ButtonGadget(1,5,300,100,20,"Insert 'xyz'") 
Repeat 
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow: End 
    Case #PB_Event_Gadget 
      Select EventGadget() 
        Case 1: AppendText(0,"xyz") 
      EndSelect 
  EndSelect 
ForEver

Grüße ... Kiffi

[Josef Sniatecki]

Vielen Dank Kiffi - Genau das habe ich gesucht.

@X360 Andy: Nächstes mal klappts

[Kiffi]

Vielen Dank Kiffi - Genau das habe ich gesucht.

kein Thema! Und mit den Begriffen 'EditorGadget' und 'Rechtsklick' findest
Du mit Sicherheit auch was zum Thema Popupmenü

Grüße ... Kiffi