Changeset 365


Ignore:
Timestamp:
May 22, 2012, 7:46:00 AM (13 years ago)
Author:
chronos
Message:
Location:
Docking/CoolDocking
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Docking/CoolDocking/Managers/UCDManagerRegions.pas

    r359 r365  
    4545  public
    4646    //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel>
     47    procedure BringToFront; override;
    4748    function FindControlInPanels(Control: TControl): TCDManagerItem; override;
    4849    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign);
     
    254255    if PanelHeader.Visible then Inc(Result);
    255256  end;
     257end;
     258
     259procedure TCDManagerRegions.BringToFront;
     260begin
     261  inherited BringToFront;
    256262end;
    257263
  • Docking/CoolDocking/Managers/UCDManagerTabs.pas

    r355 r365  
    4444    TabImageList: TImageList;
    4545    PageControl: TPageControl;
     46    procedure BringToFront; override;
    4647    procedure Update; override;
    4748    procedure SetHeaderPos(const AValue: THeaderPos); override;
     
    306307end;
    307308
     309procedure TCDManagerTabs.BringToFront;
     310begin
     311  inherited BringToFront;
     312  Update;
     313end;
     314
    308315procedure TCDManagerTabs.SetHeaderPos(const AValue: THeaderPos);
    309316begin
  • Docking/CoolDocking/UCDManager.pas

    r359 r365  
    118118    procedure SetHeaderPos(const AValue: THeaderPos); virtual;
    119119    function GetHeaderPos: THeaderPos; virtual;
     120    procedure BringToFront; virtual;
    120121
    121122    // Inherited from TDockManager
     
    348349end;
    349350
     351procedure TCDManager.BringToFront;
     352begin
     353  //DockSiteVisible := True;
     354  DockSite.Show;
     355  DockSite.BringToFront;
     356  if Assigned(DockSite.Parent) then begin
     357    if Assigned(DockSite.Parent.DockManager)
     358      and (DockSite.Parent.DockManager is TCDManager) then
     359    TCDManager(DockSite.Parent.DockManager).BringToFront
     360    else DockSite.Parent.BringToFront;
     361  end;
     362end;
     363
    350364function TCDManager.GetMoveDuration: Integer;
    351365begin
Note: See TracChangeset for help on using the changeset viewer.