From d26f78b4fd1daa63ee06905ca9ee9fa6a3799b8d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 9 Nov 2013 07:19:38 +0000
Subject: [PATCH] Add "Show only favorites" to the context menu items of "Tree
 style options".

---
 source/main.dfm | 6 +++++-
 source/main.pas | 1 +
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/source/main.dfm b/source/main.dfm
index 35b5f4ce..5d23a0a3 100644
--- a/source/main.dfm
+++ b/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
diff --git a/source/main.pas b/source/main.pas
index abfe4d73..a7f3b5ff 100644
--- a/source/main.pas
+++ b/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);