ブラウザタブをクリックしても最大化されない事がある問題に対処。

※座標のチェックをはずしているので不具合が起きないか注意！

diff --git a/Giko.pas b/Giko.pas
index b4f0684..ba07ec4 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -10095,7 +10095,9 @@ procedure TGikoForm.BrowserTabMouseUp(Sender: TObject;
 begin
        if FDragWFirst <> true then begin
                FDragWFirst := false;
-       end else if (X = FMouseDownPos.X) and (Y = FMouseDownPos.Y) then begin
+{      end else if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold)
+       and (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin}
+       end else begin
                if GikoSys.Setting.ListOrientation = gloHorizontal then begin
                        if GikoSys.Setting.ListWidthState = glsMin then begin
                                BrowserMaxAndFocusAction.Execute;