| 410 |
DAT3: TMenuItem; |
DAT3: TMenuItem; |
| 411 |
N76: TMenuItem; |
N76: TMenuItem; |
| 412 |
FavoriteTreeItemNameCopyPopupMenu: TMenuItem; |
FavoriteTreeItemNameCopyPopupMenu: TMenuItem; |
| 413 |
|
N77: TMenuItem; |
| 414 |
|
N78: TMenuItem; |
| 415 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 416 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 417 |
procedure BrowserStatusTextChange(Sender: TObject; |
procedure BrowserStatusTextChange(Sender: TObject; |
| 669 |
procedure RefreshListView(Thread: TThreadItem); |
procedure RefreshListView(Thread: TThreadItem); |
| 670 |
//! スレッド一覧の表示範囲設定チェッククリア |
//! スレッド一覧の表示範囲設定チェッククリア |
| 671 |
procedure ClearThreadRengeAction; |
procedure ClearThreadRengeAction; |
|
//! タスクトレイにアイコン登録&フォーム隠し |
|
|
procedure StoredTaskTray; |
|
| 672 |
//! タスクトレイのアイコン削除&フォーム表示 |
//! タスクトレイのアイコン削除&フォーム表示 |
| 673 |
procedure UnStoredTaskTray; |
procedure UnStoredTaskTray; |
| 674 |
protected |
protected |
| 797 |
|
|
| 798 |
//! タスクトレイに格納したアイコンをクリックしたときの処理 |
//! タスクトレイに格納したアイコンをクリックしたときの処理 |
| 799 |
procedure TaskTrayIconMessage(var Msg : TMsg); message WM_USER + 2010; |
procedure TaskTrayIconMessage(var Msg : TMsg); message WM_USER + 2010; |
| 800 |
|
//! タスクトレイにアイコン登録&フォーム隠し |
| 801 |
|
procedure StoredTaskTray; |
| 802 |
|
|
| 803 |
published |
published |
| 804 |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
| 902 |
GetGroupIndex(GikoDM.GikoFormActionList); |
GetGroupIndex(GikoDM.GikoFormActionList); |
| 903 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 904 |
CreateBrowsers(BROWSER_COUNT); |
CreateBrowsers(BROWSER_COUNT); |
| 905 |
|
FIconData.uID := 0; |
| 906 |
|
|
| 907 |
//メニューフォント |
//メニューフォント |
| 908 |
SetMenuFont; |
SetMenuFont; |
| 909 |
|
|
| 7724 |
procedure TGikoForm.TaskTrayIconMessage(var Msg: TMsg); |
procedure TGikoForm.TaskTrayIconMessage(var Msg: TMsg); |
| 7725 |
begin |
begin |
| 7726 |
// 左クリックなら復元する |
// 左クリックなら復元する |
| 7727 |
if (Msg.wParam = WM_LBUTTONDOWN) then begin |
if (Msg.wParam = WM_LBUTTONUP) then begin |
| 7728 |
UnStoredTaskTray; |
UnStoredTaskTray; |
| 7729 |
end; |
end; |
| 7730 |
end; |
end; |
| 7732 |
procedure TGikoForm.StoredTaskTray; |
procedure TGikoForm.StoredTaskTray; |
| 7733 |
begin |
begin |
| 7734 |
try |
try |
| 7735 |
FIconData.cbSize := SizeOf(TNotifyIconData); |
if (FIconData.uID = 0) then begin |
| 7736 |
FIconData.uID := 1; |
FIconData.cbSize := SizeOf(TNotifyIconData); |
| 7737 |
FIconData.Wnd := Handle; |
FIconData.uID := Self.Handle; |
| 7738 |
FIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; |
FIconData.Wnd := Handle; |
| 7739 |
FIconData.uCallbackMessage := USER_TASKTRAY; |
FIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; |
| 7740 |
FIconData.hIcon := Application.Icon.Handle; {アイコン指定} |
FIconData.uCallbackMessage := USER_TASKTRAY; |
| 7741 |
FIconData.szTip := 'ギコナビ'; {ヒント文字列} |
FIconData.hIcon := Application.Icon.Handle; {アイコン指定} |
| 7742 |
Shell_NotifyIcon(NIM_ADD, @FIconData); |
FIconData.szTip := 'ギコナビ'; {ヒント文字列} |
| 7743 |
ShowWindow(Self.Handle, SW_HIDE); |
Shell_NotifyIcon(NIM_ADD, @FIconData); |
| 7744 |
|
ShowWindow(Self.Handle, SW_HIDE); |
| 7745 |
|
end; |
| 7746 |
except |
except |
| 7747 |
end; |
end; |
| 7748 |
end; |
end; |
| 7750 |
procedure TGikoForm.UnStoredTaskTray; |
procedure TGikoForm.UnStoredTaskTray; |
| 7751 |
begin |
begin |
| 7752 |
try |
try |
| 7753 |
Shell_NotifyIcon(NIM_DELETE, @FIconData); |
try |
| 7754 |
SetForegroundWindow(Application.Handle); |
Shell_NotifyIcon(NIM_DELETE, @FIconData); |
| 7755 |
ShowWindow(Self.Handle, SW_RESTORE); |
SetForegroundWindow(Application.Handle); |
| 7756 |
except |
except |
| 7757 |
|
end; |
| 7758 |
|
finally |
| 7759 |
|
FIconData.uID := 0; |
| 7760 |
|
// Actionから格納したときはTagの値は0以外 |
| 7761 |
|
if (GikoDM.StoredTaskTrayAction.Tag = 0) then begin |
| 7762 |
|
ShowWindow(Self.Handle, SW_RESTORE); |
| 7763 |
|
end else begin |
| 7764 |
|
ShowWindow(Self.Handle, SW_SHOW); |
| 7765 |
|
end; |
| 7766 |
|
GikoDM.StoredTaskTrayAction.Tag := 0; |
| 7767 |
end; |
end; |
| 7768 |
end; |
end; |
| 7769 |
|
|