mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 15:58:51 -05:00
Add option not to show tray icon at all times
This commit is contained in:
parent
7a22f7a3fa
commit
855798e5b6
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user