moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00
Code Issues Releases Wiki Activity

Changed Tray behavior.

Browse Source
This commit is contained in:
Raymond 2010-04-16 00:30:19 +02:00
parent ebf4b496d6
commit f1587b0209
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/SAMufasaGUI/testunit.lfm
View File

@ -2471,7 +2471,7 @@ object Form1: TForm1
00000000000000000000 00000000000000000000
} }
Visible = True Visible = True
OnClick = NoTray OnClick = MTrayIconClick
left = 528 left = 528
top = 104 top = 104
end end

17
Projects/SAMufasaGUI/testunit.pas
View File

@ -285,12 +285,12 @@ type
procedure MenuItemTabCloseClick(Sender: TObject); procedure MenuItemTabCloseClick(Sender: TObject);
procedure MenuItemTabCloseOthersClick(Sender: TObject); procedure MenuItemTabCloseOthersClick(Sender: TObject);
procedure MenuItemFunctionListClick(Sender: TObject); procedure MenuItemFunctionListClick(Sender: TObject);
procedure MTrayIconClick(Sender: TObject);
procedure NewsTimerTimer(Sender: TObject); procedure NewsTimerTimer(Sender: TObject);
procedure OnLinePSScript(Sender: TObject); procedure OnLinePSScript(Sender: TObject);
procedure ButtonPickClick(Sender: TObject); procedure ButtonPickClick(Sender: TObject);
procedure ButtonSelectorDown(Sender: TObject; Button: TMouseButton; procedure ButtonSelectorDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure NoTray(Sender: TObject);
procedure PageControl1Change(Sender: TObject); procedure PageControl1Change(Sender: TObject);
procedure ButtonTrayClick(Sender: TObject); procedure ButtonTrayClick(Sender: TObject);
procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean); procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
@ -2337,6 +2337,13 @@ begin
FunctionListShown(not MenuItemFunctionList.Checked); FunctionListShown(not MenuItemFunctionList.Checked);
end; end;
procedure TForm1.MTrayIconClick(Sender: TObject);
begin
self.Show;
if Self.CanFocus then
self.SetFocus;
end;
function TForm1.GetSimbaNews: String; function TForm1.GetSimbaNews: String;
var var
t: TDownloadThread; t: TDownloadThread;
@ -2404,14 +2411,6 @@ begin
FormWritelnEx('New window: ' + IntToStr(Selector.LastPick)); FormWritelnEx('New window: ' + IntToStr(Selector.LastPick));
end; end;
procedure TForm1.NoTray(Sender: TObject);
begin
if Not Form1.IsVisible then
Self.MenuItemShowClick(Sender)
else
Form1.Hide;
end;
procedure TForm1.PageControl1Change(Sender: TObject); procedure TForm1.PageControl1Change(Sender: TObject);
begin begin
RefreshTab(); RefreshTab();