PureBoard

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