Масштабирование изображений при печати

[qivi]

Я правильно понял что нужно масштабировать растровое изображение перед печатью? Если да можно так:

Код: Выделить всё

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;

[Padre_Mortius]

qivi, спасибо за совет, но писать свой ImageViewer для разнообразных форматов в мои планы пока не входит.