TvFormula

type TvFormula = class(TvEntityWithPenBrushAndFont)

protected

  FElements: TFPList;

  SpacingBetweenElementsX: Integer;

  SpacingBetweenElementsY: Integer;

public

  Top: Double;

  Left: Double;

  Width: Double;

  Height: Double;

  constructor Create(); override;

  destructor Destroy; override;

  function GetFirstElement;

  function GetNextElement;

  procedure AddElement();

  function AddElementWithKind();

  function AddElementWithKindAndText();

  procedure AddItemsByConvertingInfixToRPN();

  procedure AddItemsByConvertingInfixStringToRPN();

  procedure TokenizeInfixString();

  function CalculateRPNFormulaValue;

  procedure Clear; override;

  function CalculateHeight(); virtual;

  function CalculateWidth(); virtual;

  procedure PositionSubparts(); override;

  procedure CalculateBoundingBox(); override;

  procedure Render(); override;

  function GenerateDebugTree(); override;

end;

TvFormula

TvEntityWithPenBrushAndFont

TvEntityWithPenAndBrush

TvEntityWithPen

TvNamedEntity

TvEntity

TObject