تكبير الصورة

ضع الـ image ضمن ScrollBox

ثم اجعل خاصية strech للـ image على true

وعند النقر على زر او في حدث OnClick زد في الطول والعرض للعنصر image

مثلا

image1.height:=image.height+20

image1.width:=image.width+20

وكيف يمكن الحفظ بالابعاد الجديدة

:D

هنا اقف انا لمن هم اعلم منى عذرا

:rolleyes: شكرا

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  jpg: TJpegImage;
  scale: Double;
begin
  if opendialog1.execute then
  begin
    jpg := TJpegImage.Create;
    try
      jpg.Loadfromfile(opendialog1.filename);
      if jpg.Height > jpg.Width then
        scale := 50 / jpg.Height
      else
        scale := 50 / jpg.Width;
      bmp := TBitmap.Create;
      try
        {Create thumbnail bitmap, keep pictures aspect ratio}
        bmp.Width := Round(jpg.Width * scale);
        bmp.Height := Round(jpg.Height * scale);
        bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg);
        {Draw thumbnail as control}
        Self.Canvas.Draw(100, 10, bmp);
        {Convert back to JPEG and save to file}
        jpg.Assign(bmp);
        jpg.SaveToFile(ChangeFileext(opendialog1.filename, '_thumb.JPG'));
      finally
        bmp.free;
      end;
    finally
      jpg.free;
    end;
  end;
end;

شكرا لكORWA

هذا نص كود بالكامل لتسجيل صورة من نوع Jpeg بمقياس يحدده المستعمل (h)

ZoomingImages.zip