OSDN Git Service
(root)
/
gikonavigoeson
/
gikonavi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
85ae7ac
)
ギコナビWiki FAQをヘルプ内に追加
author
genyakun
<genyakun>
Mon, 26 Sep 2005 15:59:27 +0000
(15:59 +0000)
committer
genyakun
<genyakun>
Mon, 26 Sep 2005 15:59:27 +0000
(15:59 +0000)
Giko.dfm
patch
|
blob
|
history
Giko.pas
patch
|
blob
|
history
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
object GikoForm: TGikoForm
- Left =
384
- Top =
37
+ Left =
176
+ Top =
124
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoScroll = False
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoScroll = False
@@
-9980,6
+9980,10
@@
object GikoForm: TGikoForm
object H4: TMenuItem
Action = GikoHelpAction
end
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
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;
SelectComboBoxSplitter: TImage;
ToolButton1: TToolButton;
N74: TMenuItem;
+ FAQW1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CabinetPanelHide(Sender: TObject);
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);
Shift: TShiftState);
procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean);
+ procedure FAQW1Click(Sender: TObject);
private
{ Private
\90
é
\8c
¾ }
FSortIndex: Integer;
private
{ Private
\90
é
\8c
¾ }
FSortIndex: Integer;
@@
-12175,6
+12177,13
@@
begin
end;
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
initialization
OleInitialize(nil);
finalization