From 855798e5b684d4a302d10f7067a909c25863e5a9 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Sat, 3 Jul 2010 01:45:24 +0200
Subject: [PATCH] Add option not to show tray icon at all times

---
 Projects/Simba/simbaunit.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index abad04b..9fded29 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -1264,6 +1264,11 @@ begin
   else
     ShowConsole(false);
   {$endif}
+  if Lowercase(LoadSettingDef('Settings/Tray/AlwaysVisible', 'True')) <> 'true' then
+  begin
+    MTrayIcon.Hide;
+    writeln('Hiding tray.');
+  end;
   self.EndFormUpdate;
 end;
 
@@ -2436,6 +2441,8 @@ end;
 procedure TSimbaForm.MTrayIconClick(Sender: TObject);
 begin
   self.Show;
+  if Lowercase(LoadSettingDef('Settings/Tray/AlwaysVisible', 'True')) <> 'true' then
+    MTrayIcon.Hide;
   if Self.CanFocus then
     self.SetFocus;
 end;
@@ -2518,6 +2525,7 @@ end;
 
 procedure TSimbaForm.ButtonTrayClick(Sender: TObject);
 begin
+  MTrayIcon.Show;
   self.hide;
 end;