Changeset 98 for Docking/CoolDocking/UCoolDockStyleTabs.pas

Timestamp:

Dec 9, 2010, 2:51:55 PM (14 years ago)

Author:

george

Message:

• Upraveno: Obslužné funkce kontextového menu přesunuty do samostatné jednotky.

File:

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

Docking/CoolDocking/UCoolDockStyleTabs.pas

@@ -19 +19 @@
     TabControl: TTabControl;
     TabImageList: TImageList;
-    PopupMenuTabs: TPopupMenu;
     procedure TabControlMouseLeave(Sender: TObject);
     procedure TabControlChange(Sender: TObject);
@@ -127 +126 @@
   inherited;
 
-  (*// Tabs popup
-
-  PopupMenuTabs := TPopupMenu.Create(Manager.DockSite);
-
-  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
-  NewMenuItem.Caption := SDockStyle;
-  PopupMenuTabs.Items.Add(NewMenuItem);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SDockList;
-  NewMenuItem2.OnClick := PopupMenuListClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SDockTabs;
-  NewMenuItem2.OnClick := PopupMenuTabsClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
-  NewMenuItem.Caption := SPosition;
-  PopupMenuTabs.Items.Add(NewMenuItem);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SPositionAuto;
-  NewMenuItem2.OnClick := PopupMenuPositionAutoClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SPositionTop;
-  NewMenuItem2.OnClick := PopupMenuPositionTopClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SPositionLeft;
-  NewMenuItem2.OnClick := PopupMenuPositionLeftClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SPositionBottom;
-  NewMenuItem2.OnClick := PopupMenuPositionBottomClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
-  NewMenuItem2.Caption := SPositionRight;
-  NewMenuItem2.OnClick := PopupMenuPositionRightClick;
-  NewMenuItem.Add(NewMenuItem2);
-
-  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
-  NewMenuItem.Caption := SCloseForm;
-  NewMenuItem.OnClick := PopupMenuCloseClick;
-  PopupMenuTabs.Items.Add(NewMenuItem);
-
-  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
-  NewMenuItem.Caption := SRenameForm;
-  NewMenuItem.OnClick := PopupMenuRenameClick;
-  PopupMenuTabs.Items.Add(NewMenuItem);
-
-  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
-  NewMenuItem.Caption := SUndock;
-  NewMenuItem.OnClick := PopupMenuUndockClick;
-  PopupMenuTabs.Items.Add(NewMenuItem);
-
-  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
-  NewMenuItem.Caption := SCustomize;
-  NewMenuItem.OnClick := PopupMenuCustomizeClick;
-  PopupMenuTabs.Items.Add(NewMenuItem);     *)
-
   TabImageList := TImageList.Create(TCoolDockManager(AManager).DockSite); //FDockSite);
   with TabImageList do begin
@@ -206 +138 @@
     Height := 24;
     OnChange := TabControlChange;
-    PopupMenu := PopupMenuTabs;
+    PopupMenu := TCoolDockManager(Manager).PopupMenu;
     TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseLeave := TabControlMouseLeave;
     TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;