TSimpleBarcode

type TSimpleBarcode = class(TCustomBarcode)

protected

  function CalcFactor(); virtual;

  procedure CalcSize(); virtual;

  function CalcSymbolStart(); virtual;

  procedure CalculatePreferredSize(); override;

  procedure DrawBarcode(); virtual;

  function GetLastLine;

  procedure GetTextSize();

  function InternalGenerate; override;

  procedure IntfPaintOnCanvas(); override;

  procedure Paint; override;

  procedure Render(); virtual;

  procedure RenderBearerBars();

  procedure RenderBox();

  procedure RenderSymbol(); virtual;

  procedure RenderText(); virtual;

  property AddCheckSum: Boolean; [rw]

  property DisplayCheckSum: Boolean; [rw]

public

  constructor Create(); override;

  procedure PaintOnCanvas(); override;

  procedure SaveToEpsStream(); override;

  procedure SaveToStream(); override;

  procedure SaveToSvgStream(); override;

published

  property AutoSize;

  property RecommendedSymbolSize: Boolean;

end;

TSimpleBarcode

TCustomBarcode

TBarcodeCustomText

TBarcodeCustomBase

TObject