Image Preview Ala XP

Teraplikasi pada: Delphi3 ke atas, Windows XP ke atas.

Di Delphi, kita semua tidak asing lagi pada yang namanya TImage, yang biasanya dipakai untuk menampilkan gambar. Tetapi kadang-kadang kebutuhan akan tampilan gambar yang fleksibel sulit untuk dipenuhi hanya dengan TImage.

Dalam hal ini saya memiliki ide, menampilkan gambar dengan gaya XP, yang memiliki fungsi rotate, zoom in, zoom out, print, best fit, actual size, dan berbagai fungsi lainnya yang tidak terdapat pada TImage. Ide ini dengan memanfaatkan TPreview dari Windows Preview Library (shimgvw.dll) yang terdapat pada WIndows XP ke atas, di folder System32

Kita lanjut saja ke langkah-langkah instalasi:

  • Jalankan Delphi, tutup semua proyek/file yang terbuka di Delphi.
  • Klik menu Component>Import ActiveX Library
  • Klik Add… dan pilh file C:\Windows\System32\shimgvw.dll. Klik Open.
  • Setelahnya, dari daftar carilah item dengan nama Preview 1.0 Type Library. Pada Class Name otomatis terdapat TPreview.
  • Tentukan Palette Page yang sesuai. Misalkan pilih Standard (defaultnya ActiveX).
    Bandingkan dengan gambar berikut:
    01.jpg
  • Klik Install. Pilih Into Existing Package. Klik OK.
  • Ikuti langkah-langkah sisanya sampai selesai dan klik File>Save.

Instalasi telah selesai. Bila sukses, pada palet Standard telah terinstall sebuah komponen baru, TPreview, seperti pada gambar berikut:
02.jpg

Penggunannya cukup mudah:

  • Buat sebuah aplikasi baru, tambhkan TPreview dari page Standard ke form, sesuikan lebar, tinggi dan posisinya pada form.
  • Kemudian tambahkan sebuah button dan OpenPictureDialog.
  • Klik ganda button1, pada event onclick ketik kode berikut:

    
    procedure TForm1.Button1Click(Sender: TObject);
    
    begin
    
    if OpenPictureDialog1.execute then
    
    begin
    
    Preview1.ShowFile(OpenPictureDialog1.FileName, 1);
    
    end
    
    end;
    
    
  • Save dan jalankan aplikasi Anda.
    03.jpg

Selamat mencoba

Download
Preview Demo
(ubah ekstensi ke .zip, scan dulu sebelum dijalankan).

google_tag: jokorb, image, tpreview, delphi, preview 1.0 type library,
shimgvw.dll

2 thoughts on “Image Preview Ala XP

  1. kami ni programmer delphi pemula.
    kami ada proyek akhir semester buat program delphi tapi databasenya MySQL. cemana tu caranya?
    kami pengennya pake xampp ato php.

    mysql server tu semacam xampp ato php juga?
    atau dia software pendukung mysql.

    tolong ya bang balas secepatnya…..
    plis…plis…plis…

  2. XAMP, eXtended Webserver (Apache), MySQL, PHP dan Perl kumpulan opensource software untuk membangun aplikasi berbasis Web Server. Dilengkapi Web-based interface untuk mysql. Juga disertai Perl untuk CGI sebagai pendamping PHP.

    PHP – PHP Hypertext Prepocessor. Bahasa Scripting nomor 1 di Internet sekarang ini, berjalan di server. Hampir semua kemampuan bahasa permograman lainnya tersedia di PHP. Kini disertai GTK (GUI Tool Kit) untuk membuat antarmuka grafis seperti Delphi.

    Nah, MySQL server itu, buat menyediakan data dan melayani akses data dari aplikasi yang kita buat.

    Untuk proyek akhirnya, sama saja dengan PHP, cuma PHP-nya diganti delphi. Dan tentu saja lebih mudah, tingal klik-klik-klik, jadi deh. Pake PHP kan cape’ ketiknya?

    Contoh koneksi Delphi+MySQL bisa dilihat di
    sini.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s