TFloatingObj

type TFloatingObj = class(TBlockBase)

protected

  VertAlign: ThtAlignmentStyle;

  HSpaceL: Integer;

  HSpaceR: Integer;

  VSpaceT: Integer;

  VSpaceB: Integer;

  PercentWidth: Boolean;

  PercentHeight: Boolean;

  function Clone();

  function GetClientHeight; virtual; abstract;

  function GetClientWidth; virtual; abstract;

  procedure SetClientHeight(); virtual; abstract;

  procedure SetClientWidth(); virtual; abstract;

public

  DrawYY: Integer;

  DrawXX: Integer;

  constructor Create();

  constructor CreateCopy(); override;

  function DrawLogic1(); override;

  function Draw1(); override;

  function GetYPosition; override;

  procedure DrawLogicInline(); virtual; abstract;

  procedure DrawInline(); virtual; abstract;

  property ClientHeight: Integer; [rw]

  property ClientWidth: Integer; [rw]

  function TotalHeight;

  function TotalWidth;

end;

TFloatingObj

TBlockBase

TSectionBase

THtmlNode

TIDObject

TObject