frmpropdlg.pas

来自「Apprehend Screen Capture Component Versi」· PAS 代码 · 共 61 行

//------------------------------------------------------------------------------
//  Apprehend Demo
//  Copyright (c) 2000 : Copyright Adirondack Software & Graphics 1996-2000
//  Created            : 12-30-2000
//  Last Modification  : 04-10-2001
//  Description        : frmPropDlg Unit
//  Requires           : LMD Controls and Preview Components
//------------------------------------------------------------------------------

unit frmPropDlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons,
   ExtCtrls, ImageEnView, ImageEn, ImageEnIO;

type
   TPropertiesDlg = class(TForm)
      OKBtn: TButton;
      Bevel1: TBevel;
      txtFilename: TLabel;
      txtSize: TLabel;
      txtColors: TLabel;
      txtmem: TLabel;
      txtFileType: TLabel;
      txtDPI: TLabel;
      txtDPIY: TLabel;
      ImageEn1: TImageEn;
      txtColorMapCount: TLabel;
      Panel1: TPanel;
      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.