106 lines
2.1 KiB
Plaintext
106 lines
2.1 KiB
Plaintext
(* 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
|
|
|
|
{!!
|
|
<FS>TImageEn
|
|
|
|
<FM>Description<FN>
|
|
|
|
This component is included only to preserve compatibility with legacy applications.
|
|
We suggest that new implementations use <A TImageEnView> and its associated properties <A TImageEnView.IO> and <A TImageEnView.Proc>.
|
|
|
|
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.
|
|
|