حساب عرض وارتفاع صور
كيفية تحميل صورة من جهازك
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