| 18 |
Editor, RoundData, GikoPanel, Favorite, HTMLDocumentEvent, |
Editor, RoundData, GikoPanel, Favorite, HTMLDocumentEvent, |
| 19 |
HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager, |
HintWindow, GikoCoolBar, GikoListView, Search, ExternalBoardManager, |
| 20 |
ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection, |
ExternalBoardPlugInMain, StdActns, Variants, ExtActns,IdTCPConnection, |
| 21 |
IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem; |
IdBaseComponent, IdTCPClient, AppEvnts, BrowserRecord, MoveHistoryItem, |
| 22 |
|
ShellAPI; |
| 23 |
|
|
| 24 |
const |
const |
| 25 |
NGWORDNAME_PANEL = 3; |
NGWORDNAME_PANEL = 3; |
| 667 |
procedure RefreshListView(Thread: TThreadItem); |
procedure RefreshListView(Thread: TThreadItem); |
| 668 |
//! スレッド一覧の表示範囲設定チェッククリア |
//! スレッド一覧の表示範囲設定チェッククリア |
| 669 |
procedure ClearThreadRengeAction; |
procedure ClearThreadRengeAction; |
| 670 |
|
//! タスクトレイにアイコン登録&フォーム隠し |
| 671 |
|
procedure StoredTaskTray; |
| 672 |
|
//! タスクトレイのアイコン削除&フォーム表示 |
| 673 |
|
procedure UnStoredTaskTray; |
| 674 |
protected |
protected |
| 675 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 676 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 683 |
LastRoundTime: TDateTime; |
LastRoundTime: TDateTime; |
| 684 |
BrowserNullTab: TBrowserRecord; |
BrowserNullTab: TBrowserRecord; |
| 685 |
FControlThread: TThreadControl; |
FControlThread: TThreadControl; |
| 686 |
|
FIconData : TNotifyIconData; |
| 687 |
procedure MoveToURL(const inURL: string); |
procedure MoveToURL(const inURL: string); |
| 688 |
function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord; |
function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord; |
| 689 |
procedure ReloadBBS; |
procedure ReloadBBS; |
| 795 |
//! ツールバーにスレ絞込みコンボボックスを設定する |
//! ツールバーにスレ絞込みコンボボックスを設定する |
| 796 |
procedure SetSelectComboBox(); |
procedure SetSelectComboBox(); |
| 797 |
|
|
| 798 |
|
//! タスクトレイに格納したアイコンをクリックしたときの処理 |
| 799 |
|
procedure TaskTrayIconMessage(var Msg : TMsg); message WM_USER + 2010; |
| 800 |
|
|
| 801 |
published |
published |
| 802 |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton; |
| 803 |
end; |
end; |
| 830 |
|
|
| 831 |
uses |
uses |
| 832 |
GikoUtil, IndividualAbon, Math, Kotehan, KeySetting, |
GikoUtil, IndividualAbon, Math, Kotehan, KeySetting, |
| 833 |
YofUtils, ShellAPI, ToolBarUtil, ToolBarSetting, |
YofUtils, ToolBarUtil, ToolBarSetting, |
| 834 |
GikoXMLDoc, RoundName, IniFiles, FavoriteAdd, |
GikoXMLDoc, RoundName, IniFiles, FavoriteAdd, |
| 835 |
FavoriteArrange, AddressHistory, Preview, Gesture, |
FavoriteArrange, AddressHistory, Preview, Gesture, |
| 836 |
About, Option, Round, Splash, Sort, ListSelect, Imm, |
About, Option, Round, Splash, Sort, ListSelect, Imm, |
| 853 |
USER_MINIMIZED = WM_USER + 2002; |
USER_MINIMIZED = WM_USER + 2002; |
| 854 |
USER_SETLINKBAR = WM_USER + 2003; |
USER_SETLINKBAR = WM_USER + 2003; |
| 855 |
USER_DOCUMENTCOMPLETE = WM_USER + 2004; ///< wParam : TWebBrowser |
USER_DOCUMENTCOMPLETE = WM_USER + 2004; ///< wParam : TWebBrowser |
| 856 |
|
USER_TASKTRAY = WM_USER + 2010; |
| 857 |
{$R *.DFM} |
{$R *.DFM} |
| 858 |
|
|
| 859 |
procedure TGikoForm.CreateParams(var Params: TCreateParams); |
procedure TGikoForm.CreateParams(var Params: TCreateParams); |
| 4846 |
USER_RESIZED: |
USER_RESIZED: |
| 4847 |
OnResized; |
OnResized; |
| 4848 |
USER_MINIMIZED: |
USER_MINIMIZED: |
| 4849 |
OnMinimized; |
begin |
| 4850 |
|
if (GikoSys.Setting.StoredTaskTray) then begin |
| 4851 |
|
// タスクトレイにアイコンを追加する |
| 4852 |
|
StoredTaskTray; |
| 4853 |
|
end; |
| 4854 |
|
OnMinimized; |
| 4855 |
|
end; |
| 4856 |
USER_SETLINKBAR: |
USER_SETLINKBAR: |
| 4857 |
SetLinkBar; |
SetLinkBar; |
| 4858 |
USER_DOCUMENTCOMPLETE: |
USER_DOCUMENTCOMPLETE: |
| 7718 |
end; |
end; |
| 7719 |
end; |
end; |
| 7720 |
|
|
| 7721 |
|
procedure TGikoForm.TaskTrayIconMessage(var Msg: TMsg); |
| 7722 |
|
begin |
| 7723 |
|
// 左クリックなら復元する |
| 7724 |
|
if (Msg.wParam = WM_LBUTTONDOWN) then begin |
| 7725 |
|
UnStoredTaskTray; |
| 7726 |
|
end; |
| 7727 |
|
end; |
| 7728 |
|
//! タスクトレイにアイコン登録&フォーム隠し |
| 7729 |
|
procedure TGikoForm.StoredTaskTray; |
| 7730 |
|
begin |
| 7731 |
|
try |
| 7732 |
|
FIconData.cbSize := SizeOf(TNotifyIconData); |
| 7733 |
|
FIconData.uID := 1; |
| 7734 |
|
FIconData.Wnd := Handle; |
| 7735 |
|
FIconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; |
| 7736 |
|
FIconData.uCallbackMessage := USER_TASKTRAY; |
| 7737 |
|
FIconData.hIcon := Application.Icon.Handle; {アイコン指定} |
| 7738 |
|
FIconData.szTip := 'ギコナビ'; {ヒント文字列} |
| 7739 |
|
Shell_NotifyIcon(NIM_ADD, @FIconData); |
| 7740 |
|
ShowWindow(Self.Handle, SW_HIDE); |
| 7741 |
|
except |
| 7742 |
|
end; |
| 7743 |
|
end; |
| 7744 |
|
//! タスクトレイのアイコン削除&フォーム表示 |
| 7745 |
|
procedure TGikoForm.UnStoredTaskTray; |
| 7746 |
|
begin |
| 7747 |
|
try |
| 7748 |
|
Shell_NotifyIcon(NIM_DELETE, @FIconData); |
| 7749 |
|
SetForegroundWindow(Application.Handle); |
| 7750 |
|
ShowWindow(Self.Handle, SW_RESTORE); |
| 7751 |
|
except |
| 7752 |
|
end; |
| 7753 |
|
end; |
| 7754 |
|
|
| 7755 |
initialization |
initialization |
| 7756 |
OleInitialize(nil); |
OleInitialize(nil); |
| 7757 |
finalization |
finalization |