testbarcode.pas

QuickRep1: TQuickRep QRImage1: TQRImage QRLabel1: TQRLabel Edit1: TEdit Butt

unit TestBarCode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, QRCtrls, QuickRpt, ExtCtrls, ppPrnabl, ppClass,
  ppCtrls, ppBarCod, ppBands, ppCache, ppComm, ppRelatv, ppProd, ppReport;

type
  TDrawBarCode = function (vHandle: THandle; vDataStr: PChar; vPrint, vAutoSize, vAutoSizeFont: Boolean;
  { 把计弧