62 lines
1.6 KiB
ObjectPascal
62 lines
1.6 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastReport VCL }
|
|
{ Barcode RTTI }
|
|
{ }
|
|
{ Copyright (c) 1998-2021 }
|
|
{ by Fast Reports Inc. }
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxBarcodeRTTI;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFNDEF FPC}Windows, {$ENDIF}
|
|
Classes, Types, SysUtils, Forms, fs_iinterpreter, frxBarcode, frxClassRTTI
|
|
{$IFDEF Delphi6}
|
|
, Variants
|
|
{$ENDIF};
|
|
|
|
type
|
|
TFunctions = class(TfsRTTIModule)
|
|
public
|
|
constructor Create(AScript: TfsScript); override;
|
|
end;
|
|
|
|
|
|
{ TFunctions }
|
|
|
|
constructor TFunctions.Create(AScript: TfsScript);
|
|
begin
|
|
inherited Create(AScript);
|
|
with AScript do
|
|
begin
|
|
AddEnum('TfrxBarcodeType', 'bcCode_2_5_interleaved, bcCode_2_5_industrial,' +
|
|
'bcCode_2_5_matrix, bcCode_ITF_14, bcCode39, bcCode39Extended, bcCode128, bcCode128A, bcCode128B,' +
|
|
'bcCode128C, bcCode93, bcCode93Extended, bcCodeMSI, bcCodePostNet,' +
|
|
'bcCodeCodabar, bcCodeEAN8, bcCodeEAN13, bcCodeUPC_A, bcCodeUPC_E0,' +
|
|
'bcCodeUPC_E1, bcCodeUPC_Supp2, bcCodeUPC_Supp5, bcCodeEAN128, bcCodeEAN128A,' +
|
|
'bcCodeEAN128B, bcCodeEAN128C, bcCodeUSPSIntelligentMail, bcCodePlessey, bcGS1Code128, bcPharmacode,'+
|
|
'bcDeutsche_Post_Identcode, bcDeutsche_Post_Leitcode');
|
|
AddClass(TfrxBarcodeView, 'TfrxView');
|
|
end;
|
|
end;
|
|
|
|
|
|
initialization
|
|
fsRTTIModules.Add(TFunctions);
|
|
|
|
finalization
|
|
if fsRTTIModules <> nil then
|
|
fsRTTIModules.Remove(TFunctions);
|
|
|
|
end.
|
|
|