Changeset 177 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Mar 7, 2011, 4:16:02 PM (13 years ago)

Author:

george

Message:

• Modified: TabControl replaced by PageControl. PageControl have more inteligent tabs with TabVisible property and have working multirow feature.
• Added: Demo IDE project.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (1 diff)

Docking/CoolDocking/UCoolDocking.pas

@@ -507 +507 @@
   if FDockStyle <> AValue then begin
     FDockStyle := AValue;
-    DockStyleHandler.Free;
+    FreeAndNil(DockStyleHandler);
     if AValue = dsTabs then begin
       DockStyleHandler := TCoolDockStyleTabs.Create(Self);