TCustomBarcode

type TCustomBarcode = class(TBarcodeCustomText)

protected

  FBarcodeType: TBarcodeType;

  FErrorCode: Integer;

  FValidBarcodeTypes: TBarcodeTypes;

  procedure FontChanged(); override;

  procedure InitSymbol(); override;

  function InternalGenerate; virtual;

  procedure IntfPaintOnCanvas(); override;

  procedure SetBarcodeType();

  property BarcodeType: TBarcodeType; [rw]

public

  constructor Create(); override;

  procedure Generate; override;

published

  property BackgroundColor: TColor;

  property ForegroundColor: TColor;

  property Margin: Integer;

  property ParentColor;

  property Scale: Integer;

  property Font;

  property ParentFont;

end;

TCustomBarcode

TBarcodeCustomText

TBarcodeCustomBase

TObject