From: yoffy <yoffy>
Date: Fri, 28 Nov 2003 04:54:56 +0000 (+0000)
Subject: ・ブラウザツールバーに板表示ボタンを設置。
X-Git-Tag: v1_64_1_820~1523
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=3c0533cb46ee1670a8ad9098510d3aaa8a708025;p=gikonavigoeson%2Fgikonavi.git

・ブラウザツールバーに板表示ボタンを設置。
　デフォルトには入れてないのでユーザの好みにより。
---

diff --git a/Giko.dfm b/Giko.dfm
index 96e7d09..5b5cc5a 100644
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -8564,6 +8564,14 @@ object GikoForm: TGikoForm
       ImageIndex = 27
       OnExecute = FavoriteTreeViewBrowseThreadActionExecute
     end
+    object UpBoardAction: TAction
+      Category = #12473#12524#12483#12489
+      Caption = #26495#12434#34920#31034
+      Hint = #12371#12398#12473#12524#12483#12489#12434#21547#12416#12473#12524#12483#12489#19968#35239#12434#34920#31034
+      ImageIndex = 8
+      OnExecute = UpBoardActionExecute
+      OnUpdate = UpBoardActionUpdate
+    end
   end
   object MainMenu: TMainMenu
     Images = HotToobarImageList
diff --git a/Giko.pas b/Giko.pas
index 0747873..73de267 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -512,6 +512,7 @@ type
 		N17: TMenuItem;
 		FavoriteTreeViewBrowseBoardAction: TAction;
 		FavoriteTreeViewBrowseThreadAction: TAction;
+		UpBoardAction: TAction;
 		procedure FormCreate(Sender: TObject);
 		procedure FormDestroy(Sender: TObject);
 		procedure CabinetPanelHide(Sender: TObject);
@@ -813,6 +814,8 @@ type
 		procedure CabinetBBSActionExecute(Sender: TObject);
 		procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
 		procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
+		procedure UpBoardActionExecute(Sender: TObject);
+		procedure UpBoardActionUpdate(Sender: TObject);
 	private
 		{ Private éŒ¾ }
 
@@ -4760,6 +4763,22 @@ begin
 	SelectTimer.Enabled := False;
 	if Selected then
 		SelectTimer.Enabled := True;
+
+	{
+	if ListView.Selected = nil then
+		Exit;
+	if ListView.Selected.Data = nil then
+	Exit;
+	if TThreadItem( ListView.Selected.Data ).IsLogFile then begin
+		if GikoSys.Setting.ListOrientation = gloHorizontal then begin
+			if GikoSys.Setting.ListWidthState = glsMin then
+				BrowserMaxAction.Execute;
+		end else begin
+			if GikoSys.Setting.ListHeightState = glsMin then
+				BrowserMaxAction.Execute;
+		end;
+	end;
+	}
 end;
 
 procedure TGikoForm.SelectTimerTimer(Sender: TObject);
@@ -8775,6 +8794,29 @@ begin
 
 end;
 
+procedure TGikoForm.UpBoardActionExecute(Sender: TObject);
+begin
+
+	SelectTreeNode( GetActiveContent.ParentBoard, True );
+	{
+	if GikoSys.Setting.ListOrientation = gloHorizontal then begin
+		if GikoSys.Setting.ListWidthState = glsMax then
+			BrowserMinAction.Execute;
+	end else begin
+		if GikoSys.Setting.ListHeightState = glsMax then
+			BrowserMinAction.Execute;
+	end;
+	}
+
+end;
+
+procedure TGikoForm.UpBoardActionUpdate(Sender: TObject);
+begin
+
+	UpBoardAction.Enabled := GetActiveContent <> nil;
+
+end;
+
 initialization
 				OleInitialize(nil);
 finalization
diff --git a/gikoNavi.res b/gikoNavi.res
index 0c3a542..008ceeb 100644
Binary files a/gikoNavi.res and b/gikoNavi.res differ