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.615 by h677, Sun Aug 6 14:32:41 2006 UTC revision 1.616 by h677, Tue Aug 8 15:28:59 2006 UTC
# Line 799  type Line 799  type
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;
# Line 4842  begin Line 4841  begin
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:
# Line 4851  begin Line 4852  begin
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;
# Line 7741  begin Line 7741  begin
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

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

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