(* ImageEn Build 7.0.0.06.2637 @ 7-4-17 14:58:42.679 *) (* Copyright (c) 1998-2017 by Carlotta Calandra. All rights reserved. Copyright (c) 2011-2017 by Xequte Software. This software comes without express or implied warranty. In no case shall the author be liable for any damage or unwanted behavior of any computer hardware and/or software. Author grants you the right to include the component in your application, whether COMMERCIAL, SHAREWARE, or FREEWARE. ImageEn, IEvolution and ImageEn ActiveX may not be included in any commercial, shareware or freeware libraries or components. www.ImageEn.com *) (* File version 1002 *) unit imageen; {$IFDEF FPC} {$MODE DELPHI} {$ENDIF} {$R-} {$Q-} {$I ie.inc} {$IFDEF IEINCLUDETIMAGEEN} interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, Clipbrd, stdctrls, ImageEnView, ImageEnProc, ImageEnIO, hyiedefs, iefft, printers; type {!! TImageEn Description This component is included only to preserve compatibility with legacy applications. We suggest that new implementations use and its associated properties and . Starting with version 2.1.7, TImageEn is the same as TImageEnView. !!} {$ifdef IEHASPLATFORMATTRIBUTE} [ComponentPlatformsAttribute(pidWin32 or pidWin64)] {$endif} TImageEn = class(TImageEnView) private protected public constructor Create(Owner: TComponent); override; destructor Destroy; override; published end; implementation uses IEOpenSaveDlg; {$R-} ///////////////////////////////////////////////////////////////////////////////////// {$HINTS OFF} constructor TImageEn.Create(Owner: TComponent); var dummyio, dummyproc: TObject; begin inherited Create(Owner); // this precreate embedded TImageEnIo and TImageEnProc. Without this Delphi will hang when putting TImageEn on a form dummyio := io; dummyproc := proc; end; {$HINTS ON} destructor TImageEn.Destroy; begin inherited; end; {$ELSE} // IEINCLUDETIMAGEEN interface implementation {$ENDIF} end.