[Image画图]小尺寸画过后，再大尺寸画只能显示刚才小尺寸范围内的图形，先大尺寸画过后大小尺寸都能画。何解？

Question

谢谢.

Answer 1

问题解决：在Form的Resize事件里写以下代码就OK了：
procedure TForm1.FormResize(Sender: TObject);
var
  B: TBitmap;//在内存的一个位图中先画好，然后再赋给Image
begin
  B := TBitmap.Create;
  try
    B.Width := ClientWidth;
    B.Height := ClientHeight;
    B.Canvas.FillRect(Rect(0, 0, B.Width, B.Height));
    Image1.Left := 0;
    Image1.Top := 0 ;
    Image1.Width := B.Width;
    Image1.Height := B.Height;
    Image1.Picture.Bitmap.Assign(B);
  finally
    B.Free;
  end;
end;不知道为什么在Image上间接画会有问题，好象并没有真正的画，这里只好先在内存位图在画好