inBar Code components , Version 2.01, (c) PSOFT
BarCode.zip file (use -d option pkunzip ) contains the following components:
TEan - component for Bar Code design & display
TEanMemo - multiply EAN, see demo version
TDBEan - data aware TEan
TDBEanMemo - data aware TEanMemo
TQrEan, TQrEanMemo, TQrDBEan, TQrDBEanMemo - versions of component for Quick Report
EanDemo.Exe - in directory DEMO_EXE demo demonstrating all features of components TEan, TEanMemo, TQrEan a TQrEanMemo.
This demo version demonstrates all features of individual components.
Data Aware components are not included here.
Data Aware is enhanced with properties DataSource, DataField and Field
(these are not included in TEan and TEanMemo).
Components work with most common types of Bar Codes :
EAN 8
EAN 13
Codabar, ABC Codabar
Code 39 Standard/Full
Code 93 Standard/Full
Code 128
2/5 Interleaved, 2/5 Matrix, 2/5 Datalogic, 2/5 Industrial, 2/5 IATA, 2/5 Invert.
Trial version requires running Delphi.
If Delphi is not running, Bar Codes will be crossed over.
Licence - this demo version can be freely distributed .
Fully functional library costs $49, library with source code costs $99.
This price includes password for a full functional BarCode library,
information on components sent via E-mail, One free upgrade,
any additional upgrades are 50 % off the original price.
Data aware components are not included in the demo version of executable, only as componet,
to allow viewing this demo for users without DBE installed on their system.
These components can be used same way as the TEan and TEanMemo components.
Data aware components have an additional properties:
DataSource ... same as the other data aware components
DataField
Field
You can use the componets directly from Delphi after their succesful installation.
Instalation Bar code components :
use Delphi menu COMPONENT - Install component, select file EanReg.pas, click OK.
QuickReport based components regsitration unit is EanQrReg.pas.
On the Components palette you have page EAN with TEan, TEanMemo ... components.
TEan & TEanMemo properties, methods and events :
(see also files EanKod.int & EanQr.int )
---------------------------------------------------
types :
TBarCodePaintEvent = procedure (Sender: TObject; R:TRect; ABarCode:String) of object;
TLastPaintError = (erOK, erErrorInBarCode, erCharOutOfSet,
erSmallPaintBox, erOutOfSecurityBox);
TTypBarCode = ( bcEan8,bcEan13,bcCodabar,
bcCode39Standard,bcCode39Full,
bcCode93Standard,bcCode93Full,
bcCode128,bcABCCodabar,
bc25Datalogic,bc25Interleaved,bc25Matrix,
bc25Industrial,bc25IATA,bc25Invert);
TCustomEan = class(TGraphicControl);
TEan = class(TCustomEan);
properties :
-----------------
BackgroundColor : TColor - background color, used only if Transparent=false
Transparent : Boolean - false - BackgroundColor is used
ShowLabels : Boolean - true - under bar code lines is painted Barcode value, else this value is hidden
StartStopLines : Boolean - true - start, stop (Ean 8 & Ean 13 middle) lines length = barcode lines + Barcode.Font.Height
- false - length all lines is equal
TypBarCode : TTypBarCode - one of value bcEan8,bcEan13,bcCodabar,
bcCode39Standard,bcCode39Full,
bcCode93Standard,bcCode93Full,
bcCode128,bcABCCodabar,
bc25Datalogic,bc25Interleaved,bc25Matrix,
bc25Industrial,bc25IATA,bc25Invert
LinesColor : TColor - color used for painting bar code lines
for text information is used Font.Color
Ean13AddUp : Boolean - valid only for TypBarCode=bcEan13 and BarCode with additional numbers (13 Ean code digit + space + 2 or 5 additional digit)
- true - align for additional digit is Up, else Down
AutoFontSize : Boolean - true - size of text information is automatically calculated,
false - for text information is used Font.Size
Security : Boolean - true - zoom or width change allowed only with scale factor 1,2,3,4, ... -> use this property for devices with small DPI , screen, matrix printer
false - unlimited zoom or width change, use for devices with high DPI > ... , laser printer ...
Font : TFont - used for printing of text information
BarCode : String - bar code value, must be a valid value for selected type of bar code
(for EAN 8 7 digits -> 8.digit is calculated, for EAN 13 first 12 digit, 13. digit is calculated)
Events :
-------------------------------------------------------
property OnPaint : TBarCodePaintEvent; - after bar code was painted
property OnChangeTypCode : TBarCodePaintEvent; - after property TypBarCode was changed
property OnChangeBarCode : TBarCodePaintEvent; - after property BarCode was changed
Methods & functions :
--------------------------------------------------------
procedure About - show about box;
procedure Next -
function MinWidth:Integer; - minimal bar code picture width without losing any lines
function GetSetOfChars:string; - set of avaible chars for selected type bar code (property TypBarCode)
function GetSetOfCharsVisible:String; - ... chars with ASCII value<32 is replaced with ^A .. ^Z
function CheckBarCode(var S:String):Boolean - true if value BarCode property is valid.
Barcode is painted only if this value is true
procedure CopyToClipboard; - place the barcode picture to the clipboard as bmp
procedure CopyToClipboardWMF; - place the barcode picture to the clipboard as wmf
procedure SaveAsBitmap(M:TFileName); - save the barcode picture to the file as bmp
procedure SaveAsWMF(M:TFileName); - save the barcode picture to the file as wmf
procedure Print(R:TRect); - paint bar code to the selected area TEan.Canvas
function LastPaintErrorText:String; - error message after last painting bar code
------------------------------------------------------------
public function
procedure PaintBarCode(C:TCanvas; R:TRect; E:TCustomEan);
paint bar code on the Canvas C, to the rectangle R and other information and properties is used
from component E
-------------------------------------------------------------
Component TEanMemo has property Lines : TStringList;
for each line of property Lines is painted one barcode row
--------------------------------------------------------------
Components TDBEan, TDBEanMemo and components for Quick report :
- usage of this components is equal as TEan & TEanMemo
- additional properties DataSource, DataField & Field
- for TDBEan DataField.DataType=ftString
- for TDBEanMemo DataField.DataType=ftMemo
--------------------------------------------------------------
Thank you for using my components ....
All questions, information & error messages please mail to my EMail address.
EMail : psoft@ke.telecom.sk
WEB : www.ke.telecom.sk/psoft/index.html