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