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 pBarcode1D unit }

TBarcodeCustomParameters = record
Alpha: Double;
Origin: TPoint;
Offset: TPoint;
DensityRate: Double;
FullEncoded: string;
Text: string;
DisplayText: TDisplayText;
TextPosition: TTextPosition;
TextAlignment: TTextAlignment;
TextFont: TFont;
ExtraFontSize: Integer;
LeftQuietZone_Spacing: Integer;
RightQuietZone_Spacing: Integer;
LeftQuietZone_Width: Integer;
RightQuietZone_Width: Integer;
LeftQuietText_Height: Integer;
RightQuietText_Height: Integer;
Symbol_Width: Integer;
Symbol_Height: Integer;
Symbol_V_Offset: Integer;
Symbol_H_Offset: Integer;
Total_Left: Integer;
Total_Top: Integer;
Total_Width: Integer;
Total_Height: Integer;

end;

{ Defined in the pBarcode1D unit }

TOnDrawBarcode = procedure (Sender: TObject; Canvas: TCanvas; Parameters: TBarcodeCustomParameters) 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.
• BarcodeParameters: TBarcodeCustomParameters; It contains fields to specify the parameters (e.g. position, size, etc.) for the barcode symbol. It is defined in the pBarcode1D unit. See also the TBarcodeCustomParameters record.

Contents