Imprimer un Timage

uses printers;

{....}

procedure TForm1.Button1Click(Sender: TObject);
var ScaleX, ScaleY :Integer;
RR :TRect;
begin
with Printer do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(Handle,logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle,logPixelsY) div PixelsPerInch;

RR := Rect(0,0,Image1.picture.width * scaleX, Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR,Image1.Picture.Graphic);

finally
EndDoc;
end;
end;
end;






Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour30/11/2001
VisualisationVu 1103 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur