From 2564265d0022905c66661d6fd7125b162ab3c951 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Wed, 1 Oct 2003 12:06:08 +0000
Subject: [PATCH] =?utf8?q?MouseMove=E3=81=AE=E4=BA=8C=E3=81=A4=E7=9B=AE?=
 =?utf8?q?=E3=81=AEif=E6=96=87=E3=82=92=E5=BE=A9=E6=B4=BB=E3=80=82D&D?=
 =?utf8?q?=E3=81=AE=E9=96=BE=E5=80=A4=E3=82=92DandD=5FTHRESHOLD=E3=81=AB?=
 =?utf8?q?=E3=81=97=E3=81=9F=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 60 +++++++++++++++++++++++++++++++-----------------------------
 1 file changed, 31 insertions(+), 29 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 6e02ec6..c699315 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -993,7 +993,8 @@ const
 	BLANK_HTML: string = 'about:blank';
 	SELECTCOMBOBOX_NAME: string = ''; // 'ƒXƒŒƒbƒhižŒŸõ';
 	SELECTCOMBOBOX_COLOR: TColor = clWindow;
-
+    //D&D臒l
+    DandD_THRESHOLD	= 5;	//D&D‚Ì臒lipixcel)
 	//ƒcƒŠ[EƒŠƒXƒgƒAƒCƒRƒ“
 	ITEM_ICON_2CH1					= 0;		//2chƒAƒCƒRƒ“
 	ITEM_ICON_2CH2					= 1;		//2chƒAƒCƒRƒ“
@@ -5041,22 +5042,23 @@ var
 	OldIndex: Integer;
 begin
 //	if Button = mbLeft then begin
-	if (Button = mbLeft) and (Shift = [ssLeft]) then begin
+//	if (Button = mbLeft) and (Shift = [ssLeft]) then begin
 		// ƒ}ƒEƒX¶ƒ{ƒ^ƒ“
 //		BrowserTab.BeginDrag(False, 5);
 //		BrowserTabClick(Sender);
-    {$IFDEF DEBUG}
-      Writeln( 'TabMouseDown: FTabIsDragging = ' + IntToStr( FTabIsDragging ) );
-    {$ENDIF}
-		if FTabIsDragging <> 3 then begin
-      {$IFDEF DEBUG}
-        Writeln( '-> 1' );
-      {$ENDIF}
-      FTabIsDragging := 1;
-      FTabMouseDownX := X;
-      FTabMouseDownY := Y;
-    end;
-	end else if Button = mbMiddle then begin
+//    {$IFDEF DEBUG}
+//      Writeln( 'TabMouseDown: FTabIsDragging = ' + IntToStr( FTabIsDragging ) );
+//    {$ENDIF}
+//		if FTabIsDragging <> 3 then begin
+//      {$IFDEF DEBUG}
+//        Writeln( '-> 1' );
+//      {$ENDIF}
+//      FTabIsDragging := 1;
+//      FTabMouseDownX := X;
+//      FTabMouseDownY := Y;
+//    end;
+//	end else
+    if Button = mbMiddle then begin
 		// ƒ}ƒEƒX’†ƒ{ƒ^ƒ“
 		GetCursorPos(p);
 		p2 := p;
@@ -5174,7 +5176,7 @@ var
 	ThreadItem: TThreadItem;
 begin
 	if ( ssLeft in Shift )then begin
-        BrowserTab.BeginDrag(false, 2);
+        BrowserTab.BeginDrag(false, DandD_THRESHOLD);
     end;
 //
 //	if FTabIsDragging = 1 then begin
@@ -5189,19 +5191,19 @@ begin
 //  end else if MilliSecondsBetween( Now, FTabMouseUpTime ) >= 1000 then begin
 //  	FTabIsDragging := 0;
 //  end;
-//	TabIdx := BrowserTab.IndexOfTabAt(x, y);
-//	if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
-//		Application.CancelHint;
-//		ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[TabIdx]);
-//		if ThreadItem.Title <> BrowserTab.Tabs[TabIdx] then begin
-//			BrowserTab.Hint := ThreadItem.Title;
-//			Application.ShowHint := True;
-//		end else begin
-//			BrowserTab.Hint := '';
-//			Application.ShowHint := True;
-//		end;
-//		FTabHintIndex := TabIdx;
-//	end;
+	TabIdx := BrowserTab.IndexOfTabAt(x, y);
+	if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
+		Application.CancelHint;
+		ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[TabIdx]);
+		if ThreadItem.Title <> BrowserTab.Tabs[TabIdx] then begin
+			BrowserTab.Hint := ThreadItem.Title;
+			Application.ShowHint := True;
+		end else begin
+			BrowserTab.Hint := '';
+			Application.ShowHint := True;
+		end;
+		FTabHintIndex := TabIdx;
+	end;
 
 end;
 
@@ -8165,7 +8167,7 @@ end;
 
 procedure TGikoForm.LinkToolBarClick(Sender: TObject);
 begin
-	LinkToolBar.BeginDrag(false,2);
+	LinkToolBar.BeginDrag(false,DandD_THRESHOLD);
 end;
 
 initialization
-- 
2.11.0