Changeset 114 for Docking

Timestamp:

Jan 5, 2011, 7:51:16 AM (13 years ago)

Author:

george

Message:

• Fixed: CoolDocking was not showing tab content on tab switch.

Location:

Docking/CoolDocking

Files:

• UCoolDockStyle.pas (modified) (2 diffs)
• UCoolDockStyleTabs.pas (modified) (3 diffs)
• UCoolDocking.pas (modified) (1 diff)

Docking/CoolDocking/UCoolDockStyle.pas

@@ -23 +23 @@
     procedure Switch(Index: Integer); virtual;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
+    procedure SetVisible(const AValue: Boolean); virtual;
     property HeaderPos: THeaderPos read GetHeaderPos write SetHeaderPos;
+    property Visible: Boolean write SetVisible;
   end;
 
@@ -32 +34 @@
 
 { TCoolDockStyle }
+
+procedure TCoolDockStyle.SetVisible(const AValue: Boolean);
+begin
+
+end;
 
 function TCoolDockStyle.GetHeaderPos: THeaderPos;

Docking/CoolDocking/UCoolDockStyleTabs.pas

@@ -32 +32 @@
   public
     constructor Create(AManager: TObject);
+    procedure SetVisible(const AValue: Boolean); override;
     destructor Destroy; override;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
@@ -208 +209 @@
 end;
 
+procedure TCoolDockStyleTabs.SetVisible(const AValue: Boolean);
+begin
+  inherited SetVisible(AValue);
+  with TCoolDockManager(Manager) do
+    if (TabControl.TabIndex >= 0) and (TabControl.TabIndex < DockPanels.Count) then
+      with TCoolDockClientPanel(DockPanels[TabControl.TabIndex]) do begin
+        //Show;
+        if AValue then Control.Show;
+        //TabControl.Show;
+        //ClientAreaPanel.Show;
+      end;
+end;
+
 procedure TCoolDockStyleTabs.ChangeVisible(Control: TWinControl; Visible: Boolean);
 var
@@ -216 +230 @@
   if Assigned(TWinControl(Control).DockManager) then
   with TCoolDockManager(TWinControl(Control).DockManager) do begin
-//    ShowMessage(IntToStr(DockPanels.Count));
+//    ShowMessage(IntToStr(TabControl.TabIndex) + ' ' + IntToStr(DockPanels.Count));
+//    TabControl.Tabs[0].;
+//    if (TabControl.TabIndex >= 0) and (TabControl.TabIndex < DockPanels.Count) then begin
+//      TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Show;
+//      TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Control.Show;
+//    end;
+    //    ShowMessage(IntToStr(DockPanels.Count));
   end;
 end;

Docking/CoolDocking/UCoolDocking.pas

@@ -544 +544 @@
   I: Integer;
 begin
+  DockStyleHandler.Visible := AValue;
 //  for I := 0 to DockPanels.Count - 1 do
 //    TCoolDockClientPanel(DockPanels[I]).Visible := AValue;