PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 400,200, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 10,10, 380, 160)
  ButtonGadget(1,10,175,60,20,"SORT")
  AddGadgetItem(0, -1, "23/05/90 deux")
  AddGadgetItem(0, -1, "23/04/90 trois")
  AddGadgetItem(0, -1, "23/06/90 quatre")
   
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1
      
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          itemn = CountGadgetItems(0)
          Dim a.s(itemn)
          For k = 0 To itemn
            a(k) = GetGadgetItemText(0,k)
          Next
          SortArray(a(), #PB_Sort_Ascending | #PB_Sort_NoCase)
          ClearGadgetItems(0)    
          For k = 0 To itemn
            AddGadgetItem(0,-1,a(k))
          Next
          RemoveGadgetItem(0, 0) 
      EndSelect
  EndSelect
Until Quit = 1
EndIf