Changeset 355 for Docking/CoolDocking/Managers/UCDManagerRegions.pas
- Timestamp:
- Apr 27, 2012, 8:34:10 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Docking/CoolDocking/Managers/UCDManagerRegions.pas
r354 r355 307 307 VisibleControlsCount: Integer; 308 308 begin 309 inherited; 309 310 if FUpdateCount = 0 then begin 310 311 DebugLog('TCDManagerRegions.UpdateClientSize'); 311 inherited;312 312 VisibleControlsCount := DockSite.VisibleDockClientCount; 313 if DockSite is TForm then 314 DockSite.Visible := (VisibleControlsCount > 0); 313 if DockSite is TForm then begin 314 DockSiteVisible := VisibleControlsCount > 0; 315 end; 315 316 if VisibleControlsCount = 0 then VisibleControlsCount := 1; 316 317 … … 360 361 begin 361 362 inherited; 363 //if DockSite.Visible <> AValue then 362 364 try 363 365 BeginUpdate; 364 366 for I := 0 to DockItems.Count - 1 do 365 367 with TCDManagerRegionsItem(DockItems[I]) do begin 366 if AValue and (not Control.Visible) and (Control.Tag = Integer(dhtTemporal)) then begin 367 Control.Show; 368 Control.Tag := Integer(dhtPermanent); 369 end else 370 if not AValue then begin 371 Control.Tag := Integer(dhtTemporal); 372 Control.Hide; 373 end; 368 TCDManager(Control.DockManager).DockSiteVisible := AValue; 374 369 end; 375 370 //ClientAreaPanel.Show;
Note:
See TracChangeset
for help on using the changeset viewer.