(* ImageEn Build 7.0.0.06.2637 @ 7-4-17 14:58:42.679 *)
(*
File version 1000
*)

unit ieregdb;

{$I ie.inc}


{$ifndef IENOIDEREGS}

{$R-}
{$Q-}

interface


procedure Register;

implementation

uses
  {$ifdef Delphi2007orNewer}
  DesignEditors,
  {$endif}

  Classes,

  {$ifdef IEUSEDESIGNINTF}
  DesignIntf,
  {$endif}

  {$ifdef IEUSEFILTEDIT}
  FiltEdit,
  {$endif}

  {$ifdef IEUSEDSGNINTF}
  DsgnIntf,
  {$endif}

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



{$ifdef Delphi2007orNewer}

type
  TIESelectionEditor = class(TSelectionEditor)
  public
    procedure RequiresUnits(Proc: TGetStrProc); override;
  end;

procedure TIESelectionEditor.RequiresUnits(Proc: TGetStrProc);
begin
  Proc( 'hyieutils' );
  Proc( 'iexBitmaps' );
  Proc( 'hyiedefs' );
  Proc( 'iesettings' );
end;

procedure IERegisterSelectionEditor(AClass: TClass; AEditor: TSelectionEditorClass);
begin
  RegisterSelectionEditor(AClass, AEditor);
end;

{$else}

procedure IERegisterSelectionEditor(AClass: TClass; AEditor: TClass);
begin
end;

type
  TIESelectionEditor = class
  end;

{$endif}


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


{$else} // IENOIDEREGS
interface
implementation
{$endif}


end.