X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=bottleclient%2FSurfacePreview.pas;h=7ba0ab9dd4c03af507bb1ebac134e8d32a2e4caa;hb=b2f78969283522c78b649501191b8da43172bdd7;hp=e41c867456b6aaf854a801e8a9b1582f9a737224;hpb=21a593cf126a7b342da64ea4a136801403ffca43;p=winbottle%2Fwinbottle.git

diff --git a/bottleclient/SurfacePreview.pas b/bottleclient/SurfacePreview.pas
index e41c867..7ba0ab9 100644
--- a/bottleclient/SurfacePreview.pas
+++ b/bottleclient/SurfacePreview.pas
@@ -14,10 +14,12 @@ type
     procedure TimerTimer(Sender: TObject);
   private
     { Private éŒ¾ }
+    FIsHidden: boolean;
   public
     { Public éŒ¾ }
     procedure HideAway;
     procedure ShowPreview(Bmp: TBitmap; X, Y: integer);
+    function IsHidden: boolean;
   end;
 
 var
@@ -38,8 +40,14 @@ begin
   // ‚±‚̃EƒBƒ“ƒhƒE‚́AShow/Hide‚³‚ê‚Ä‚¢‚é‚Ì‚Å‚Í‚È‚­‚āA
   // ŽÀÛ‚É‚Í•Æ’n‚Ɉړ®‚µ‚Ä‚¢‚邾‚¯‚Å‚ ‚éB
   // (Show/Hideƒƒ\ƒbƒhŽg‚¤‚ƃtƒH[ƒJƒX‚ªˆÚ‚Á‚½‚肵‚Ä–Ê“|‚È‚Ì‚Å)
-  Left := Low(integer);
-  Top := Low(integer);
+  Left := Low(smallint);
+  Top := Low(smallint);
+  FIsHidden := true;
+end;
+
+function TfrmSurfacePreview.IsHidden: boolean;
+begin
+  Result := FIsHidden;
 end;
 
 procedure TfrmSurfacePreview.ShowPreview(Bmp: TBitmap; X, Y: integer);
@@ -47,8 +55,9 @@ begin
   Image.Picture.Graphic := Bmp;
   ClientWidth := Bmp.Width;
   ClientHeight := Bmp.Height;
-  Left := X;
-  Top := Y;
+  Self.Left := X;
+  Self.Top := Y;
+  FIsHidden := false;
 
   // Ž©“®‚ŏÁ‚¦‚éƒ^ƒCƒ}[‚ðƒZƒbƒg
   Timer.Enabled := false; // ‚¢‚Á‚½‚ñ‚±‚ê‚ÅŒvŽž‚ªƒŠƒZƒbƒg‚³‚ê‚é