منتديات أهل الجزائر
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

حساب عرض وارتفاع صور

 :: منتديات البرمجة :: منتدى تعلم البرمجة

استعرض الموضوع التالي استعرض الموضوع السابق اذهب الى الأسفل

حساب عرض وارتفاع صور Empty حساب عرض وارتفاع صور

مُساهمة  alla23 الثلاثاء أكتوبر 25, 2016 9:51 am

حساب عرض وارتفاع صور
كيفية تحميل صورة من جهازك


الكود:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i,j : integer;
begin
 if OpenPictureDialog1.Execute then
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 for i := 1 to image1.Height do
 Label1.Caption := inttostr(i);
 for j := 1 to image1.Width do
 Label3.Caption := inttostr(j);
end
alla23
alla23
عضو ماسي
عضو ماسي

عدد المساهمات : 82
نقاط : 212
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع التالي استعرض الموضوع السابق الرجوع الى أعلى الصفحة

- مواضيع مماثلة

منتديات أهل الجزائر :: منتديات البرمجة :: منتدى تعلم البرمجة

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى