TProperties

type TProperties = class

public

  PropSym: TElemSymb;

  PropTag: ThtString;

  PropClass: ThtString;

  PropID: ThtString;

  PropPseudo: ThtString;

  PropTitle: ThtString;

  PropStyle: TProperties;

  FontBG: TColor;

  FCharSet: TFontCharSet;

  FCodePage: Integer;

  Props: ThtPropertyArray;

  Originals: array [ThtPropIndices] of Boolean;

  Important: array [ThtPropIndices] of Boolean;

  FIArray: TFontInfoArray;

  ID: Integer;

  constructor Create();

  constructor CreateCopy();

  destructor Destroy; override;

  function Clone; virtual;

  function BorderStyleNotBlank;

  function Collapse;

  function GetBackgroundColor;

  function GetBackgroundImage();

  function GetBorderStyle();

  function GetClear();

  function GetDisplay;

  function GetFloat();

  function GetFontVariant;

  function GetLineHeight();

  function GetListStyleImage;

  function GetListStyleType;

  function GetOriginalForegroundColor;

  function GetPosition;

  function GetTextIndent();

  function GetTextTransform;

  function GetVertAlign();

  function GetVisibility;

  function GetZIndex;

  function HasBorderStyle;

  function HasBorderWidth;

  function IsOverflowHidden;

  function ShowEmptyCells;

  procedure AddPropertyByIndex();

  procedure AddPropertyByName();

  procedure SetPropertyDefault();

  procedure SetPropertyDefaults();

  procedure Assign();

  procedure AssignCharSetAndCodePage();

  procedure Combine();

  procedure Copy();

  procedure CopyDefault();

  procedure GetBackgroundPos();

  procedure GetFontInfo();

  procedure GetPageBreaks();

  function GetBoxSizing();

  function GetBorderSpacingHorz;

  function GetBorderSpacingVert;

  procedure GetVMarginArrayDefBorder();

  procedure GetVMarginArray();

  function HasBorderSpacing;

  procedure Inherit();

  procedure SetFontBG;

  procedure Update();

  property Display: ThtDisplayStyle; [r]

  property CharSet: TFontCharset; [rw]

  property CodePage: Integer; [rw]

  property DefPointSize: Double; [rw]

  property EmSize: Integer; [r]

  property ExSize: Integer; [r]

  property Font: ThtFont; [r]

  property PixelsPerInch: Integer; [rw]

  property UseQuirksMode: Boolean; [r]

end;

TProperties

TObject