Печать фрагмента TImage

[KiLLiR]

Всем доброго времени суток.

Суть проблемы в следующем:
на форме находится ScrollBox, на него помещен TImage. Это сделано потому, что TImage масштабируется с помощью TrackBar и когда становится слишком большой и выходит за границы ScrollBox, то линейки прокрутки у ScrollBox позволяют просмотреть все изображение. Но это все предисловие. Сама проблема в том что я хочу напечатать фрагмент TImage, который в данный момент при работе программы находится в поле зрения в ScrollBox. Т.е. пользователь увеличил до нужных размеров, выбрал фрагмент изображения с помощью полос прокрутки и распечатал именно этот фрагмент на весь лист бумаги.
Искал на форуме и нашел тока коды, которые печатают изображение целиком.

uses  
  Printers;  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  ScaleX, ScaleY: Integer;  
  RR: TRect;  
begin  
  with Printer do  
  begin  
    BeginDoc;  
    // The StartDoc function starts a print job.  
    try  
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;  
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;  
      // Retrieves information about the Pixels per Inch of the Printer.  
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);  
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);  
      // Stretch to fit  
    finally  
      EndDoc;    
    end;  
  end;  
end;

Предполагаю что строку
RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
можно заменить строкой
RR := Rect(0, 0, ScrollBox1.Width, ScrollBox1.Height);
но далеко не всегда координаты TImage в левом верхнем углу ScrollBox'а будут 0,0. Как быть с этим я не знаю.

Может есть какие-нибудь другие методы печати, поделитесь секретами кто знает, буду благодарен.

[lexaltd]

А если так:

 RR := Rect(ScrollBox1.HorzScrollBar.Position, ScrollBox1.VertScrollBar.Position, ScrollBox1.Width, ScrollBox1.Height);
 Printer.Canvas.CopyRect(Printer.Canvas.ClipRect,Image1.Canvas,RR);

[Niarb]

Canvas.StretchDraw(RR, Image1.Picture.Graphic);

...она просто впишет всю картинку с Image в квадрат RR, а тебе надо наоборот

попробуй вот так: - печатает 1 : 1 выбранную часть рисунка
причем в начальном положении СкролБаров Image должна находится в нулевых координатах (Image1.Left=0; Image1.Top=0)

procedure TForm1.Button1Click(Sender: TObject);
var rr, rr2: TRect;
    l, t, r, b: integer;
    ScaleX, ScaleY: Integer;
begin
   ScaleX := GetDeviceCaps(Printer.Handle, logPixelsX) div PixelsPerInch;
   ScaleY := GetDeviceCaps(Printer.Handle, logPixelsY) div PixelsPerInch;
   l:=abs(Image1.Left); // l:=ScrollBox1.HorzScrollBar.Position;
   t:=abs(Image1.Top); // t:=ScrollBox1.VertScrollBar.Position;
   r:=l+ScrollBox1.ClientWidth;
   b:=t+ScrollBox1.ClientHeight;
   rr:=Rect(l,t,r,b);
   rr2:=Rect(0,0,(r-l)*ScaleX,(b-t)*ScaleY);
   printer.BeginDoc;
   printer.Canvas.CopyRect(rr2,image1.Picture.Bitmap.Canvas,rr);
   printer.EndDoc;
end;

[KiLLiR]

Всем спасибо. Niarb очень помог. Осталось только немного дополнить код т.к. у меня изображение еще масштабируется.