| 799 |
procedure TaskTrayIconMessage(var Msg : TMsg); message WM_USER + 2010; |
procedure TaskTrayIconMessage(var Msg : TMsg); message WM_USER + 2010; |
| 800 |
//! タスクトレイにアイコン登録&フォーム隠し |
//! タスクトレイにアイコン登録&フォーム隠し |
| 801 |
procedure StoredTaskTray; |
procedure StoredTaskTray; |
|
|
|
| 802 |
published |
published |
| 803 |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
| 804 |
end; |
end; |
| 4841 |
if not (ssAlt in KeyDataToShiftState(TWMChar(Message).KeyData)) then |
if not (ssAlt in KeyDataToShiftState(TWMChar(Message).KeyData)) then |
| 4842 |
Exit; |
Exit; |
| 4843 |
WM_SYSCOMMAND: |
WM_SYSCOMMAND: |
| 4844 |
if Message.WParam = SC_MINIMIZE then |
if Message.WParam = SC_MINIMIZE then begin |
| 4845 |
OnMinimize; |
OnMinimize; |
| 4846 |
|
PostMessage(Handle, USER_MINIMIZED, 0, 0); |
| 4847 |
|
end; |
| 4848 |
USER_TREECLICK: |
USER_TREECLICK: |
| 4849 |
TreeClick( TreeView.Selected ); |
TreeClick( TreeView.Selected ); |
| 4850 |
USER_RESIZED: |
USER_RESIZED: |
| 4852 |
USER_MINIMIZED: |
USER_MINIMIZED: |
| 4853 |
begin |
begin |
| 4854 |
if (GikoSys.Setting.StoredTaskTray) then begin |
if (GikoSys.Setting.StoredTaskTray) then begin |
|
// タスクトレイにアイコンを追加する |
|
| 4855 |
StoredTaskTray; |
StoredTaskTray; |
| 4856 |
end; |
end; |
| 4857 |
OnMinimized; |
OnMinimized; |
| 4858 |
end; |
end; |
| 4859 |
USER_SETLINKBAR: |
USER_SETLINKBAR: |
| 4860 |
SetLinkBar; |
SetLinkBar; |
| 7741 |
FIconData.hIcon := Application.Icon.Handle; {アイコン指定} |
FIconData.hIcon := Application.Icon.Handle; {アイコン指定} |
| 7742 |
FIconData.szTip := 'ギコナビ'; {ヒント文字列} |
FIconData.szTip := 'ギコナビ'; {ヒント文字列} |
| 7743 |
Shell_NotifyIcon(NIM_ADD, @FIconData); |
Shell_NotifyIcon(NIM_ADD, @FIconData); |
| 7744 |
|
|
| 7745 |
ShowWindow(Self.Handle, SW_HIDE); |
ShowWindow(Self.Handle, SW_HIDE); |
| 7746 |
end; |
end; |
| 7747 |
except |
except |