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.526 by genyakun, Sat Oct 1 08:39:19 2005 UTC revision 1.527 by genyakun, Fri Oct 14 06:43:25 2005 UTC
# Line 564  type Line 564  type
564      SelectComboBoxSplitter: TImage;      SelectComboBoxSplitter: TImage;
565      ToolButton1: TToolButton;      ToolButton1: TToolButton;
566      N74: TMenuItem;      N74: TMenuItem;
567      FAQW1: TMenuItem;      WikiFAQ: TMenuItem;
568        WikiFAQWebPageAction: TAction;
569                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
570                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
571                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 889  type Line 890  type
890            Shift: TShiftState);            Shift: TShiftState);
891      procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;      procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;
892        var AllowEdit: Boolean);        var AllowEdit: Boolean);
893      procedure FAQW1Click(Sender: TObject);      procedure WikiFAQWebPageActionExecute(Sender: TObject);
894          private          private
895                  { Private 宣言 }                  { Private 宣言 }
896                  FSortIndex: Integer;                  FSortIndex: Integer;
# Line 4017  var Line 4018  var
4018  begin  begin
4019  //      if FActiveList <> Obj then begin  //      if FActiveList <> Obj then begin
4020                  FActiveList := Obj;                  FActiveList := Obj;
4021                  try          try
4022                          if ListView.Selected <> nil then                          if ListView.Selected <> nil then
4023                                  idx := ListView.Selected.Index                                  idx := ListView.Selected.Index
4024                          else                          else
4025                                  idx := -1;                                  idx := -1;
4026                  except          except
4027                          idx := -1;                  idx := -1;
4028                  end;          end;
4029                  ListView.Items.Count := 0;                  ListView.Items.Count := 0;
4030                  ListView.Items.Clear;                  ListView.Items.Clear;
4031                  ListView.Selected := nil;                  ListView.Selected := nil;
# Line 7056  end; Line 7057  end;
7057    
7058  procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject);  procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject);
7059  const  const
7060          DEL_MSG = '絞込み履歴を削除します。よろしいですか?';          DEL_MSG = '絞込み全履歴を削除します。よろしいですか?';
7061          DEL_TITLE = '削除確認';          DEL_TITLE = '削除確認';
7062  begin  begin
7063          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
# Line 7072  procedure TGikoForm.NameTextClearActionE Line 7073  procedure TGikoForm.NameTextClearActionE
7073  var  var
7074          i: Integer;          i: Integer;
7075  const  const
7076          DEL_MSG = 'レスエディタ名前履歴をすべて削除します。よろしいですか?';          DEL_MSG = 'レスエディタ名前全履歴を削除します。よろしいですか?';
7077          DEL_TITLE = '削除確認';          DEL_TITLE = '削除確認';
7078  begin  begin
7079          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
# Line 7089  procedure TGikoForm.MailTextClearActionE Line 7090  procedure TGikoForm.MailTextClearActionE
7090  var  var
7091          i: Integer;          i: Integer;
7092  const  const
7093          DEL_MSG = 'レスエディタメール履歴をすべて削除します。よろしいですか?';          DEL_MSG = 'レスエディタメール全履歴を削除します。よろしいですか?';
7094          DEL_TITLE = '削除確認';          DEL_TITLE = '削除確認';
7095  begin  begin
7096          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then          if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
# Line 8142  end; Line 8143  end;
8143    
8144  procedure TGikoForm.ToolButton18Click(Sender: TObject);  procedure TGikoForm.ToolButton18Click(Sender: TObject);
8145  const  const
8146          DEL_MSG = 'すべての履歴を削除します。よろしいですか?';          DEL_MSG = '全履歴を削除します。よろしいですか?';
8147          DEL_TITLE = '削除確認';          DEL_TITLE = '削除確認';
8148  begin  begin
8149          if FTreeType = gttHistory then begin          if FTreeType = gttHistory then begin
# Line 9498  begin Line 9499  begin
9499                  end;                  end;
9500          end;          end;
9501    
   
9502          SetLinkBar;          SetLinkBar;
9503    
9504  end;  end;
# Line 12176  begin Line 12176  begin
12176          MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP);          MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP);
12177  end;  end;
12178    
12179    procedure TGikoForm.WikiFAQWebPageActionExecute(Sender: TObject);
 procedure TGikoForm.FAQW1Click(Sender: TObject);  
12180  const  const
12181          URL_2ch: string = 'http://gikowiki.dyndns.info/index.php?FAQ';          URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
12182  begin  begin
12183          GikoSys.OpenBrowser(URL_2ch, gbtAuto);          GikoSys.OpenBrowser(URL_Wiki, gbtAuto);
12184  end;  end;
12185    
12186  initialization  initialization

Legend:
Removed from v.1.526  
changed lines
  Added in v.1.527

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