ギコナビWiki FAQをヘルプ内に追加

diff --git a/Giko.dfm b/Giko.dfm
index ba3c755..29d707c 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 384
-  Top = 37
+  Left = 176
+  Top = 124
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -9980,6 +9980,10 @@ object GikoForm: TGikoForm
       object H4: TMenuItem
         Action = GikoHelpAction
       end
+      object FAQW1: TMenuItem
+        Caption = #12462#12467#12490#12499'Wiki FAQ(&W)'
+        OnClick = FAQW1Click
+      end
       object N36: TMenuItem
         Caption = '-'
       end

diff --git a/Giko.pas b/Giko.pas
index 76a8b9e..c83dd87 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -564,6 +564,7 @@ type
     SelectComboBoxSplitter: TImage;
     ToolButton1: TToolButton;
     N74: TMenuItem;
+    FAQW1: TMenuItem;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -888,6 +889,7 @@ type
          Shift: TShiftState);
     procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;
       var AllowEdit: Boolean);
+    procedure FAQW1Click(Sender: TObject);
        private
                { Private \90é\8c¾ }
                FSortIndex: Integer;
@@ -12175,6 +12177,13 @@ begin
 end;
 
 
+procedure TGikoForm.FAQW1Click(Sender: TObject);
+const
+       URL_2ch: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
+begin
+       GikoSys.OpenBrowser(URL_2ch, gbtAuto);
+end;
+
 initialization
                                OleInitialize(nil);
 finalization