{ ****************************************** }
{ }
{ FastReport v5.0 }
{ Barcode RTTI }
{ }
{ Copyright (c) 1998-2014 }
{ by Alexander Tzyganenko, }
{ Fast Reports Inc. }
{ }
{ ****************************************** }

unit FMX.frxBarcode2DRTTI;

interface

{$I frx.inc}

implementation

uses
  System.Classes, System.Types, System.SysUtils, FMX.Types, FMX.fs_iinterpreter, FMX.frxBarcodePDF417,
  FMX.frxBarcodeDataMatrix, FMX.frxBarcodeQR, FMX.frxClassRTTI, FMX.frxBarcode2DView,
  FMX.frxBarcodeProperties, System.Variants;

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('TfrxBarcode2DType', 'bcCodePDF417, bcCodeDataMatrix, bcCodeQR');
    AddEnum('TQRCodeEncoding', 'qrAuto, qrNumeric, qrAlphanumeric, qrISO88591, qrUTF8NoBOM, qrUTF8BOM, qrShift_JIS');
    AddEnum('TQRErrorLevels', 'ecL, ecM, ecQ, ecH');

    AddEnum('DatamatrixEncoding', 'Auto, Ascii, C40, Txt, Base256, X12, Edifact');
    AddEnum('DatamatrixSymbolSize', 'AutoSize, Size10x10, Size12x12, Size8x18, Size14x14, Size8x32, Size16x16, Size12x26,'
    + ' Size18x18, Size20x20, Size12x36, Size22x22, Size16x36, Size24x24, Size26x26, Size16x48, Size32x32, Size36x36, Size40x40,'
    + 'Size44x44, Size48x48, Size52x52, Size64x64, Size72x72, Size80x80, Size88x88, Size96x96, Size104x104, Size120x120, Size132x132, Size144x144');

    AddEnum('PDF417ErrorCorrection', ' AutoCorr, Level0, Level1, Level2, Level3, Level4, Level5, Level6, Level7, Level8');
    AddEnum('PDF417CompactionMode', 'AutoCompaction, TextComp, Numeric, Binary');

    AddClass(TUniqueProp, 'TPersistent');
    AddClass(TPDF417UniqueProperties, 'TUniqueProp');
    AddClass(TDataMatrixUniqueProperties, 'TUniqueProp');
    AddClass(TfrxQRProperties, 'TUniqueProp');

    AddClass(TfrxBarcode2DView, 'TfrxView');
  end;
end;

initialization

fsRTTIModules.Add(TFunctions);

finalization

if fsRTTIModules <> nil then
  fsRTTIModules.Remove(TFunctions);

end.