・ブラウザタブのがタブスタイルになっている時はタブのドラッグアンドドロップを可能に。

diff --git a/Giko.pas b/Giko.pas
index 4d280e8..40959bc 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -5100,10 +5100,9 @@ begin
                        BrowserTabPopupMenu.Tag := idx;
                        BrowserTabPopupMenu.Popup(p2.X, p2.Y);
                end;
-       {end else if BUtton = mbLeft then begin
+       end else if BUtton = mbLeft then begin
                        FDragWFirst := true;
-               }
-               end;
+       end;
 
 end;
 
@@ -5188,20 +5187,18 @@ begin
 
        TabIdx := BrowserTab.IndexOfTabAt(x, y);
 
-       if ( ssLeft in Shift )then begin
+       if ( ssLeft in Shift ) and ( BrowserTab.Style = tsTabs ) then begin
                if FDragWFirst = false then begin
-               //      FDragWFirst := true;
-               end else begin{
-                       BrowserTab.EndDrag(false);
-                               BrowserTab.BeginDrag(false, DandD_THRESHOLD);
-                               FDragWFirst := false;
-               }end;
+                       FDragWFirst := true;
                end else begin
-               {
                        BrowserTab.EndDrag(false);
+                       BrowserTab.BeginDrag(false, DandD_THRESHOLD);
                        FDragWFirst := false;
-               }
                end;
+       end else begin
+               BrowserTab.EndDrag(false);
+               FDragWFirst := false;
+       end;
 
        if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
                Application.CancelHint;