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

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

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

مُساهمة  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
عضو ذهبي
عضو ذهبي

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

http://delph.forumalgerie.net

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

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


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