• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision4654c901c6cdc45280c0e89b81690712d01e19aa (tree)
Time2008-05-10 19:13:19
Authorh677 <h677>
Commiterh677

Log Message

タスクトレイの右クリックで終了メニューを出すようにした。

Change Summary

Incremental Difference

--- a/Giko.dfm
+++ b/Giko.dfm
@@ -8750,4 +8750,11 @@ object GikoForm: TGikoForm
87508750 Left = 8
87518751 Top = 440
87528752 end
8753+ object TaskTrayPopupMenu: TPopupMenu
8754+ Left = 38
8755+ Top = 373
8756+ object Exit1: TMenuItem
8757+ Action = GikoDM.ExitAction
8758+ end
8759+ end
87538760 end
--- a/Giko.pas
+++ b/Giko.pas
@@ -417,6 +417,8 @@ type
417417 IDNG1: TMenuItem;
418418 IDNG2: TMenuItem;
419419 ResPopupClearTimer: TTimer;
420+ TaskTrayPopupMenu: TPopupMenu;
421+ Exit1: TMenuItem;
420422 procedure FormCreate(Sender: TObject);
421423 procedure FormDestroy(Sender: TObject);
422424 procedure BrowserStatusTextChange(Sender: TObject;
@@ -1547,6 +1549,11 @@ var
15471549 tmpBool : Boolean;
15481550 doc:IHTMLDocument2;
15491551 begin
1552+ // ƒ^ƒXƒNƒgƒŒƒC‚̃AƒCƒRƒ“íœ
1553+ if (FIconData.uID <> 0) then begin
1554+ Shell_NotifyIcon(NIM_DELETE, @FIconData);
1555+ end;
1556+
15501557 // ƒ}ƒEƒXƒWƒFƒXƒ`ƒƒ[ŠJ•ú
15511558 try
15521559 if GikoSys.Setting.GestureEnabled then begin
@@ -7753,10 +7760,17 @@ begin
77537760 end;
77547761
77557762 procedure TGikoForm.TaskTrayIconMessage(var Msg: TMsg);
7763+var
7764+ p: TPoint;
77567765 begin
77577766 // ¶ƒNƒŠƒbƒN‚È‚ç•œŒ³‚·‚é
77587767 if (Msg.wParam = WM_LBUTTONUP) then begin
77597768 UnStoredTaskTray;
7769+ end else if (Msg.wParam=WM_RBUTTONUP) then begin
7770+ // ‰EƒNƒŠƒbƒN‚È‚çI—¹‚·‚é
7771+ GetCursorPos ( p );
7772+ SetForegroundWindow ( Self.Handle );
7773+ TaskTrayPopupMenu.Popup ( p.X, p.Y );
77607774 end;
77617775 end;
77627776 //! ƒ^ƒXƒNƒgƒŒƒC‚ɃAƒCƒRƒ““o˜^•ƒtƒH[ƒ€‰B‚µ