bottleclient/SurfacePreview.pas

   1 unit SurfacePreview;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, ExtCtrls;
   8
   9 type
  10   TfrmSurfacePreview = class(TForm)
  11     Image: TImage;
  12     Timer: TTimer;
  13     procedure FormCreate(Sender: TObject);
  14     procedure TimerTimer(Sender: TObject);
  15   private
  16     { Private \90é\8c¾ }
  17   public
  18     { Public \90é\8c¾ }
  19     procedure HideAway;
  20     procedure ShowPreview(Bmp: TBitmap; X, Y: integer);
  21   end;
  22
  23 var
  24   frmSurfacePreview: TfrmSurfacePreview;
  25
  26 implementation
  27
  28 {$R *.dfm}
  29
  30 procedure TfrmSurfacePreview.FormCreate(Sender: TObject);
  31 begin
  32   HideAway;
  33 end;
  34
  35 procedure TfrmSurfacePreview.HideAway;
  36 begin
  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Å)
  41   Left := Low(integer);
  42   Top := Low(integer);
  43 end;
  44
  45 procedure TfrmSurfacePreview.ShowPreview(Bmp: TBitmap; X, Y: integer);
  46 begin
  47   Image.Picture.Graphic := Bmp;
  48   ClientWidth := Bmp.Width;
  49   ClientHeight := Bmp.Height;
  50   Self.Left := X;
  51   Self.Top := Y;
  52
  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;
  56 end;
  57
  58 procedure TfrmSurfacePreview.TimerTimer(Sender: TObject);
  59 begin
  60   HideAway;
  61 end;
  62
  63 end.