Re: Масштабирование изображений при печати
Добавлено: 20.06.2013 09:42:49
Я правильно понял что нужно масштабировать растровое изображение перед печатью? Если да можно так:
Код: Выделить всё
function ScaleBitmap(aBitmap:TBitmap;Scale:Single):TBitmap;// Масштабирование битмапа
begin
if (aBitmap.Width<>0)and(aBitmap.Height<>0) then
begin
result:=TBitmap.Create;
result.Width:=Round(aBitmap.Width*Scale);
result.Height:=Round(aBitmap.Height*Scale);
result.Canvas.StretchDraw(Bounds(0,0,result.Width,result.Height),aBitmap);
end else result:=nil;
end;