109 lines
1.8 KiB
Plaintext
109 lines
1.8 KiB
Plaintext
(* 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.
|
|
|