Hai..semua.Saya orang malaysia.Dah lama saya join komuniti ini tapi tidak pernah post topik kt sini.Post ini adalah first time.Komuniti ini memang banyak membantu saya dalam pemprograman delphi.Thanks komuniti delphi indonesia.Dimalaysia tiada komuniti delhi.Huhuhu... Saya ingin tanya kawan2.bagaimana nak buat program zoom in/out image dengan menggunakan TImage(standart komponen).Saya udah search google namun tidak dijumpa solutionnya. :cry: Tolong ya...

http://delphi.about.com/od/graphics/l/aa120198.htm

ok thanks yayaretina...ada contoh lagi tak?

di google masih banyak. silahkan perluas pencarian anda..

@yayaretina: http://delphi.about.com/od/graphics/l/aa120198.htm

Contoh ini tak seperti yg saya inginkn.Saya inginkn program yg boleh zoom in/out image yg boleh diload.Dalam program tu ada komponent TImage dan juga button zoom in/out.

udah ketemu belum om... maksudnya zoom in/out mirip yg di paint tu bukan? klo ya, mungkin seperti ini kali yawh... (ini bukan fungsi zoom in/out sih, cuma ganti2 ukuran gambar nya ajah, klo yg zoom in/out beneran ga tau deh gmn...) oya, komponen Image1 (TImage) sebaiknya diletakkan di atas komponen TScrollBox.

var pfwidth, pfheight: Integer;
procedure BukaGambar;
begin
  if OpenPictureDialog1.Execute then begin
    Image1.AutoSize := True;
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    pfwidth := Image1.Width;
    pfheight := Image1.Height;
    Image1.AutoSize := False;
    Image1.Stretch := True;
  end;
end;
procedure ZoomIn;
begin
  Image1.Width := Image1.Width+round(pfwidth/100100); 
  Image1.Height := Image1.Height+round(pfheight/100 100);
  // nilai 100100 bisa diganti 100 50, etc.
  // tapi kalo nilai aslinya ampe koma2an, ntar pas di-zoom out mungkin 
  // ga kembali ke ukuran persis seperti semula
  Image1.Repaint;
end;
procedure ZoomOut;
begin
  Image1.Width := Image1.Width-round(pfwidth/100100);
  Image1.Height := Image1.Height-round(pfheight/100 100);
  // penjelasan, SDA
  Image1.Repaint;
end;

CMIIW.

thanks sikuper85,,, baruku tahu ianya mudah saja

hanya resize image saja dh boleh buat zoom in/out

Selesai...