Changeset 62 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Sep 29, 2010, 9:34:34 AM (14 years ago)

Author:

george

Message:

• Upraveno: Zamezení ihned startu kotvení záložky při pokliku na záložku.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (6 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -84 +84 @@
   TCoolDockManager = class(TDockManager)
   private
+    MouseDown: Boolean;
+    MouseButton: TMouseButton;
     FMaster: TCoolDockMaster;
     FMoveDuration: Integer;
@@ -105 +107 @@
     procedure SetMoveDuration(const AValue: Integer);
     procedure SetTabsPos(const AValue: THeaderPos);
+    procedure TabControlMouseLeave(Sender: TObject);
+    procedure TabControlChange(Sender: TObject);
+    procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
     procedure UpdateClientSize;
-    procedure TabControlChange(Sender: TObject);
     procedure PopupMenuListClick(Sender: TObject);
     procedure PopupMenuTabsClick(Sender: TObject);
@@ -119 +126 @@
     procedure PopupMenuCustomizeClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
-    procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
   public
     constructor Create(ADockSite: TWinControl); override;
@@ -290 +295 @@
 end;
 
+procedure TCoolDockManager.TabControlMouseLeave(Sender: TObject);
+begin
+  if MouseDown then
+  if (TabControl.TabIndex <> -1) then begin
+    TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel.DockSite := False;
+    DragManager.DragStart(TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control, False, 1);
+  end;
+  MouseDown := False;
+end;
+
 constructor TCoolDockManager.Create(ADockSite: TWinControl);
 var
@@ -448 +463 @@
     OnChange := TabControlChange;
     PopupMenu := PopupMenuTabs;
-    //OnMouseDown := TabControlMouseDown;
+    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseLeave := TabControlMouseLeave;
     TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;
+    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseUp := TabControlMouseUp;
     Images := TabImageList;
   end;
@@ -901 +917 @@
       Shift: TShiftState; X, Y: Integer);
 begin
-  if (Button = mbLeft) and (TabControl.TabIndex <> -1) then begin
-    TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel.DockSite := False;
-    DragManager.DragStart(TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control, False, 1);
-  end;
+  MouseDown := True;
+  MouseButton := Button;
+end;
+
+procedure TCoolDockManager.TabControlMouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  MouseDown := False;
 end;