请问如何加载一幅图片并将它固定在一个指定的范围内

Question

我用TBitMap类定义了一个变量，然后想用这个变量的LoadFromFile方法来加载一幅图象，如何把这个图象固定在一个给定的范围里呢，并且要显示出图象的全部。
var Bitmap:TBitmap;
begin
       Bitmap := TBitmap.Create;
       bitmap.LoadFromFile(PicFile);
end;

Answer 1

使用TCanvas自己绘制，比如：
procedure TForm1.FormPaint(Sender: TObject);
var
  Bitmap:TBitmap;
  ARect: TRect;
begin
  ARect := Rect(0,0,400,400);
  ARect.Left := 0;
  ARect.Top := 0;
  Bitmap := TBitmap.Create;
  bitmap.LoadFromFile('D:\图片\1.bmp');
  Form1.Canvas.Brush.Bitmap := Bitmap;
  Form1.Canvas.FillRect(ARect);
  Form1.Canvas.StretchDraw(ARect,Bitmap);end;

Answer 2

去掉
ARect.Left := 0;
ARect.Top := 0;
ARect就是你的图形所绘制的区域。具体参数的意思你看一下
TRect的帮助就知道了。

Answer 3

记住不一定是在Paint事件中，还看一下Rect函数的帮助就应该对这个问题没有任何问题了。