还有我在image中把图像改为新的大小,但打印出来的大小并不是改完的大小这是为什么?
代码如下:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Image1.Width:=150;
Image1.Height:=200;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
Printer.BeginDoc;
Printer.Canvas.Draw(40, 100, image1.Picture.Graphic);
Printer.EndDoc;
end;
end;