Canvans 的拉伸显示到Printer 是不是问题多多（今天我没有打印出来），推荐一个好的“打印图片”的控件好呢？

Question

拉伸显示有什么问题呢？
var MyGraphic: TBitMap;
   MyRect: TRect;
begin
  MyGraphic := TBitMap.Create;
  MyRect.Left := 0;
  MyRect.Top := 0;
  MyRect.Right := 1000;
  MyRect.Bottom := 1000;
  MyGraphic.LoadFromFile('H:\Temp.bmp');
  Form1.Canvas.StretchDraw(MyRect,MyGraphic);
  FreeAndNil(MyGraphic);
end;
上面的代码能够拉伸显示图片到Form上，那么到Printer上应该没有问题的
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

拉伸显示有什么问题呢？
var MyGraphic: TBitMap;
   MyRect: TRect;
begin
  MyGraphic := TBitMap.Create;
  MyRect.Left := 0;
  MyRect.Top := 0;
  MyRect.Right := 1000;
  MyRect.Bottom := 1000;
  MyGraphic.LoadFromFile('H:\Temp.bmp');
  Form1.Canvas.StretchDraw(MyRect,MyGraphic);
  FreeAndNil(MyGraphic);
end;
上面的代码能够拉伸显示图片到Form上，那么到Printer上应该没有问题的
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

确实StretchDraw在处理比较大的JPG文件的时候出了一点问题