Changeset 365
- Timestamp:
- May 22, 2012, 7:46:00 AM (12 years ago)
- Location:
- Docking/CoolDocking
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Docking/CoolDocking/Managers/UCDManagerRegions.pas
r359 r365 45 45 public 46 46 //Panels: TObjectList; // TObjectList<TCDStyleRegionsPanel> 47 procedure BringToFront; override; 47 48 function FindControlInPanels(Control: TControl): TCDManagerItem; override; 48 49 procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); … … 254 255 if PanelHeader.Visible then Inc(Result); 255 256 end; 257 end; 258 259 procedure TCDManagerRegions.BringToFront; 260 begin 261 inherited BringToFront; 256 262 end; 257 263 -
Docking/CoolDocking/Managers/UCDManagerTabs.pas
r355 r365 44 44 TabImageList: TImageList; 45 45 PageControl: TPageControl; 46 procedure BringToFront; override; 46 47 procedure Update; override; 47 48 procedure SetHeaderPos(const AValue: THeaderPos); override; … … 306 307 end; 307 308 309 procedure TCDManagerTabs.BringToFront; 310 begin 311 inherited BringToFront; 312 Update; 313 end; 314 308 315 procedure TCDManagerTabs.SetHeaderPos(const AValue: THeaderPos); 309 316 begin -
Docking/CoolDocking/UCDManager.pas
r359 r365 118 118 procedure SetHeaderPos(const AValue: THeaderPos); virtual; 119 119 function GetHeaderPos: THeaderPos; virtual; 120 procedure BringToFront; virtual; 120 121 121 122 // Inherited from TDockManager … … 348 349 end; 349 350 351 procedure TCDManager.BringToFront; 352 begin 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; 362 end; 363 350 364 function TCDManager.GetMoveDuration: Integer; 351 365 begin
Note:
See TracChangeset
for help on using the changeset viewer.