From ec42a7ac8f66547b2af0e0a289235a6f47e76b06 Mon Sep 17 00:00:00 2001 From: h677 Date: Mon, 6 Oct 2003 08:36:18 +0000 Subject: [PATCH] =?utf8?q?BrowserTab=E3=81=AED&D=E3=82=92=E3=81=95?= =?utf8?q?=E3=82=89=E3=81=AB=E6=94=B9=E8=89=AF?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Giko.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Giko.pas b/Giko.pas index 7fcd0ab..f08919b 100644 --- a/Giko.pas +++ b/Giko.pas @@ -5063,7 +5063,7 @@ begin BrowserTab.OnChange(nil); end; end; -{ end else if Button = mbRight then begin + end else if Button = mbRight then begin // ƒ}ƒEƒX‰Eƒ{ƒ^ƒ“ GetCursorPos(p); p2 := p; @@ -5079,7 +5079,9 @@ begin BrowserTabPopupMenu.Tag := idx; BrowserTabPopupMenu.Popup(p2.X, p2.Y); end; -} end; + end else if BUtton = mbLeft then begin + FDragWFirst := true; + end; end; @@ -5166,13 +5168,14 @@ begin if ( ssLeft in Shift )then begin if FDragWFirst = false then begin - FDragWFirst := true; + // 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; -- 2.11.0