TOPIC:

{------------------------------------------------------------------------------
  procedure TControl.InvalidatePreferredSize;

  Invalidate the cache of the preferred size of this and all parent controls.
 ------------------------------------------------------------------------------}
procedure TControl.InvalidatePreferredSize;

  procedure RaiseLoop;
  begin
    raise Exception.Create('TControl.InvalidatePreferredSize loop detected '+DbgSName(Self)+' Bounds='+dbgs(BoundsRect));
  end;

var
  AControl: TControl;
begin
  AControl:=Self;
  while AControl<>nil do begin
    Exclude(AControl.FControlFlags,cfPreferredSizeValid);
    Exclude(AControl.FControlFlags,cfPreferredMinSizeValid);
    if AControl is TWinControl then
      Exclude(TWinControl(AControl).FWinControlFlags,wcfAdjustedLogicalClientRectValid);
    if not AControl.IsControlVisible then break;
    if (AControl.Parent=nil)
      and (cfKillInvalidatePreferredSize in AControl.FControlFlags)
    then
      RaiseLoop;
    AControl:=AControl.Parent;
  end;
end;

//================================================================== SOS SOS SOS
// This Is for Problem of "Docking Embedded Form Designer"
// The GlassDocking send LM_DESTROY msg to FLoadedForm
// On Windows give Error 1400 and crash the IDE
// On GTK2    give Error and crash the IDE
// We don't know why, must find this and remove the next code...
//==================================================================

{$IF DEFINED(LCLWin32) or DEFINED(LCLWin64) or DEFINED(LCLGTK) or DEFINED(LCLGTK2)}