TStMaxiCodeBarcode

type TStMaxiCodeBarcode = class(TStCustom2DBarcode)

protected

  procedure AddCodeword();

  function CalculateBarCodeWidth(); override;

  function CalculateBarCodeHeight(); override;

  procedure DrawBarcode; override;

  procedure DrawFinder;

  procedure DrawHex();

  procedure GenerateCodewords; override;

  procedure GenerateECC;

  procedure GetNextCharacter();

  procedure GetSizes;

  procedure GetSizesEx();

  procedure PlotCell();

  procedure SetAutoScale();

  procedure SetBarHeight(); override;

  procedure SetBarWidth(); override;

  procedure SetCarrierCountryCode();

  procedure SetCarrierPostalCode();

  procedure SetCarrierServiceClass();

  procedure SetMode();

  procedure SetHorPixelsPerMM();

  procedure SetVerPixelsPerMM();

  procedure TextToCodewords;

public

  constructor Create(); override;

  procedure RenderToResolution(); override;

published

  property AutoScale: Boolean; [rw]

  property CarrierCountryCode: Integer; [rw]

  property CarrierPostalCode: string; [rw]

  property CarrierServiceClass: Integer; [rw]

  property HorPixelsPerMM: extended; [rw]

  property Mode: TStMaxiCodeMode; [rw]

  property VerPixelsPerMM: extended; [rw]

  property Alignment: TAlignment;

  property BackgroundColor: TColor;

  property BarCodeHeight: Integer;

  property BarCodeWidth: Integer;

  property BarHeight: Integer;

  property BarWidth: Integer;

  property Bitmap: TBitmap;

  property CaptionLayout: TTextLayout;

  property Code: string;

  property ExtendedSyntax: Boolean;

  property Height;

  property QuietZone: Integer;

  property Width;

  property Caption: string;

  property Color;

  property Font;

end;

TStMaxiCodeBarcode

TStCustom2DBarcode

TObject