TStCustom2DBarcode

type TStCustom2DBarcode = class(TGraphicControl)

protected

  FCode: string;

  FBarWidth: Integer;

  FBackgroundColor: TColor;

  FCaption: string;

  FECCLevel: Integer;

  FExtendedSyntax: Boolean;

  FRelativeBarHeight: Boolean;

  FBarHeightToWidth: Integer;

  FBarHeight: Integer;

  FQuietZone: Integer;

  FAlignment: TAlignment;

  FCaptionLayout: TTextLayout;

  FBarCodeRect: TRect;

  FUsedCodewords: Integer;

  FFreeCodewords: Integer;

  FUsedECCCodewords: Integer;

  FTotalCodewords: Integer;

  FBitmap: TBitmap;

  function CalculateBarCodeWidth(); virtual; abstract;

  function CalculateBarCodeHeight(); virtual; abstract;

  procedure DrawBarcode; virtual; abstract;

  procedure GenerateBarcodeBitmap();

  procedure GenerateCodewords; virtual; abstract;

  function GetBarCodeHeight;

  function GetBarCodeWidth;

  procedure GetCurrentResolution();

  procedure Paint; override;

  procedure SetAlignment();

  procedure SetBackgroundColor();

  procedure SetBarHeight(); virtual;

  procedure SetBarHeightToWidth(); virtual;

  procedure SetBarWidth(); virtual;

  procedure SetBitmap();

  procedure SetCaption();

  procedure SetCaptionLayout();

  procedure SetCode();

  procedure SetECCLevel();

  procedure SetExtendedSyntax();

  procedure SetRelativeBarHeight(); virtual;

  procedure SetQuietZone();

  procedure SetVersion();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CopyToClipboard;

  procedure CopyToClipboardRes();

  procedure PaintToCanvas();

  procedure PaintToCanvasRes();

  procedure PaintToCanvasSize();

  procedure PaintToDC();

  procedure PaintToDCRes();

  procedure PaintToPrinterCanvas();

  procedure PaintToPrinterCanvasRes();

  procedure PaintToPrinterCanvasSize();

  procedure PaintToPrinterDC();

  procedure PaintToPrinterDCRes();

  procedure RenderToResolution(); virtual; abstract;

  procedure SaveToFile();

  procedure SaveToFileRes();

  property Alignment: TAlignment; [rw]

  property BackgroundColor: TColor; [rw]

  property BarCodeHeight: Integer; [r]

  property BarCodeRect: TRect; [r]

  property BarCodeWidth: Integer; [r]

  property BarHeight: Integer; [rw]

  property BarHeightToWidth: Integer; [rw]

  property BarWidth: Integer; [rw]

  property Bitmap: TBitmap; [rws]

  property Caption: string; [rw]

  property CaptionLayout: TTextLayout; [rw]

  property Code: string; [rw]

  property ECCLevel: Integer; [rw]

  property ExtendedSyntax: Boolean; [rw]

  property FreeCodewords: Integer; [r]

  property RelativeBarHeight: Boolean; [rw]

  property QuietZone: Integer; [rw]

  property TotalCodewords: Integer; [r]

  property UsedCodewords: Integer; [r]

  property UsedECCCodewords: Integer; [r]

  property Color;

published

  property Align;

  property Cursor;

  property Enabled;

  property Font;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  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;

TStCustom2DBarcode

TObject