delphi печать image

Ответ от
procedure PrintImage(Image: TImage; ZoomPercent: Integer);
// if ZoomPercent=100, Image will be printed across the whole page
var
relHeight, relWidth: integer;
begin
Screen.Cursor := crHourglass;
Printer.BeginDoc;
with Image.Picture.Bitmap do
begin
if ((Width / Height) > (Printer.PageWidth / Printer.PageHeight)) then
begin
// Stretch Bitmap to width of PrinterPage
relWidth := Printer.PageWidth;
relHeight := MulDiv(Height, Printer.PageWidth, Width);
end
else
begin
// Stretch Bitmap to height of PrinterPage
relWidth := MulDiv(Width, Printer.PageHeight, Height);
relHeight := Printer.PageHeight;
end;
relWidth := Round(relWidth * ZoomPercent / 100);
relHeight := Round(relHeight * ZoomPercent / 100);
DrawImage(Printer.Canvas, Rect(0, 0, relWidth, relHeight),
Image.Picture.Bitmap);
end;
Printer.EndDoc;
Screen.cursor := crDefault;
end;
кусок из рабочей проги
// процедура печати всех объектов которые лежат на Tpanel
//на ней можешь размещать свои image
procedure BitBtn11Click(Sender: TObject);
var
ScreenDC: HDC;
canvas1:Tcanvas;
imag : timage;
begin
// inherited;
imag:=TMyImage.Create(PnTreeImg);
// imag.Name:='PintImg';
imag.Parent := PnTreeImg; //PnTreeImg - просто Tpanel
imag.Visible:=false;
imag.Left:=0;
imag.Top:=0;
imag.Width:=PnTreeImg.Width;
imag.Height:=PnTreeImg.Height;
imag.Picture.LoadFromFile('girl.bmp');
// imag.AutoSize:=false;
imag.Stretch:=true;
imag.Center:=true;
ScreenDC:=GetDC(0);
Canvas1:=TCanvas.Create();
canvas1.Handle:=ScreenDC;
imag.Canvas.CopyRect(Rect(0,0,PnTreeImg.Width+2,PnTreeImg.Height+2)
,canvas1
,Rect(PnTreeImg.ClientOrigin.X-1
,PnTreeImg.ClientOrigin.y-1
,PnTreeImg.ClientOrigin.X+PnTreeImg.Width//-1
,PnTreeImg.ClientOrigin.y+PnTreeImg.Height));
Releasedc(0,ScreenDC);
PrintImage(imag,TrackBar1.Position);
Canvas1.Free;
imag.free;
// PageControl2.Canvas.
end;