проблемка с печатью изображения

← →
digester © (2002-06-30 00:32) [0]

Хай Ол!
Помогите плз, така проблемка. Есть tif файл, я его просматриваю свободно в TImage. И дело в том, что при печати этого изображения with Printer do
begin
BeginDoc;
Canvas.Draw(500,500,Image1.Picture.Graphic); или Canvas.StretchDraw(image1.BoundsRect, Image1.Picture.Graphic);
EndDoc;

Он у меня печатает его маленьким очень. Вопрос: как увеличить масштаб изображения, причём чтоб картинка увеличилась не меняя пропорциональности. А то если задать в Rect цифры, то он будет картинку либо расширять либо сужать в строгом порядке, а мне надо только увеличить её раза в 2-3.
КАК ЖЕ ЭТО СДЕЛАТЬ МОЖНО, ПОМОГИТЕ РЕБЯТ ПЛЗ, ОЧЕНЬ НУЖНО.

← →
Fletch (2002-09-04 16:35) [1]

Printer.BeginDoc;
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, b.Width * ScaleX, b.Height * ScaleY);
Canvas.StretchDraw(R, b);
finally
EndDoc;
end;

ScaleX, ScaleY: Integer;
b - твой TGraphic

проблемка с печатью изображения Найти похожие ветки