fix: tree with keyboard actions shows wrong captions

ansgarbecker · ansgarbecker · commit 5e20c53e21d0 · 2025-11-30T15:28:03.000+01:00
diff --git a/source/main.pas b/source/main.pas
@@ -2069,6 +2069,8 @@ procedure TMainForm.FormCreate(Sender: TObject);
   FActionList1DefaultCaptions := TStringList.Create;
   FActionList1DefaultHints := TStringList.Create;
   for i:=0 to ActionList1.ActionCount-1 do begin
+    Action := TAction(ActionList1.Actions[i]);
+    Action.ShortCut := AppSettings.ReadInt(asActionShortcut1, Action.Name, Action.ShortCut);
     FActionList1DefaultCaptions.Insert(i, Action.Caption);
     FActionList1DefaultHints.Insert(i, Action.Hint);
   end;
diff --git a/source/preferences.pas b/source/preferences.pas
@@ -1244,6 +1244,7 @@ procedure TfrmPreferences.TreeShortcutItemsInitChildren(Sender: TBaseVirtualTree
   end;
 end;
 
+
 procedure TfrmPreferences.TreeShortcutItemsInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
   var InitialStates: TVirtualNodeInitStates);
 var
