Unit AsBarCode_interface

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

BarCode_interface contain interface function for generating of Barcodes, used by RTFReport and XMLReport but can be used independently by user too.

Full functional demo.

Overview

Classes, Interfaces, Objects and Records

Name Description
record TBCdata record for definition of one BarCode type

Functions and Procedures

function GetBarCodeNames(L: TStrings; IncludeUndefined: boolean = false): integer;
function GetBarCodeType(Name: string): TBarcodeType;
procedure DrawBarCode(BarCode: string; BarCodeType: TBarcodeType; Canvas: Pointer; var Rect: TRect; var LineWidth: integer; Font: Pointer; AutoFontSize: boolean; ShowText: boolean; ShowTextPosition: TShowTextPosition; UseCheckSum: boolean = true); StdCall;

Types

TBarcodeType = (...);
TShowTextPosition = (...);

Constants

BCdata: array [bcCode_2_5_interleaved .. bcTypeUndefined] of TBCdata = ((Name: 'Code_2_5_interleaved'; num: true), (Name: 'Code_2_5_industrial'; num: true), (Name: 'Code_2_5_matrix'; num: true), (Name: 'Code39'; num: false), (Name: 'Code39Extended'; num: false), (Name: 'Code128A'; num: false), (Name: 'Code128B'; num: false), (Name: 'Code128C'; num: true), (Name: 'Code93'; num: false), (Name: 'Code93Extended'; num: false), (Name: 'CodeMSI'; num: true), (Name: 'CodePostNet'; num: true), (Name: 'CodeCodabar'; num: false), (Name: 'CodeEAN8'; num: true), (Name: 'CodeEAN13'; num: true), (Name: 'CodeUPC_A'; num: true), (Name: 'CodeUPC_E0'; num: true), (Name: 'CodeUPC_E1'; num: true), (Name: 'CodeUPC_Supp2'; num: true), (Name: 'CodeUPC_Supp5'; num: true), (Name: 'CodeEAN128A'; num: false), (Name: 'CodeEAN128B'; num: false), (Name: 'CodeEAN128C'; num: true), (Name: 'Undefined'; num: true));
BCCheckSumType = [bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A];

Description

Functions and Procedures

function GetBarCodeNames(L: TStrings; IncludeUndefined: boolean = false): integer;

load list of BarCode names

function GetBarCodeType(Name: string): TBarcodeType;

return BarCode type according BarCode name

procedure DrawBarCode(BarCode: string; BarCodeType: TBarcodeType; Canvas: Pointer; var Rect: TRect; var LineWidth: integer; Font: Pointer; AutoFontSize: boolean; ShowText: boolean; ShowTextPosition: TShowTextPosition; UseCheckSum: boolean = true); StdCall;

draw selected BarCode to canvas, Rect return real size of generated barcode, if LineWidth=0 then it is calculated from Rect and returned

Types

TBarcodeType = (...);

list of supported Barcode types

Values
  • bcCode_2_5_interleaved:  
  • bcCode_2_5_industrial:  
  • bcCode_2_5_matrix:  
  • bcCode39:  
  • bcCode39Extended:  
  • bcCode128A:  
  • bcCode128B:  
  • bcCode128C:  
  • bcCode93:  
  • bcCode93Extended:  
  • bcCodeMSI:  
  • bcCodePostNet:  
  • bcCodeCodabar:  
  • bcCodeEAN8:  
  • bcCodeEAN13:  
  • bcCodeUPC_A:  
  • bcCodeUPC_E0:  
  • bcCodeUPC_E1:  
  • bcCodeUPC_Supp2:  
  • bcCodeUPC_Supp5:  
  • bcCodeEAN128A:  
  • bcCodeEAN128B:  
  • bcCodeEAN128C:  
  • bcTypeUndefined:  
TShowTextPosition = (...);

list of possible BarCode text positions

Values
  • stpTopLeft:  
  • stpTopRight:  
  • stpTopCenter:  
  • stpBottomLeft:  
  • stpBottomRight:  
  • stpBottomCenter:  

Constants

BCdata: array [bcCode_2_5_interleaved .. bcTypeUndefined] of TBCdata = ((Name: 'Code_2_5_interleaved'; num: true), (Name: 'Code_2_5_industrial'; num: true), (Name: 'Code_2_5_matrix'; num: true), (Name: 'Code39'; num: false), (Name: 'Code39Extended'; num: false), (Name: 'Code128A'; num: false), (Name: 'Code128B'; num: false), (Name: 'Code128C'; num: true), (Name: 'Code93'; num: false), (Name: 'Code93Extended'; num: false), (Name: 'CodeMSI'; num: true), (Name: 'CodePostNet'; num: true), (Name: 'CodeCodabar'; num: false), (Name: 'CodeEAN8'; num: true), (Name: 'CodeEAN13'; num: true), (Name: 'CodeUPC_A'; num: true), (Name: 'CodeUPC_E0'; num: true), (Name: 'CodeUPC_E1'; num: true), (Name: 'CodeUPC_Supp2'; num: true), (Name: 'CodeUPC_Supp5'; num: true), (Name: 'CodeEAN128A'; num: false), (Name: 'CodeEAN128B'; num: false), (Name: 'CodeEAN128C'; num: true), (Name: 'Undefined'; num: true));

array with definitions of all barcodes

BCCheckSumType = [bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A];
 

Author

Created

Sep 2006

Last Modified

Apr 2014


Generated by PasDoc 0.13.0 on 2018-09-12 00:05:07