TStBarCode

type TStBarCode = class(TGraphicControl)

protected

  FCode: string;

  FAddCheckChar: Boolean;

  FBarCodeType: TStBarCodeType;

  FBarColor: TColor;

  FBarToSpaceRatio: Double;

  FBarNarrowToWideRatio: Integer;

  FBarWidth: Double;

  FCode128Subset: TStCode128CodeSubset;

  FBearerBars: Boolean;

  FShowCode: Boolean;

  FShowGuardChars: Boolean;

  FSupplementalCode: string;

  FTallGuardBars: Boolean;

  FExtendedSyntax: Boolean;

  bcBarInfo: TStBarCodeInfo;

  bcBarModWidth: Integer;

  bcCheckK: Integer;

  bcDigits: TStDigitArray;

  bcDigitCount: Integer;

  bcSpaceModWidth: Integer;

  bcNormalWidth: Integer;

  bcSpaceWidth: Integer;

  bcSupplementWidth: Integer;

  procedure SetCode();

  procedure SetAddCheckChar();

  procedure SetBarCodeType();

  procedure SetBarColor();

  procedure SetBarToSpaceRatio();

  procedure SetBarNarrowToWideRatio();

  procedure SetBarWidth();

  procedure SetBearerBars();

  procedure SetCode128Subset();

  procedure SetExtendedSyntax();

  procedure SetShowCode();

  procedure SetShowGuardChars();

  procedure SetSupplementalCode();

  procedure SetTallGuardBars();

  procedure SetVersion();

  procedure CalcBarCode;

  procedure CalcBarCodeWidth;

  function DrawBar();

  procedure DrawBarCode();

  function GetDigits();

  procedure PaintPrim();

  function SmallestLineWidth();

  procedure Loaded; override;

  procedure Paint; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CopyToClipboard;

  procedure GetCheckCharacters();

  function GetBarCodeWidth();

  procedure PaintToCanvas();

  procedure PaintToCanvasSize();

  procedure PaintToDC();

  procedure PaintToDCSize();

  procedure SaveToFile();

  function Validate();

published

  property AddCheckChar: Boolean; [rw]

  property BarCodeType: TStBarCodeType; [rw]

  property BarColor: TColor; [rw]

  property BarToSpaceRatio: Double; [rw]

  property BarNarrowToWideRatio: Integer; [rw]

  property BarWidth: Double; [rw]

  property BearerBars: Boolean; [rw]

  property Code: string; [rw]

  property Code128Subset: TStCode128CodeSubset; [rw]

  property ExtendedSyntax: Boolean; [rw]

  property ShowCode: Boolean; [rw]

  property ShowGuardChars: Boolean; [rw]

  property SupplementalCode: string; [rw]

  property TallGuardBars: Boolean; [rw]

  property Align;

  property Color;

  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;

TStBarCode

TObject