Changeset 176 for Docking/CoolDocking/UCoolDockPopupMenu.pas

Timestamp:

Mar 7, 2011, 1:32:07 PM (13 years ago)

Author:

george

Message:

• Fixed: Docking popupmenu action Close and Rename.
• Added: Partialy implemented tab hiding.

File:

• Docking/CoolDocking/UCoolDockPopupMenu.pas (modified) (4 diffs)

Docking/CoolDocking/UCoolDockPopupMenu.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Menus, Controls, Dialogs, UCoolDockClientPanel;
+  Classes, SysUtils, Menus, Forms, Controls, Dialogs, UCoolDockClientPanel,
+  ExtCtrls, ComCtrls;
 
 type
@@ -34 +35 @@
 
 uses
-  UCoolDocking;
+  UCoolDocking, UCoolDockStyleTabs;
 
 resourcestring
@@ -162 +163 @@
   Control: TControl;
 begin
-  Control := FindLCLControl(Mouse.CursorPos);
-  if Assigned(Control) then
-    ShowMessage(Control.ClassName);
-  //DockSiteTForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
+  if PopupComponent is TTabControl then
+  with TTabControl(PopupComponent) do begin
+    TForm(TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control).Close;
+  end;
+  if PopupComponent is TCoolDockHeader then
+  with TCoolDockHeader(PopupComponent) do begin
+    TForm(ParentClientPanel.Control).Close;
+  end;
 end;
 
@@ -172 +177 @@
   Value: string;
 begin
-  Value := TCoolDockManager(Manager).DockSite.Parent.Caption;
-  if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then
-    TCoolDockManager(Manager).DockSite.Parent.Caption := Value;
+  //ShowMessage(PopupComponent.ClassName);
+  if PopupComponent is TTabControl then
+  with TTabControl(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;
+    end;
+  end;
+  if PopupComponent is TCoolDockHeader then
+  with TCoolDockHeader(PopupComponent) do begin
+    Value := ParentClientPanel.Control.Caption;
+    if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
+      ParentClientPanel.Control.Caption := Value;
+      Title.Caption := Value;
+    end;
+  end;
 end;