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.614 by h677, Sun Aug 6 13:20:45 2006 UTC revision 1.615 by h677, Sun Aug 6 14:32:41 2006 UTC
# Line 410  type Line 410  type
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;
# Line 667  type Line 669  type
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
# Line 797  type Line 797  type
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;
# Line 900  begin Line 902  begin
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    
# Line 7721  end; Line 7724  end;
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;
# Line 7729  end; Line 7732  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;
# Line 7745  end; Line 7750  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    

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

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