6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
10 TfrmSurfacePreview = class(TForm)
13 procedure FormCreate(Sender: TObject);
14 procedure TimerTimer(Sender: TObject);
21 procedure ShowPreview(Bmp: TBitmap; X, Y: integer);
22 function IsHidden: boolean;
26 frmSurfacePreview: TfrmSurfacePreview;
32 procedure TfrmSurfacePreview.FormCreate(Sender: TObject);
37 procedure TfrmSurfacePreview.HideAway;
39 //
\82Æ
\82è
\82 \82¦
\82¸
\8c©
\82¦
\82È
\82¢
\82Æ
\82±
\82ë
\82É
\93¦
\82°
\82é
40 //
\82±
\82Ì
\83E
\83B
\83\93\83h
\83E
\82Í
\81AShow/Hide
\82³
\82ê
\82Ä
\82¢
\82é
\82Ì
\82Å
\82Í
\82È
\82
\82Ä
\81A
41 //
\8eÀ
\8dÛ
\82É
\82Í
\95Æ
\92n
\82É
\88Ú
\93®
\82µ
\82Ä
\82¢
\82é
\82¾
\82¯
\82Å
\82 \82é
\81B
42 // (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Å)
48 function TfrmSurfacePreview.IsHidden: boolean;
53 procedure TfrmSurfacePreview.ShowPreview(Bmp: TBitmap; X, Y: integer);
55 Image.Picture.Graphic := Bmp;
56 ClientWidth := Bmp.Width;
57 ClientHeight := Bmp.Height;
62 //
\8e©
\93®
\82Å
\8fÁ
\82¦
\82é
\83^
\83C
\83}
\81[
\82ð
\83Z
\83b
\83g
63 Timer.Enabled := false; //
\82¢
\82Á
\82½
\82ñ
\82±
\82ê
\82Å
\8cv
\8e\9e\82ª
\83\8a\83Z
\83b
\83g
\82³
\82ê
\82é
64 Timer.Enabled := true;
67 procedure TfrmSurfacePreview.TimerTimer(Sender: TObject);