Changeset 177 for Docking/CoolDocking/UCoolDockPopupMenu.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/UCoolDockPopupMenu.pas (modified) (3 diffs)

Docking/CoolDocking/UCoolDockPopupMenu.pas

@@ -163 +163 @@
   Control: TControl;
 begin
-  if PopupComponent is TTabControl then
-  with TTabControl(PopupComponent) do begin
+  if PopupComponent is TPageControl then
+  with TPageControl(PopupComponent) do begin
     TForm(TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control).Close;
   end;
@@ -178 +178 @@
 begin
   //ShowMessage(PopupComponent.ClassName);
-  if PopupComponent is TTabControl then
-  with TTabControl(PopupComponent) do begin
+  if PopupComponent is TPageControl then
+  with TPageControl(PopupComponent) do begin
     Value := TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control.Caption;
     if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
       TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control.Caption := Value;
-      Tabs[TabIndex] := Value;
+      Pages[TabIndex].Caption := Value;
     end;
   end;
@@ -228 +228 @@
   Control: TControl;
 begin
-
-  //Control.ManualFloat(Control.BoundsRect);
+  if PopupComponent is TPageControl then
+  with TPageControl(PopupComponent) do begin
+    Control := TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control;
+  end else
+  if PopupComponent is TCoolDockHeader then
+  with TCoolDockHeader(PopupComponent) do begin
+    Control := ParentClientPanel.Control;
+  end else Control := nil;
+  if Assigned(Control) then
+    Control.ManualFloat(Control.BoundsRect);
 end;