6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
10 TfrmSurfacePreview = class(TForm)
13 procedure FormCreate(Sender: TObject);
14 procedure TimerTimer(Sender: TObject);
20 procedure ShowPreview(Bmp: TBitmap; X, Y: integer);
24 frmSurfacePreview: TfrmSurfacePreview;
30 procedure TfrmSurfacePreview.FormCreate(Sender: TObject);
35 procedure TfrmSurfacePreview.HideAway;
37 //
\82Æ
\82è
\82 \82¦
\82¸
\8c©
\82¦
\82È
\82¢
\82Æ
\82±
\82ë
\82É
\93¦
\82°
\82é
38 //
\82±
\82Ì
\83E
\83B
\83\93\83h
\83E
\82Í
\81AShow/Hide
\82³
\82ê
\82Ä
\82¢
\82é
\82Ì
\82Å
\82Í
\82È
\82
\82Ä
\81A
39 //
\8eÀ
\8dÛ
\82É
\82Í
\95Æ
\92n
\82É
\88Ú
\93®
\82µ
\82Ä
\82¢
\82é
\82¾
\82¯
\82Å
\82 \82é
\81B
40 // (Show/Hide
\83\81\83\
\83b
\83h
\8eg
\82¤
\82Æ
\83t
\83H
\81[
\83J
\83X
\82ª
\88Ú
\82Á
\82½
\82è
\82µ
\82Ä
\96Ê
\93|
\82È
\82Ì
\82Å)
45 procedure TfrmSurfacePreview.ShowPreview(Bmp: TBitmap; X, Y: integer);
47 Image.Picture.Graphic := Bmp;
48 ClientWidth := Bmp.Width;
49 ClientHeight := Bmp.Height;
53 //
\8e©
\93®
\82Å
\8fÁ
\82¦
\82é
\83^
\83C
\83}
\81[
\82ð
\83Z
\83b
\83g
54 Timer.Enabled := false; //
\82¢
\82Á
\82½
\82ñ
\82±
\82ê
\82Å
\8cv
\8e\9e\82ª
\83\8a\83Z
\83b
\83g
\82³
\82ê
\82é
55 Timer.Enabled := true;
58 procedure TfrmSurfacePreview.TimerTimer(Sender: TObject);