Changeset 114 for Docking/CoolDocking/UCoolDockStyleTabs.pas

Timestamp:

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

Author:

george

Message:

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

File:

• Docking/CoolDocking/UCoolDockStyleTabs.pas (modified) (3 diffs)

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;