Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.613 by h677, Sun Jul 30 17:25:32 2006 UTC revision 1.614 by h677, Sun Aug 6 13:20:45 2006 UTC
# Line 18  uses Line 18  uses
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;
# Line 666  type Line 667  type
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;
# Line 678  type Line 683  type
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;
# Line 789  type Line 795  type
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;
# Line 821  implementation Line 830  implementation
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,
# Line 844  const Line 853  const
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);
# Line 4836  begin Line 4846  begin
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:
# Line 7702  begin Line 7718  begin
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

Legend:
Removed from v.1.613  
changed lines
  Added in v.1.614

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26