From 957096f653fe5509e766c5281d1a48ae28582b53 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sun, 5 Oct 2003 10:17:16 +0000
Subject: [PATCH] =?utf8?q?WebTab=E3=81=AED&D=E3=81=AE=E8=AA=BF=E6=95=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm |  4 ++--
 Giko.pas | 18 +++++++++++++++---
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/Giko.dfm b/Giko.dfm
index 348c31d..03410b0 100644
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 384
-  Top = 277
+  Left = 626
+  Top = 239
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
diff --git a/Giko.pas b/Giko.pas
index c8d2973..0931bfe 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -844,8 +844,10 @@ type
     FDropSpaceNode: TTreeNode;
 
 
-        FDragTime : Cardinal;	//ƒŠƒ“ƒN‚ÌD&D—p‚ÉŽžŠÔ•Û‘¶—p
+        FDragTime : Cardinal;	//ƒŠƒ“ƒN‚ÌD&D—p
         FDragButton : TToolButton;	//ƒŠƒ“ƒN‚ÌD&D—p‚ÉDrag‚µ‚Ä‚éButton•Û‘¶
+        FDragWFirst : Boolean;	//WebTab‚ÌD&D—p
+        FDragWTabName : Integer;  //WebTab‚ÌD&D—p
 
 		procedure SetBoardTreeNode;
 		function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;
@@ -5158,8 +5160,18 @@ var
 	ThreadItem: TThreadItem;
 begin
 	if ( ssLeft in Shift )then begin
-        BrowserTab.EndDrag(false);
-        BrowserTab.BeginDrag(false, DandD_THRESHOLD);
+        if not FDragWFirst then begin
+        	FDragWFirst := true;
+            FDragWTabName := BrowserTab.IndexOfTabAt(x, y);
+        end else begin
+        	if BrowserTab.IndexOfTabAt(x, y) <> FDragWTabName then begin
+		        BrowserTab.EndDrag(false);
+        		BrowserTab.BeginDrag(false, DandD_THRESHOLD);
+                FDragWFirst := false;
+            end;
+        end;
+    end else begin
+	    FDragWFirst := true;
     end;
 	TabIdx := BrowserTab.IndexOfTabAt(x, y);
 	if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
-- 
2.11.0