TStPNBarCode

type TStPNBarCode = class(TGraphicControl)

protected

  FPostalCode: string;

  FCheckNumber: Integer;

  pnbcDisplayDims: TStPNBarCodeDims;

  pnbcDefRes: TStPNBarCodeRes;

  procedure SetPostalCode();

  procedure SetVersion();

  function DrawTallBar();

  function DrawShortBar();

  function DrawNumber();

  procedure DrawBarCode();

  procedure SetCheckNumber;

  procedure Loaded; override;

  procedure Paint; override;

public

  constructor Create(); override;

  procedure ComputeSizes();

  procedure CopyToClipboard;

  procedure PaintToCanvas();

  procedure PaintToDC();

  procedure PaintToPrinterCanvas();

  procedure PaintToPrinterDC();

  procedure SaveToFile();

  procedure SaveToFileRes();

published

  property Cursor;

  property Enabled;

  property Hint;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  property PostalCode: string; [rw]

  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;

TStPNBarCode

TObject