ieregctrl.pas

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

unit ieregctrl;

interface

{$I ie.inc}

procedure Register;

implementation

uses Classes,
{$IFNDEF IECPPBUILDER}
  FiltEdit,
{$IFDEF IEFIXDESIGNINT}
  DesignIntf,
{$ELSE}
  DsgnIntf,
{$ENDIF}
{$ENDIF}
  ImageEn, HSVBox, ImageEnProc, ImageEnView, ImageEnIO, HistogramBox, RulerBox, IEGradientBar,
  VideoCap, IEVect, IEMView, Iemio, IEOpenSaveDlg, hvideocap, hyieutils;

procedure Register;
begin
{$IFDEF IEINCLUDETIMAGEEN}
  RegisterComponents('ImageEn', [TImageEn]);
{$ENDIF}
  RegisterComponents('ImageEn', [TImageEnProc]);
  RegisterComponents('ImageEn', [TImageEnView]);
  RegisterComponents('ImageEn', [TImageEnVect]);
{$IFDEF IEINCLUDEVIDEOCAPTURE}
  RegisterComponents('ImageEn', [TImageEnVideoView]);
  RegisterComponents('ImageEn', [TImageEnVideoCap]);
{$ENDIF}
{$IFDEF IEINCLUDEMULTIVIEW}
  RegisterComponents('ImageEn', [TImageEnMIO]);
  RegisterComponents('ImageEn', [TImageEnMView]);
{$ENDIF}
  RegisterComponents('ImageEn', [TImageEnIO]);
  RegisterComponents('ImageEn', [THistogramBox]);
  RegisterComponents('ImageEn', [TIEGradientBar]);
  RegisterComponents('ImageEn', [THSVBox]);
  RegisterComponents('ImageEn', [TOpenImageEnDialog]);
  RegisterComponents('ImageEn', [TSaveImageEnDialog]);
  RegisterComponents('ImageEn', [TRulerBox]);
{$IFNDEF IECPPBUILDER}
  RegisterPropertyEditor(TypeInfo(string), TOpenImageEnDialog, 'Filter', TFilterProperty);
{$ENDIF}
end;

end.