在listview上画图，图形如何实现拉申

Question

我用这个方法，在listview上画图，
procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  ListView1.Canvas.Draw(0,0,Image1.picture.Bitmap);
end;
却不能使画出的图形实现拉申，图形还是原来的大小，请问各位高手帮帮忙，
在线等待。

Answer 1

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  Sender.Canvas.StretchDraw(ARect, Image1.picture.Bitmap);
end;