128 lines
3.1 KiB
Plaintext
128 lines
3.1 KiB
Plaintext
(* ImageEn Build 7.0.0.06.2637 @ 7-4-17 14:58:42.679 *)
|
|
(*
|
|
File version 1000
|
|
*)
|
|
|
|
unit ieregctrl;
|
|
|
|
{$I ie.inc}
|
|
|
|
|
|
{$ifndef IENOIDEREGS}
|
|
|
|
interface
|
|
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$ifdef Delphi2007orNewer}
|
|
DesignEditors,
|
|
{$endif}
|
|
|
|
Classes,
|
|
|
|
{$ifdef IEUSEDESIGNINTF}
|
|
DesignIntf,
|
|
{$endif}
|
|
|
|
{$ifdef IEUSEFILTEDIT}
|
|
FiltEdit,
|
|
{$endif}
|
|
|
|
{$ifdef IEUSEDSGNINTF}
|
|
DsgnIntf,
|
|
{$endif}
|
|
|
|
ImageEn, HSVBox, ImageEnProc, ImageEnView, ImageEnIO, HistogramBox, RulerBox, IEGradientBar,
|
|
VideoCap, IEVect, IEMView, Iemio, IEOpenSaveDlg, hvideocap, iexFolderMView, iexColorPalette;
|
|
|
|
|
|
{$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' );
|
|
Proc( 'iexLayers' );
|
|
Proc( 'iexRulers' );
|
|
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 IEINCLUDETIMAGEEN}
|
|
RegisterComponents('ImageEn (Legacy)', [TImageEn]);
|
|
IERegisterSelectionEditor( TImageEn, TIESelectionEditor );
|
|
{$ENDIF}
|
|
RegisterComponents('ImageEn', [TImageEnProc]);
|
|
IERegisterSelectionEditor( TImageEnProc, TIESelectionEditor );
|
|
RegisterComponents('ImageEn', [TImageEnView]);
|
|
IERegisterSelectionEditor( TImageEnView, TIESelectionEditor );
|
|
RegisterComponents('ImageEn', [TImageEnVect]);
|
|
IERegisterSelectionEditor( TImageEnVect, TIESelectionEditor );
|
|
{$IFDEF IEINCLUDEVIDEOCAPTURE}
|
|
RegisterComponents('ImageEn (Legacy)', [TImageEnVideoView]);
|
|
RegisterComponents('ImageEn (Legacy)', [TImageEnVideoCap]);
|
|
{$ENDIF}
|
|
{$IFDEF IEINCLUDEMULTIVIEW}
|
|
RegisterComponents('ImageEn', [TImageEnMIO]);
|
|
IERegisterSelectionEditor( TImageEnMIO, TIESelectionEditor );
|
|
RegisterComponents('ImageEn', [TImageEnMView]);
|
|
IERegisterSelectionEditor( TImageEnMView, TIESelectionEditor );
|
|
RegisterComponents('ImageEn', [TImageEnFolderMView]);
|
|
IERegisterSelectionEditor( TImageEnFolderMView, TIESelectionEditor );
|
|
{$ENDIF}
|
|
RegisterComponents('ImageEn', [TImageEnIO]);
|
|
IERegisterSelectionEditor( TImageEnIO, TIESelectionEditor );
|
|
RegisterComponents('ImageEn', [TOpenImageEnDialog]);
|
|
IERegisterSelectionEditor( TOpenImageEnDialog, TIESelectionEditor );
|
|
RegisterComponents('ImageEn', [TSaveImageEnDialog]);
|
|
IERegisterSelectionEditor( TSaveImageEnDialog, TIESelectionEditor );
|
|
|
|
RegisterComponents('ImageEn', [THistogramBox]);
|
|
RegisterComponents('ImageEn', [TIEGradientBar]);
|
|
RegisterComponents('ImageEn', [THSVBox]);
|
|
RegisterComponents('ImageEn', [TRulerBox]);
|
|
RegisterComponents('ImageEn', [TIEColorPalette]);
|
|
|
|
{$ifdef IEREGISTERPROPERTYEDITOR}
|
|
RegisterPropertyEditor(TypeInfo(string), TOpenImageEnDialog, 'Filter', TFilterProperty);
|
|
{$endif}
|
|
end;
|
|
|
|
{$else} // IENOIDEREGS
|
|
interface
|
|
implementation
|
|
{$endif}
|
|
|
|
end.
|
|
|