TIndentManager

type TIndentManager = class

public

  LfEdge: Integer;

  Width: Integer;

  ClipWidth: Integer;

  L: TIndentRecList;

  R: TIndentRecList;

  CurrentID: TObject;

  LTopMin: Integer;

  RTopMin: Integer;

  constructor Create;

  destructor Destroy; override;

  function AddLeft();

  function AddRight();

  function AlignLeft();

  function AlignRight();

  function GetNextWiderY();

  function ImageBottom;

  function LeftIndent();

  function RightSide();

  function SetLeftIndent();

  function SetRightIndent();

  procedure FreeLeftIndentRec();

  procedure FreeRightIndentRec();

  procedure GetClearY();

  procedure Init();

  procedure Reset();

  procedure AdjustY();

end;

TIndentManager

TObject