ieregdb.pas

来自「·ImageEn 2.3.0 ImageEn一组用于图像处理、查看和分析的Del」· PAS 代码 · 共 34 行

unit ieregdb;

{$R-}
{$Q-}

interface

{$I ie.inc}

procedure Register;

implementation

uses Classes, DBImageEn, dbimageenvect
{$ifdef IEREGISTERQR}
,qrimageen,qrdbimageen
{$endif}
;

procedure Register;
begin
{$IFDEF IEINCLUDEDB}
  RegisterComponents('ImageEn', [TImageEnDBView]);
  RegisterComponents('ImageEn', [TImageEnDBVect]);
  {$ifdef IEREGISTERQR}
  RegisterComponents('ImageEn', [TQRDBImageEn]);
  RegisterComponents('ImageEn', [TQRImageEn]);
  {$endif}
{$ENDIF}
end;

end.