From 6b45fc46074fdb2335f53bdb7049696d6a16ec23 Mon Sep 17 00:00:00 2001 From: genyakun Date: Mon, 26 Sep 2005 15:59:27 +0000 Subject: [PATCH] =?utf8?q?=E3=82=AE=E3=82=B3=E3=83=8A=E3=83=93Wiki=20FAQ?= =?utf8?q?=E3=82=92=E3=83=98=E3=83=AB=E3=83=97=E5=86=85=E3=81=AB=E8=BF=BD?= =?utf8?q?=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.dfm | 8 ++++++-- Giko.pas | 9 +++++++++ 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/Giko.dfm b/Giko.dfm index ba3c755..29d707c 100644 --- 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 --- 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 éŒ¾ } 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 -- 2.11.0