السلام عليكم
رغم إجراء عدد من المحاولات والبحث لم أستطع طباعة صورة تظهر في عنصر image من نوع jpg عند الضغط على زر button
كيف القيام بذلك مع العلم بأنني أستخدم دلفي 7 ولكم الشكر
و عليكم السلام و رحمة الله
جرب هذا الكود أخي
كود :
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;
لا تنسى إضافة
Printers لل
Uses
السلام عليكم جزاك الله خيراً تمت الطباعة
كيف تتم طباعة الصورة بشكل كامل على ورقة قياس a4