Changeset 182 for Docking/CoolDocking/UCoolDockStyleRegions.pas

Timestamp:

Mar 9, 2011, 2:11:40 PM (13 years ago)

Author:

george

Message:

• Added: Default layout initialization in Demo IDE.
• Fixed: Tab position switching through popup menu.

File:

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

Docking/CoolDocking/UCoolDockStyleRegions.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Controls, ExtCtrls, StdCtrls, UCoolDockStyle,
-  Graphics, Contnrs, Buttons, UCoolDockClientPanel;
+  Graphics, Contnrs, Buttons, UCoolDockClientPanel, UCoolDockCommon;
 
 type
@@ -22 +22 @@
     function GetHeaderPos: THeaderPos; override;
     procedure SetHeaderPos(const AValue: THeaderPos); override;
-    constructor Create(AManager: TObject);
+    constructor Create(AManager: TCoolDockManagerBase);
     destructor Destroy; override;
     procedure UpdateClientSize; override;
+    procedure SetVisible(const AValue: Boolean); override;
+    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
   end;
 
@@ -45 +47 @@
 end;
 
-constructor TCoolDockStyleRegions.Create(AManager: TObject);
+constructor TCoolDockStyleRegions.Create(AManager: TCoolDockManagerBase);
 var
   I: Integer;
@@ -55 +57 @@
   for I := 0 to DockPanels.Count - 1 do begin
     if Assigned(TCoolDockClientPanel(DockPanels[I]).Splitter) then
-    TCoolDockClientPanel(DockPanels[I]).Splitter.Visible := True;
+      TCoolDockClientPanel(DockPanels[I]).Splitter.Visible := True;
     TCoolDockClientPanel(DockPanels[I]).Visible := True;
     TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Parent := TCoolDockClientPanel(DockPanels[I]);
@@ -75 +77 @@
   inherited UpdateClientSize;
   with TCoolDockManager(Manager) do
-  for I := 0 to DockPanels.Count - 1 do begin
-    TCoolDockClientPanel(DockPanels[I]).Height := DockSite.Height div
-      DockSite.DockClientCount;
-    TCoolDockClientPanel(DockPanels[I]).Width := DockSite.Width div
-      DockSite.DockClientCount;
+  for I := 0 to DockPanels.Count - 1 do
+  with TCoolDockClientPanel(DockPanels[I]) do begin
+    Height := TCoolDockManager(Manager).DockSite.Height div
+      TCoolDockManager(Manager).DockSite.DockClientCount;
+    Width := TCoolDockManager(Manager).DockSite.Width div
+      TCoolDockManager(Manager).DockSite.DockClientCount;
     //TCoolDockClientPanel(FDockPanels[I]).DockPanelPaint(Self);
-    TCoolDockClientPanel(DockPanels[I]).DockPanelPaint(Self);
+    DockPanelPaint(Self);
+    if I < (DockPanels.Count - 1) then begin
+      if TCoolDockManager(Manager).DockDirection = ddHorizontal then Align := alLeft
+        else Align := alTop;
+    end else Align := alClient;
   end;
+end;
+
+procedure TCoolDockStyleRegions.SetVisible(const AValue: Boolean);
+var
+  I: Integer;
+begin
+  inherited SetVisible(AValue);
+  with TCoolDockManager(Manager) do
+  for I := 0 to DockPanels.Count - 1 do
+
+        //Show;
+        //ShowMessage(IntToStr(Control.Tag));
+      with TCoolDockClientPanel(DockPanels[I]) do begin
+        if AValue and (not Control.Visible) and (Control.Tag = Integer(dhtTemporal))  then begin
+          Control.Show;
+          Control.Tag := Integer(dhtPermanent);
+        end else
+        if not AValue then begin
+          Control.Tag := Integer(dhtTemporal);
+          Control.Hide;
+        end;
+      end;
+        //ClientAreaPanel.Show;
+end;
+
+procedure TCoolDockStyleRegions.ChangeVisible(Control: TWinControl;
+  Visible: Boolean);
+begin
+  inherited;
 end;