frmpropdlg.pas

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

{******************************************************************************}
{*                                                                            *}
{*                         Adirondack Software & Graphics                     *)
(*                                  PropDlg Unit                              *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2001            *}
{*                                                                            *}
{******************************************************************************}

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;
      txtFileSize: 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.