55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
//------------------------------------------------------------------------------
|
|
// ImageEn Convert To & Lossless Transform Demo: 1.0
|
|
//------------------------------------------------------------------------------
|
|
|
|
unit frmfullscrn;
|
|
|
|
interface
|
|
|
|
uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Comctrls,
|
|
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ImageEnView, ImageEn,
|
|
IEView, hyieutils, iexBitmaps, hyiedefs, iesettings, iexLayers, iexRulers;
|
|
|
|
type
|
|
TFullScreen = class ( TForm )
|
|
ImageEnView1: TImageEnView;
|
|
procedure ImageClick ( Sender: TObject );
|
|
procedure Image1KeyDown ( Sender: TObject;var Key: Word;Shift: TShiftState );
|
|
procedure FormKeyPress ( Sender: TObject;var Key: Char );
|
|
procedure FormCreate ( Sender: TObject );
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
FullScreen: TFullScreen;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TFullScreen.ImageClick ( Sender: TObject );
|
|
begin
|
|
FullScreen.Close;
|
|
end;
|
|
|
|
procedure TFullScreen.Image1KeyDown ( Sender: TObject;var Key: Word;Shift: TShiftState );
|
|
begin
|
|
FullScreen.Close;
|
|
end;
|
|
|
|
procedure TFullScreen.FormKeyPress ( Sender: TObject;var Key: Char );
|
|
begin
|
|
FullScreen.Close;
|
|
end;
|
|
|
|
procedure TFullScreen.FormCreate ( Sender: TObject );
|
|
begin
|
|
ImageEnView1.SetChessboardStyle ( 6, bsSolid );
|
|
end;
|
|
|
|
end.
|
|
|