+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف طباعة صورة من نوع jpg (/showthread.php?tid=3402)
كيف طباعة صورة من نوع jpg - هاوي دلفي - 07-09-2011
السلام عليكم
رغم إجراء عدد من المحاولات والبحث لم أستطع طباعة صورة تظهر في عنصر image من نوع jpg عند الضغط على زر button
كيف القيام بذلك مع العلم بأنني أستخدم دلفي 7 ولكم الشكر
كيف طباعة صورة من نوع jpg - paix144 - 07-09-2011
و عليكم السلام و رحمة الله
جرب هذا الكود أخي
كود :
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;كيف طباعة صورة من نوع jpg - هاوي دلفي - 08-09-2011
السلام عليكم جزاك الله خيراً تمت الطباعة
كيف تتم طباعة الصورة بشكل كامل على ورقة قياس a4
كيف طباعة صورة من نوع jpg - paix144 - 08-09-2011
و إياك أخي الكريم
بالنسبة لل A4 أنظر هذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=5801