Changeset 103 for Docking/CoolDocking/UCoolDockStyleTabs.pas

Timestamp:

Dec 29, 2010, 1:56:04 PM (14 years ago)

Author:

george

Message:

• Fixed: Hiding invisible docked forms as tabs.
• Added: Ability to bring window to front on execute Form.Show.

File:

• Docking/CoolDocking/UCoolDockStyleTabs.pas (modified) (8 diffs)

Docking/CoolDocking/UCoolDockStyleTabs.pas

@@ -6 +6 @@
 
 uses
-  Classes, Controls, ExtCtrls, ComCtrls, SysUtils,
+  Classes, Controls, ExtCtrls, ComCtrls, SysUtils, Dialogs,
   Menus, UCoolDockStyle, Forms, UCoolDockClientPanel;
 
@@ -25 +25 @@
     procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-    constructor Create(AManager: TObject);
-    destructor Destroy; override;
     procedure InsertControl(NewPanel: TCoolDockClientPanel;
       AControl: TControl; InsertAt: TAlign); override;
@@ -33 +31 @@
     FTabsPos: THeaderPos;
   public
+    constructor Create(AManager: TObject);
+    destructor Destroy; override;
+    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
+    procedure Switch(Index: Integer); override;
     procedure SetTabsPos(const AValue: THeaderPos);
     procedure PopupMenuTabCloseClick(Sender: TObject);
@@ -53 +55 @@
 procedure TCoolDockStyleTabs.TabControlMouseLeave(Sender: TObject);
 begin
-(*  if MouseDown then
+  if MouseDown then
+  with TCoolDockManager(Manager) do
   if (TabControl.TabIndex <> -1) then begin
-    TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel.DockSite := False;
-    DragManager.DragStart(TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control, False, 1);
+    TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).ClientAreaPanel.DockSite := False;
+    DragManager.DragStart(TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Control, False, 1);
   end;
   MouseDown := False;
-  *)
 end;
 
@@ -69 +71 @@
   with TCoolDockManager(Manager) do
   for I := 0 to DockPanels.Count - 1 do begin
-    TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Visible := False;
+    TCoolDockClientPanel(DockPanels[I]).Control.Hide;
+    TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Hide;
     TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Parent := DockSite;
     TCoolDockClientPanel(DockPanels[I]).Control.Align := alClient;
-    TCoolDockClientPanel(DockPanels[I]).Control.Visible := False;
+    //ShowMessage(TCoolDockClientPanel(DockPanels[I]).Control.ClassName);
+    Application.ProcessMessages;
 
     // Workaround for "Cannot focus" error
     TForm(TCoolDockClientPanel(DockPanels[I]).Control).ActiveControl := nil;
   end;
+
+  // Show selected
   with TCoolDockManager(Manager) do
   if (TabControl.TabIndex <> -1) and (DockPanels.Count > TabControl.TabIndex) then begin
@@ -93 +99 @@
       *)
         //Parent := DockSite;
+        //Show;
         Visible := True;
         UpdateClientSize;
@@ -160 +167 @@
     TCoolDockClientPanel(DockPanels[I]).Visible := False;
   end;
-  TabControlChange(Self);
 end;
 
 destructor TCoolDockStyleTabs.Destroy;
 begin
-  TabControl.Visible := False;
-  TabControl.Tabs.Clear;
+  TabControl.Free;
+  TabImageList.Free;
   inherited Destroy;
+end;
+
+procedure TCoolDockStyleTabs.Switch(Index: Integer);
+begin
+  inherited Switch(Index);
+  TabControl.TabIndex := Index;
 end;
 
@@ -196 +208 @@
 end;
 
+procedure TCoolDockStyleTabs.ChangeVisible(Control: TWinControl; Visible: Boolean);
+var
+  I: Integer;
+begin
+  inherited;
+  if not Visible then
+  if Assigned(TWinControl(Control).DockManager) then
+  with TCoolDockManager(TWinControl(Control).DockManager) do begin
+//    ShowMessage(IntToStr(DockPanels.Count));
+  end;
+end;
+
 procedure TCoolDockStyleTabs.SetTabsPos(const AValue: THeaderPos);
 begin