From fdf97c0bdb3e7b8994f44353441eae2cad7bd36a Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 7 Aug 2004 12:36:00 +0000
Subject: [PATCH] =?utf8?q?head.txt=E3=82=92=E3=83=96=E3=83=A9=E3=82=A6?=
 =?utf8?q?=E3=82=B6=E3=81=A7=E8=A1=A8=E7=A4=BA=E3=81=99=E3=82=8B=E6=A9=9F?=
 =?utf8?q?=E8=83=BD=E3=82=92=E8=BF=BD=E5=8A=A0=EF=BC=88=E3=83=AC=E3=82=B9?=
 =?utf8?q?=E3=82=A8=E3=83=87=E3=82=A3=E3=82=BF=E3=83=BC=E3=81=8B=E3=82=89?=
 =?utf8?q?=E3=81=AE=E7=A7=BB=E5=8B=95=EF=BC=89?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm | 13 +++++++++++--
 Giko.pas | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 44 insertions(+), 2 deletions(-)

diff --git a/Giko.dfm b/Giko.dfm
index 6840a64..05e1313 100644
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = -61
-  Top = 148
+  Left = 111
+  Top = 135
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -9133,6 +9133,10 @@ object GikoForm: TGikoForm
         Action = BoardIEAction
         GroupIndex = 1
       end
+      object BrowsBoradHeadAction1: TMenuItem
+        Action = BrowsBoradHeadAction
+        GroupIndex = 1
+      end
       object URLC3: TMenuItem
         Action = SelectItemURLCopyAction
         GroupIndex = 1
@@ -10415,6 +10419,11 @@ object GikoForm: TGikoForm
       Hint = #12479#12502#12398#38918#30058#12434#24489#20803
       OnExecute = TabsOpenActionExecute
     end
+    object BrowsBoradHeadAction: TAction
+      Category = #26495
+      Caption = 'Head.txt'#12434#12502#12521#12454#12470#12391#34920#31034#12377#12427
+      OnExecute = BrowsBoradHeadActionExecute
+    end
   end
   object BrowserPopupMenu: TPopupMenu
     Left = 68
diff --git a/Giko.pas b/Giko.pas
index 28f5d39..3e018e5 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -562,6 +562,8 @@ type
     OnlyNewResAction: TAction;
     OnlyKokoResAction: TAction;
     A14: TMenuItem;
+    BrowsBoradHeadAction: TAction;
+    BrowsBoradHeadAction1: TMenuItem;
 				procedure FormCreate(Sender: TObject);
 		procedure FormDestroy(Sender: TObject);
 		procedure CabinetPanelHide(Sender: TObject);
@@ -906,6 +908,7 @@ type
     procedure OnlyAHundredResExecute(Sender: TObject);
     procedure OnlyKokoResActionExecute(Sender: TObject);
     procedure OnlyNewResActionExecute(Sender: TObject);
+    procedure BrowsBoradHeadActionExecute(Sender: TObject);
 	private
 		{ Private éŒ¾ }
         //RoundList : TRoundList;
@@ -11015,6 +11018,36 @@ begin
 	end;
 end;
 
+procedure TGikoForm.BrowsBoradHeadActionExecute(Sender: TObject);
+var
+	RefURL, URL : string;
+	List : TList;
+begin
+	RefURL := '';
+	if GetActiveList is TCategory then begin
+		List := TList.Create;
+		try
+			SelectListItem(List);
+			RefURL := TBoard(List[0]).URL;
+		finally
+			List.Free;
+		end;
+	end else if GetActiveList is TBoard then begin
+		RefURL := TBoard(GetActiveList).URL
+	end;
+	if RefURL <> '' then begin
+		if RefURL[Length(RefURL)] <> '/' then
+			URL	:= RefURL + '/' + 'head.txt'
+		else
+			URL	:= RefURL + 'head.txt';
+
+		MoveToURL(URL);
+	end else begin
+		ShowMessage('”‚ð“Á’è‚Å‚«‚Ü‚¹‚ñ‚Å‚µ‚½B');
+	end;
+
+end;
+
 initialization
 				OleInitialize(nil);
 finalization
-- 
2.11.0