Changeset 96 for Docking/CoolDocking/UCoolDocking.pas

Timestamp:

Dec 8, 2010, 10:40:38 AM (14 years ago)

Author:

george

Message:

• Added: Windows showing application component tree with names and types.

File:

• Docking/CoolDocking/UCoolDocking.pas (modified) (9 diffs)

Docking/CoolDocking/UCoolDocking.pas

@@ -32 +32 @@
     Panel: TPanel;
     CoolDockClient: TCoolDockClient;
+    procedure FormShow(Sender : TObject);
     constructor Create(TheOwner: TComponent); override;
   end;
@@ -365 +366 @@
 
   PopupMenuTabs := TPopupMenu.Create(FDockSite);
+  PopupMenuTabs.Name := ADockSite.Name + '_' + 'PopupMenuTabs';
 
   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
@@ -432 +434 @@
 
   PopupMenuHeader := TPopupMenu.Create(FDockSite);
+  PopupMenuHeader.Name := ADockSite.Name + '_' + 'PopupMenuHeader';
 
   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
@@ -498 +501 @@
   TabImageList := TImageList.Create(FDockSite);
   with TabImageList do begin
+    Name := ADockSite.Name + '_' + 'ImageList';
   end;
   TabControl := TTabControl.Create(FDockSite);
   with TabControl do begin
     Parent := FDockSite;
+    Name := ADockSite.Name + '_' + 'TabControl';
     Visible := False;
     Align := alTop;
@@ -863 +868 @@
     TCoolDockClientPanel(FDockPanels[I]).Control.Align := alClient;
     TCoolDockClientPanel(FDockPanels[I]).Control.Visible := False;
+
+    // Workaround for "Cannot focus" error
+    TForm(TCoolDockClientPanel(FDockPanels[I]).Control).ActiveControl := nil;
   end;
   if (TabControl.TabIndex <> -1) and (FDockPanels.Count > TabControl.TabIndex) then begin
@@ -882 +890 @@
       end;
     end;
-//  TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
+  //TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
   end;
   MouseDownSkip := True;
@@ -1108 +1116 @@
 { TCoolDockConjoinForm }
 
+procedure TCoolDockConjoinForm.FormShow(Sender: TObject);
+begin
+  //Panel.Show;
+end;
+
 constructor TCoolDockConjoinForm.Create(TheOwner: TComponent);
 begin
@@ -1114 +1127 @@
   with Panel do begin
     Parent := Self;
+    Name := Parent.Name + '_Panel';
     DockSite := True;
     UseDockManager := True;
@@ -1124 +1138 @@
   with CoolDockClient do begin
     Panel := Self.Panel;
-  end;
+    Name := Owner.Name + '_CoolDockClient';
+  end;
+  OnShow := FormShow;
 end;