проблемка с печатью изображения [D6, Win95/98]
digester © (2002-06-30 00:32:00)
Хай Ол!
Помогите плз, така проблемка. Есть 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:00) [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
Наверх 
ЧАТ |
Орешник |
|
