Event: OnDrawBarcode

Occurs after representing the barcode symbol. Write an OnDrawBarcode event handler to modify the barcode symbol after it was represented.

Syntax:

type

{ Defined in the pBarcode2D unit }

TUserWorkArea = record
WCanvas: TCanvas;
WBarcode: string;
WBarColor: TColor;
WSpaceColor: TColor;
WModule: Integer;
WLeftInPixels: Integer;
WTopInPixels: Integer;
WAngle: Integer;
WShowQuietZone: Boolean;
WMirror: Boolean;
WAnsiBarcode: AnsiString;
WBarcodeLength: Integer;
WQuietZoneWidthInModules_Left: Integer;
WQuietZoneWidthInModules_Top: Integer;
WQuietZoneWidthInModules_Right: Integer;
WQuietZoneWidthInModules_Bottom: Integer;
WSymbolZoneWidthInModules: Integer;
WSymbolZoneHeightInModules: Integer;
WTotalWidthInPixels: Integer;
WTotalHeightInPixels: Integer;
WSymbolZoneOffsetInPixels_Left: Integer;
WSymbolZoneOffsetInPixels_Top: Integer;
WAlpha: Double;
WOrgin: TPoint;

end;

{ Defined in the pBarcode2D unit }

PUserWorkArea = ^TUserWorkArea;

{ Defined in the pBarcode2D unit }

TOnDrawBarcode = procedure (Sender: TObject; Canvas: TCanvas; PWorkArea: PUserWorkArea) of object;

property OnDrawBarcode: TOnDrawBarcode;

Parameters:

• Sender: TObject; It is the object whose event handler is called.
• Canvas: TCanvas; The target canvas, the barcode symbol will be represented in it.
• PWorkArea: PUserWorkArea; It points to the TUserWorkArea record. The record contains fields defining the barcode symbol. See also the "TUserWorkArea" record.

Contents