Changeset 184 for Docking/CoolDocking/UCoolDockClientPanel.pas

Timestamp:

Mar 10, 2011, 9:57:21 AM (14 years ago)

Author:

george

Message:

• Fixed: Placing new form inside regions with different orientation.

File:

• Docking/CoolDocking/UCoolDockClientPanel.pas (modified) (7 diffs)

Docking/CoolDocking/UCoolDockClientPanel.pas

@@ -7 +7 @@
 uses
   Classes, Controls, SysUtils, Forms, StdCtrls, ExtCtrls, Graphics,
-  Buttons;
+  Buttons, UCoolDockCommon;
 
 type
@@ -47 +47 @@
     procedure SetShowHeader(const AValue: Boolean);
   public
-    OwnerDockManager: TObject; // TCoolDockManager;
+    OwnerDockManager: TCoolDockManagerBase;
     Splitter: TSplitter;
     ClientAreaPanel: TPanel;
@@ -68 +68 @@
 
 uses
-  UCoolDocking;
+  UCoolDocking, UCoolDockStyle;
 
 { TCoolDockClientPanel }
@@ -84 +84 @@
   Temp: TControl;
   Temp2: TControl;
+  Temp3: TCoolDockStyle;
 begin
   Temp := TControl(Sender);
@@ -99 +100 @@
     if Assigned(DockStyleHandler) then
     with DockStyleHandler do begin
+      Temp3 := DockStyleHandler;
       //UpdateClientSize;
       if ControlVisible then
@@ -258 +260 @@
     Brush.Style := bsClear;
   end;
+  Title := TLabel.Create(Self);
+  with Title do begin
+    Parent := Self;
+    Visible := True;
+    Top := 4;
+    Left := 6;
+    BevelInner := bvNone;
+    BevelOuter := bvNone;
+  end;
   CloseButton := TSpeedButton.Create(Self);
   with CloseButton do begin
@@ -271 +282 @@
     OnClick := CloseButtonClick;
   end;
-  Title := TLabel.Create(Self);
-  with Title do begin
-    Parent := Self;
-    Visible := True;
-    Top := 4;
-    Left := 6;
-    BevelInner := bvNone;
-    BevelOuter := bvNone;
-  end;
   Icon := TImage.Create(Self);
   with Icon do begin