Changeset 63 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Sep 29, 2010, 10:27:07 AM (14 years ago)

Author:

george

Message:

• Opraveno: Při přepínání záložek se mohlo aktivovat nesprávně kotvení okna.
• Opraveno: Nastaven minimální počet pixelů pro posun před započetím kotvení.

File:

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

Docking/CoolDocking/UCoolDocking.pas

@@ -86 +86 @@
     MouseDown: Boolean;
     MouseButton: TMouseButton;
+    MouseDownSkip: Boolean;
     FMaster: TCoolDockMaster;
     FMoveDuration: Integer;
@@ -466 +467 @@
     TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;
     TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseUp := TabControlMouseUp;
+    OnMouseUp := TabControlMouseUp;
     Images := TabImageList;
   end;
@@ -837 +839 @@
 //  TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
   end;
+  MouseDownSkip := True;
 end;
 
@@ -915 +918 @@
 
 procedure TCoolDockManager.TabControlMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-begin
-  MouseDown := True;
-  MouseButton := Button;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  if not MouseDownSkip then begin
+    MouseDown := True;
+    MouseButton := Button;
+  end;
+  MouseDownSkip := False;
 end;
 
@@ -1046 +1052 @@
     //(Control as TWinControl).DockSite := False;
     ClientAreaPanel.DockSite := False;
-    (Control as TWinControl).BeginDrag(True);
+    (Control as TWinControl).BeginDrag(False, 10);
     //DragManager.DragStart(Control, False, 1);
   end;