Changeset 114 for Docking/CoolDocking/UCoolDockStyle.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/UCoolDockStyle.pas (modified) (2 diffs)

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;