・ブラウザツールバーに板表示ボタンを設置。

　デフォルトには入れてないのでユーザの好みにより。

diff --git a/Giko.dfm b/Giko.dfm
index 96e7d09..5b5cc5a 100644 (file)
--- 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 (file)
--- 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 \90é\8c¾ }
 
@@ -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 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ