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  

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;
 
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 = (...);
 
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 = (...);
 
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));

numeric data only

BCCheckSumType = [bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A];
 

Author

Created

Sep 2006

Last Modified

Apr 2014


Generated by PasDoc 0.13.0 on 2016-02-19 08:14:10