Arsip: Program zoom in/out images

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...

more 15 years ago
zed1308
@yayaretina: http://delphi.about.com/od/graphics/l/aa120198.htmContoh 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.

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.more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- gimana si Step - step bikin remote admin?
by mcrayeps in Network, Files, I/O & System more 17 years ago - table fastreport
by muktaf in Reporting more 17 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tertarik Programming
by danial in Lain-lain more 15 years ago - Open Source Entry Level Akunting
by muammar in Tutorial & Community Project more 18 years ago - nanya menghubungkan ADODatabase, TDBComboBox, TDBGrid
by b3g1n312 in MsSQL more 18 years ago - Login password dgn ADO
by camp_sire in Tip n Trik Pemrograman more 17 years ago - tombol tab...?
by aireda in Tip n Trik Pemrograman more 18 years ago - Point Gateway (SMS Gateway)
by eksant in Free dan Gratis more 14 years ago - SysTray
by doniking in Tip n Trik Pemrograman more 17 years ago