Changeset 183 for Docking/CoolDocking/UCoolDockStyle.pas

Timestamp:

Mar 10, 2011, 7:55:48 AM (13 years ago)

Author:

george

Message:

• Fixed: Insertion in regions on left and top side.
• Added: If inserted control side is defferent than already placed controls then create conjoined subform.

File:

• Docking/CoolDocking/UCoolDockStyle.pas (modified) (2 diffs)

Docking/CoolDocking/UCoolDockStyle.pas

@@ -18 +18 @@
     procedure SetHeaderPos(const AValue: THeaderPos); virtual;
     constructor Create(AManager: TCoolDockManagerBase);
-    procedure InsertControl(NewPanel: TCoolDockClientPanel; AControl: TControl;
+    procedure InsertControl(AControl: TControl;
       InsertAt: TAlign); virtual;
+    procedure RemoveControl(Control: TControl); virtual;
     procedure UpdateClientSize; virtual;
     procedure Switch(Index: Integer); virtual;
@@ -55 +56 @@
 end;
 
-procedure TCoolDockStyle.InsertControl(NewPanel: TCoolDockClientPanel;
-  AControl: TControl; InsertAt: TAlign);
+procedure TCoolDockStyle.InsertControl(AControl: TControl; InsertAt: TAlign);
+begin
+
+end;
+
+procedure TCoolDockStyle.RemoveControl(Control: TControl);
 begin