57 lines
1.3 KiB
Plaintext
57 lines
1.3 KiB
Plaintext
//------------------------------------------------------------------------------
|
|
// ImageEn Convert To & Lossless Transform Demo: 1.0
|
|
//------------------------------------------------------------------------------
|
|
|
|
unit frmPropDlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons,
|
|
ExtCtrls, ImageEnView, ImageEn, ImageEnIO, IEView, hyieutils, iexBitmaps, hyiedefs,
|
|
iesettings, iexLayers, iexRulers;
|
|
|
|
type
|
|
TPropertiesDlg = class ( TForm )
|
|
OKBtn: TButton;
|
|
txtFilename: TLabel;
|
|
txtSize: TLabel;
|
|
txtColors: TLabel;
|
|
txtmem: TLabel;
|
|
txtFileType: TLabel;
|
|
txtDPI: TLabel;
|
|
txtDPIY: TLabel;
|
|
ImageEn1: TImageEnView;
|
|
txtColorMapCount: TLabel;
|
|
GroupBox1: TGroupBox;
|
|
procedure FormKeyDown ( Sender: TObject;var Key: Word;
|
|
Shift: TShiftState );
|
|
procedure FormCreate ( Sender: TObject );
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
PropertiesDlg: TPropertiesDlg;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TPropertiesDlg.FormCreate ( Sender: TObject );
|
|
begin
|
|
// permit trapping of escape key
|
|
KeyPreview := True;
|
|
end;
|
|
|
|
procedure TPropertiesDlg.FormKeyDown ( Sender: TObject;var Key: Word;
|
|
Shift: TShiftState );
|
|
begin
|
|
if ( Key = vk_Escape ) then Close;
|
|
end;
|
|
|
|
end.
|
|
|