Changeset 177 for Docking/CoolDocking/UCoolDockClientPanel.pas

Timestamp:

Mar 7, 2011, 4:16:02 PM (14 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/UCoolDockClientPanel.pas (modified) (1 diff)

Docking/CoolDocking/UCoolDockClientPanel.pas

@@ -100 +100 @@
     if Assigned(DockStyleHandler) then
     with DockStyleHandler do begin
+      //UpdateClientSize;
       if ControlVisible then
         Switch(DockPanels.IndexOf(FindControlInPanels(TControl(Sender))));
-      //UpdateClientSize;
+      if not (Control is TWinControl) then raise Exception.Create('Not TWinControl');
+      if not Assigned(Control) then raise Exception.Create('Control not assigned');
       ChangeVisible(TWinControl(Control), ControlVisible);
       // Show parent control