Add "Show only favorites" to the context menu items of "Tree style options".

source/main.dfm

@@ -2735,7 +2735,7 @@ object MainForm: TMainForm
     object actFavoriteObjectsOnly: TAction
       Category = 'Various'
       AutoCheck = True
-      Caption = 'actFavoriteObjectsOnly'
+      Caption = 'Show only favorites'
       Hint = 'Show only favorite tree items'
       ImageIndex = 112
       OnExecute = actFavoriteObjectsOnlyExecute
@@ -9065,6 +9065,10 @@ object MainForm: TMainForm
       object menuSelectBGColor: TMenuItem
         Action = actSelectTreeBackground
       end
+      object actFavoriteObjectsOnly1: TMenuItem
+        Action = actFavoriteObjectsOnly
+        AutoCheck = True
+      end
     end
     object menuPrint: TMenuItem
       Action = actPrintList

source/main.pas

@@ -578,6 +578,7 @@ type
     btnHelp: TToolButton;
     lblDonate: TLabel;
     lblUpdateAvailable: TLabel;
+    actFavoriteObjectsOnly1: TMenuItem;
     procedure actCreateDBObjectExecute(Sender: TObject);
     procedure menuConnectionsPopup(Sender: TObject);
     procedure actExitApplicationExecute(Sender: TObject);