Arsip: Program zoom in/out images

 
user image
more 15 years ago

zed1308

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...
user image
more 15 years ago

yayaretina

http://delphi.about.com/od/graphics/l/aa120198.htm
user image
more 15 years ago

zed1308

ok thanks yayaretina...ada contoh lagi tak?
user image
more 15 years ago

yayaretina

di google masih banyak. silahkan perluas pencarian anda..
user image
more 15 years ago

zed1308

@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.
user image
more 15 years ago

sikuper85

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.
user image
more 15 years ago

zed1308

thanks sikuper85,,, baruku tahu ianya mudah saja
user image
more 15 years ago

zed1308

hanya resize image saja dh boleh buat zoom in/out
user image
more 15 years ago

zed1308

Selesai...
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com