Code : Tout sélectionner
If OpenWindow(0,0,0,322,150,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget") And CreateGadgetList(WindowID(0))
EditorGadget (500,8,8,306,133,#PB_Container_Raised)
For a=0 To 5
AddGadgetItem(500,a,"Line "+Str(a))
Debug GetGadgetItemText(500,a,1)
SetGadgetItemText(500,a, "test"+Str(a),1)
Next
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf