دخول

هاوي دلفي · 07-09-2011, 08:29 PM

السلام عليكم
رغم إجراء عدد من المحاولات والبحث لم أستطع طباعة صورة تظهر في عنصر image من نوع jpg عند الضغط على زر button
كيف القيام بذلك مع العلم بأنني أستخدم دلفي 7 ولكم الشكر

paix144 · 07-09-2011, 08:53 PM

و عليكم السلام و رحمة الله
جرب هذا الكود أخي

كود :
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

هاوي دلفي · 08-09-2011, 08:03 AM

السلام عليكم جزاك الله خيراً تمت الطباعة
كيف تتم طباعة الصورة بشكل كامل على ورقة قياس a4

paix144 · 08-09-2011, 07:11 PM

و إياك أخي الكريم
بالنسبة لل A4 أنظر هذا الموضوع
http://www.delphi4arab.net/forum/showthr...p?tid=5801

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة