TBlock

type TBlock = class(TBlockBase)

protected

  function GetBorderWidth; virtual;

  function CalcDisplayExtern; override;

  function CalcDisplayIntern; override;

  procedure ContentMinMaxWidth(); virtual;

  procedure ConvMargArray(); virtual;

  procedure DrawBlockBorder(); virtual;

  property BorderWidth: Integer; [r]

public

  MyCell: TBlockCell;

  MargArrayO: ThtVMarginArray;

  BGImage: TImageObj;

  BlockTitle: ThtString;

  MargArray: ThtMarginArray;

  FGColor: Integer;

  HasBorderStyle: Boolean;

  PRec: PtPositionRec;

  Visibility: ThtVisibilityStyle;

  TopAuto: Boolean;

  BottomAuto: Boolean;

  BreakBefore: Boolean;

  BreakAfter: Boolean;

  KeepIntact: Boolean;

  HideOverflow: Boolean;

  Justify: ThtJustify;

  Converted: Boolean;

  ContentWidth: Integer;

  ClearAddon: Integer;

  NeedDoImageStuff: Boolean;

  TiledImage: ThtImage;

  TopP: Integer;

  LeftP: Integer;

  DrawList: TSectionBaseList;

  NoMask: Boolean;

  ClientContentBot: Integer;

  MyRect: TRect;

  MyIMgr: TIndentManager;

  RefIMgr: TIndentManager;

  constructor Create();

  constructor CreateCopy(); override;

  destructor Destroy; override;

  function CursorToXY(); override;

  function Draw1(); override;

  function DrawLogic1(); override;

  function FindCursor(); override;

  function FindDocPos(); override;

  function FindSourcePos(); override;

  function FindString(); override;

  function FindStringR(); override;

  function FindWidth(); virtual;

  function GetChAtPos(); override;

  function GetURL(); override;

  function PtInObject(); override;

  procedure AddSectionsToList; override;

  procedure CollapseAdjoiningMargins;

  procedure CollapseNestedMargins;

  procedure CopySelectedText; override;

  procedure DrawBlock();

  procedure DrawSort;

  procedure DrawTheList();

  procedure MinMaxWidth(); override;

end;

TBlock

TBlockBase

TSectionBase

THtmlNode

TIDObject

TObject