fix, shortcut editor want first/want next, always handle the last result

src/ce_shortcutseditor.lfm

@@ -44,6 +44,7 @@ object CEShortcutEditor: TCEShortcutEditor
       HideSelection = False
       ReadOnly = True
       ScrollBars = ssAutoBoth
+      SortType = stText
       TabOrder = 1
       OnSelectionChanged = treeSelectionChanged
       Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]

src/ce_shortcutseditor.pas

@@ -65,6 +65,7 @@ type
     procedure optionedEvent(anEvent: TOptionEditorEvent);
     //
     function findCategory(const aName: string; aData: Pointer): TTreeNode;
+    function sortCategories(Cat1, Cat2: TTreeNode): integer;
     procedure updateFromObservers;
     procedure updateEditCtrls;
   protected
@@ -253,31 +254,26 @@ begin
         exit(tree.Items[i]);
 end;
 
+function TCEShortcutEditor.sortCategories(Cat1, Cat2: TTreeNode): integer;
+begin
+  result := CompareText(Cat1.Text, Cat2.Text);
+end;
+
 procedure TCEShortcutEditor.updateFromObservers;
 var
   i: Integer;
   obs: ICEEditableShortCut;
   cat: string;
-  prt: TTreeNode;
   sht: word;
   idt: string;
   itm: TShortcutItem;
-begin
-  tree.Items.Clear;
-  fShortcuts.items.Clear;
-  fBackup.items.Clear;
-  cat := '';
-  idt := '';
-  for i:= 0 to fObservers.observersCount-1 do
-  begin
-    obs := fObservers.observers[i] as ICEEditableShortCut;
-    if obs.scedWantFirst then while obs.scedWantNext(cat, idt, sht) do
+procedure addItem();
+var
+  prt: TTreeNode;
 begin
   // root category
-      if cat = '' then
-        continue;
-      if idt = '' then
-        continue;
+  if cat = '' then exit;
+  if idt = '' then exit;
   prt := findCategory(cat, obs);
   if prt = nil then
     prt := tree.Items.AddObject(nil, cat, obs);
@@ -289,8 +285,24 @@ begin
   cat := '';
   idt := '';
 end;
+begin
+  tree.Items.Clear;
+  fShortcuts.items.Clear;
+  fBackup.items.Clear;
+  cat := '';
+  idt := '';
+  for i:= 0 to fObservers.observersCount-1 do
+  begin
+    obs := fObservers.observers[i] as ICEEditableShortCut;
+    if obs.scedWantFirst then
+    begin
+      while obs.scedWantNext(cat, idt, sht) do
+        addItem();
+      addItem();
     end;
   end;
+  tree.Items.SortTopLevelNodes(@sortCategories);
+end;
 {$ENDREGION}
 
 initialization