browserTabのポップアップメニューの挙動がおかしかったので修正。

diff --git a/Giko.dfm b/Giko.dfm
index 0dbda71..957ae16 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -826,6 +826,7 @@ object GikoForm: TGikoForm
                 TabHeight = 16
                 TabOrder = 0
                 OnChange = BrowserTabChange
+                OnContextPopup = BrowserTabContextPopup
                 OnDragDrop = BrowserTabDragDrop
                 OnDragOver = BrowserTabDragOver
                 OnMouseDown = BrowserTabMouseDown
@@ -5795,10 +5796,18 @@ object GikoForm: TGikoForm
           Action = NotSelectTabCloseAction
           GroupIndex = 1
         end
+        object N24: TMenuItem
+          Caption = '-'
+          GroupIndex = 1
+        end
         object A6: TMenuItem
           Action = AllTabCloseAction
           GroupIndex = 1
         end
+        object N62: TMenuItem
+          Caption = '-'
+          GroupIndex = 1
+        end
         object D4: TMenuItem
           Action = ActiveLogDeleteAction
           GroupIndex = 1
@@ -6163,9 +6172,15 @@ object GikoForm: TGikoForm
     object A3: TMenuItem
       Action = NotSelectTabCloseAction
     end
+    object N18: TMenuItem
+      Caption = '-'
+    end
     object A5: TMenuItem
       Action = AllTabCloseAction
     end
+    object N20: TMenuItem
+      Caption = '-'
+    end
     object D3: TMenuItem
       Action = ActiveLogDeleteAction
     end

diff --git a/Giko.pas b/Giko.pas
index 03af953..6cbe295 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -513,6 +513,10 @@ type
                FavoriteTreeViewBrowseBoardAction: TAction;
                FavoriteTreeViewBrowseThreadAction: TAction;
                UpBoardAction: TAction;
+    N18: TMenuItem;
+    N20: TMenuItem;
+    N24: TMenuItem;
+    N62: TMenuItem;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -816,6 +820,8 @@ type
                procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
                procedure UpBoardActionExecute(Sender: TObject);
                procedure UpBoardActionUpdate(Sender: TObject);
+    procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
+      var Handled: Boolean);
        private
                { Private \90é\8c¾ }
 
@@ -5301,8 +5307,10 @@ begin
                                BrowserTab.OnChange(nil);
                        end;
                end;
-       end else if Button = mbRight then begin
-               // \83}\83E\83X\89E\83{\83^\83\93
+       //end else if Button = mbRight then begin
+       //PopupMenu\82ÅBrowserTabPoupMenu\82ð\8ew\92è\82µ\82Ä\82¢\82é\82Ì\82Å\82±\82±\82Å\82í\82´\82í\82´\8cÄ\82Ñ\8fo\82·\82Æ\82Q\8fd\82É\82È\82é
+    //OnContextPopup\82Å\82à\82µ\82àActive\82ÈTab\88È\8aO\82Å\8cÄ\82Ñ\8fo\82³\82ê\82½\82çTab\82ð\90Ø\82è\91Ö\82¦\82é\82æ\82¤\82É\82µ\82½\81B
+{              // \83}\83E\83X\89E\83{\83^\83\93
                GetCursorPos(p);
                p2 := p;
 //             GetCursorPos(p2);
@@ -5317,6 +5325,7 @@ begin
                        BrowserTabPopupMenu.Tag := idx;
                        BrowserTabPopupMenu.Popup(p2.X, p2.Y);
                end;
+}
        end else if BUtton = mbLeft then begin
                        FDragWFirst := true;
        end;
@@ -8680,6 +8689,19 @@ begin
 
 end;
 
+procedure TGikoForm.BrowserTabContextPopup(Sender: TObject;
+  MousePos: TPoint; var Handled: Boolean);
+var
+       idx : Integer;
+begin
+    idx := BrowserTab.IndexOfTabAt(MousePos.X, MousePos.Y);
+    if BrowserTab.TabIndex <> idx then begin
+               BrowserTab.TabIndex := idx;
+       BrowserTab.OnChange(nil);
+    end;
+
+end;
+
 initialization
                                OleInitialize(nil);
 finalization