TStPDF417Barcode

type TStPDF417Barcode = class(TStCustom2DBarcode)

protected

  procedure AddCodeword();

  function CalculateBarCodeWidth(); override;

  function CalculateBarCodeHeight(); override;

  procedure CalculateECC();

  procedure CalculateSize();

  function CodewordToBitmask();

  procedure ConvertBytesToBase900();

  procedure ConvertToBase900();

  procedure DrawBarcode; override;

  procedure DrawCodeword();

  procedure DrawCodewordBitmask();

  procedure DrawLeftRowIndicator();

  procedure DrawRightRowIndicator();

  procedure DrawStartPattern();

  procedure DrawStopPattern();

  procedure EncodeBinary();

  procedure EncodeNumeric();

  procedure EncodeText();

  procedure GenerateCodewords; override;

  procedure GetNextCharacter();

  function GetPDF417ECCLevel;

  function GetRealErrorLevel;

  function GoodForNumericCompaction();

  function GoodForTextCompaction();

  function IsNumericString();

  procedure SetBarHeight(); override;

  procedure SetBarHeightToWidth(); override;

  procedure SetBarWidth(); override;

  procedure SetNumColumns();

  procedure SetNumRows();

  procedure SetPDF417ECCLevel();

  procedure SetRelativeBarHeight(); override;

  procedure SetTruncated();

  procedure TextToCodewords;

public

  constructor Create(); override;

  procedure RenderToResolution(); override;

published

  property ECCLevel: TStPDF417ECCLevels; [rw]

  property NumColumns: Integer; [rw]

  property NumRows: Integer; [rw]

  property Truncated: Boolean; [rw]

  property Alignment: TAlignment;

  property BackgroundColor: TColor;

  property BarCodeHeight: Integer;

  property BarCodeWidth: Integer;

  property BarHeight: Integer;

  property BarHeightToWidth: Integer;

  property BarWidth: Integer;

  property Bitmap: TBitmap;

  property CaptionLayout: TTextLayout;

  property Code: string;

  property ExtendedSyntax: Boolean;

  property Height;

  property RelativeBarHeight: Boolean;

  property QuietZone: Integer;

  property Width;

  property Caption: string;

  property Color;

  property Font;

end;

TStPDF417Barcode

TStCustom2DBarcode

TObject