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     FIsHidden: boolean;
  18   public
  19     { Public \90é\8c¾ }
  20     procedure HideAway;
  21     procedure ShowPreview(Bmp: TBitmap; X, Y: integer);
  22     function IsHidden: boolean;
  23   end;
  24
  25 var
  26   frmSurfacePreview: TfrmSurfacePreview;
  27
  28 implementation
  29
  30 {$R *.dfm}
  31
  32 procedure TfrmSurfacePreview.FormCreate(Sender: TObject);
  33 begin
  34   HideAway;
  35 end;
  36
  37 procedure TfrmSurfacePreview.HideAway;
  38 begin
  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Å)
  43   Left := Low(smallint);
  44   Top := Low(smallint);
  45   FIsHidden := true;
  46 end;
  47
  48 function TfrmSurfacePreview.IsHidden: boolean;
  49 begin
  50   Result := FIsHidden;
  51 end;
  52
  53 procedure TfrmSurfacePreview.ShowPreview(Bmp: TBitmap; X, Y: integer);
  54 begin
  55   Image.Picture.Graphic := Bmp;
  56   ClientWidth := Bmp.Width;
  57   ClientHeight := Bmp.Height;
  58   Self.Left := X;
  59   Self.Top := Y;
  60   FIsHidden := false;
  61
  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;
  65 end;
  66
  67 procedure TfrmSurfacePreview.TimerTimer(Sender: TObject);
  68 begin
  69   HideAway;
  70 end;
  71
  72 end.