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

Docking/CoolDocking/UCoolDockStylePopupTabs.pas

@@ -7 +7 @@
 uses
   Classes, Controls, SysUtils, ComCtrls, ExtCtrls,
-  UCoolDockStyleTabs, UCoolDockStyle;
+  UCoolDockStyleTabs, UCoolDockStyle, UCoolDockClientPanel;
 
 type
@@ -52 +52 @@
     constructor Create(AManager: TObject);
     destructor Destroy; override;
+  private
   end;
 
@@ -181 +182 @@
 
 constructor TCoolDockStylePopupTabs.Create(AManager: TObject);
+var
+  I: Integer;
 begin
+  inherited;
+
   AutoHide := TCoolDockAutoHide.Create;
-  TabImageList := TImageList.Create(TCoolDockManager(AManager).DockSite);
-  with TabImageList do begin
-  end;
-  TabControl := TTabControl.Create(TCoolDockManager(AManager).DockSite);
-  with TabControl do begin
-    Parent := TCoolDockManager(AManager).DockSite;
-    Visible := False;
-    Align := alTop;
-    Height := 24;
-    OnChange := TabControlChange;
-    PopupMenu := TCoolDockManager(Manager).PopupMenu;
-    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseLeave := TabControlMouseLeave;
-    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;
-    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseUp := TabControlMouseUp;
-    OnMouseUp := TabControlMouseUp;
-    Images := TabImageList;
-  end;
 end;