TBarcodeCustomBase

type TBarcodeCustomBase = class(TGraphicControl)

protected

  FSymbol: PZintSymbol;

  FStrictSize: Boolean;

  FIsPainting: Integer;

  procedure DoOnResize; override;

  procedure GenerateAndInvalidate;

  class function GetControlClassDefaultSize; override;

  procedure InitSymbol(); virtual;

  procedure IntfPaintOnCanvas(); virtual;

  procedure Paint; override;

  procedure SetRecommendedSymbolSizeParams; virtual;

  procedure UpdateAutoSize;

  property BackgroundColor: TColor; [rw]

  property BearerBarMode: TBarcodeBearerBarMode; [rw]

  property ForegroundColor: TColor; [rw]

  property Margin: Integer; [rw]

  property MinSymbolHeight: Integer; [rw]

  property RecommendedSymbolSize: Boolean; [rw]

  property Scale: Integer; [rw]

  property WhitespaceWidth: Integer; [rw]

  property SymbolHeight: Integer; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CopyToClipboard;

  procedure Generate; virtual; abstract;

  procedure PaintOnCanvas(); virtual;

  procedure SaveToEpsFile();

  procedure SaveToEpsStream(); virtual;

  procedure SaveToFile();

  procedure SaveToStream(); virtual;

  procedure SaveToSvgFile();

  procedure SaveToSvgStream(); virtual;

  property ErrorString: string; [r]

published

  property StrictSize: Boolean; [rw]

  property Align;

  property BorderSpacing;

  property Color;

  property Constraints;

  property ParentColor;

  property OnPaint;

  property OnResize;

  property OnShowHint;

  property OnClick;

  property OnDblClick;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnStartDock;

  property OnStartDrag;

end;

TBarcodeCustomBase

TObject