From 03da9803e195c95e585f384240ecf5b38decaa9a Mon Sep 17 00:00:00 2001
From: genyakun <genyakun>
Date: Fri, 14 Oct 2005 06:43:25 +0000
Subject: [PATCH] =?utf8?q?=E3=83=90=E3=82=BF50=E3=83=AA=E3=83=AA=E3=83=BC?=
 =?utf8?q?=E3=82=B93=E3=81=BE=E3=81=A7=E3=82=92=E3=83=9E=E3=83=BC=E3=82=B8?=
 =?utf8?q?=EF=BC=88=E3=81=9F=E3=81=B6=E3=82=93=EF=BC=89?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm | 11 ++++++++---
 Giko.pas | 29 ++++++++++++++---------------
 2 files changed, 22 insertions(+), 18 deletions(-)

diff --git a/Giko.dfm b/Giko.dfm
index 073931b..412296e 100644
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -9982,9 +9982,9 @@ object GikoForm: TGikoForm
       object H4: TMenuItem
         Action = GikoHelpAction
       end
-      object FAQW1: TMenuItem
-        Caption = #12462#12467#12490#12499'Wiki FAQ(&W)'
-        OnClick = FAQW1Click
+      object WikiFAQ: TMenuItem
+        Action = WikiFAQWebPageAction
+        Caption = #12462#12467#12490#12499'Wiki FAQ'
       end
       object N36: TMenuItem
         Caption = '-'
@@ -11209,6 +11209,11 @@ object GikoForm: TGikoForm
       Hint = #12473#12524#12483#12489#19968#35239#12398#36984#25246#12434#35299#38500#12377#12427
       OnExecute = UnSelectedListViewActionExecute
     end
+    object WikiFAQWebPageAction: TAction
+      Category = #12504#12523#12503
+      Caption = 'WikiFAQWebPageAction'
+      OnExecute = WikiFAQWebPageActionExecute
+    end
   end
   object BrowserPopupMenu: TPopupMenu
     Left = 68
diff --git a/Giko.pas b/Giko.pas
index a78854f..609f1b3 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -564,7 +564,8 @@ type
     SelectComboBoxSplitter: TImage;
     ToolButton1: TToolButton;
     N74: TMenuItem;
-    FAQW1: TMenuItem;
+    WikiFAQ: TMenuItem;
+    WikiFAQWebPageAction: TAction;
 				procedure FormCreate(Sender: TObject);
 		procedure FormDestroy(Sender: TObject);
 		procedure CabinetPanelHide(Sender: TObject);
@@ -889,7 +890,7 @@ type
 	  Shift: TShiftState);
     procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;
       var AllowEdit: Boolean);
-    procedure FAQW1Click(Sender: TObject);
+    procedure WikiFAQWebPageActionExecute(Sender: TObject);
 	private
 		{ Private éŒ¾ }
 		FSortIndex: Integer;
@@ -4017,14 +4018,14 @@ var
 begin
 //	if FActiveList <> Obj then begin
 		FActiveList := Obj;
-		try
+        try
 			if ListView.Selected <> nil then
 				idx := ListView.Selected.Index
 			else
 				idx := -1;
-		except
-			idx := -1;
-		end;
+        except
+        	idx := -1;
+        end;
 		ListView.Items.Count := 0;
 		ListView.Items.Clear;
 		ListView.Selected := nil;
@@ -7056,7 +7057,7 @@ end;
 
 procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject);
 const
-	DEL_MSG = 'iž‚Ý—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
+	DEL_MSG = 'iž‚Ý‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
 	DEL_TITLE = 'íœŠm”F';
 begin
 	if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
@@ -7072,7 +7073,7 @@ procedure TGikoForm.NameTextClearActionExecute(Sender: TObject);
 var
 	i: Integer;
 const
-	DEL_MSG = 'ƒŒƒXƒGƒfƒBƒ^–¼‘O—š—ð‚ð‚·‚×‚Äíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
+	DEL_MSG = 'ƒŒƒXƒGƒfƒBƒ^–¼‘O‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
 	DEL_TITLE = 'íœŠm”F';
 begin
 	if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
@@ -7089,7 +7090,7 @@ procedure TGikoForm.MailTextClearActionExecute(Sender: TObject);
 var
 	i: Integer;
 const
-	DEL_MSG = 'ƒŒƒXƒGƒfƒBƒ^ƒ[ƒ‹—š—ð‚ð‚·‚×‚Äíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
+	DEL_MSG = 'ƒŒƒXƒGƒfƒBƒ^ƒ[ƒ‹‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
 	DEL_TITLE = 'íœŠm”F';
 begin
 	if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then
@@ -8142,7 +8143,7 @@ end;
 
 procedure TGikoForm.ToolButton18Click(Sender: TObject);
 const
-	DEL_MSG = '‚·‚ׂĂ̗š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
+	DEL_MSG = '‘S—š—ð‚ðíœ‚µ‚Ü‚·B‚æ‚낵‚¢‚Å‚·‚©H';
 	DEL_TITLE = 'íœŠm”F';
 begin
 	if FTreeType = gttHistory then begin
@@ -9498,7 +9499,6 @@ begin
 		end;
 	end;
 
-
 	SetLinkBar;
 
 end;
@@ -12176,12 +12176,11 @@ begin
 	MsgBox(Handle, s, 'ˆ—‚³‚ê‚È‚©‚Á‚½—áŠO', MB_OK or MB_ICONSTOP);
 end;
 
-
-procedure TGikoForm.FAQW1Click(Sender: TObject);
+procedure TGikoForm.WikiFAQWebPageActionExecute(Sender: TObject);
 const
-	URL_2ch: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
+	URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
 begin
-	GikoSys.OpenBrowser(URL_2ch, gbtAuto);
+	GikoSys.OpenBrowser(URL_Wiki, gbtAuto);
 end;
 
 initialization
-- 
2.11.0