Picture Explorer

Oke kawanku semua kali ini aslang ingin membagi sedikit tentang pemrograman Delphi, picture explorer(melihat gambar langsung dari Delphi). program ini hanya dibuat untuk iseng-iseng saja, Oke Tak usah panjang lebar langsung saja buka Delphi sobat kemudian tambahkan beberapa komponen kedalam form sobat seperti pada tampak table dibawah ini:

komponen	Tab pada Component Pallate
TDriveComboBox1	Win 3.1
TDirectoryListBox1	Win 3.1
TFileListBox1	Win 3.1
TPanel1	Standart
TImage1	Additionall

Aturlah komponen – komponen tersebut seperti pada gambar dibawah ini:




Setelah sobat mengatur semua komponen seperti pada gambar diatas sekarang aturlah property -property komponen tersebut seperti pada table dibawah ini:

Komponen	Property	Nilai
TDriveComboBox1	DirList	DirectoryListBox1
TDirectoryListBox1	FileList	FileListBox1
TFileListBox1	Mask	*.bmp;*.jpg
TPanel1	Caption	Kosongkan
TImage1	Stretch	True
Form1	Caption	Picture Explorer
,	BorderStyle	bsDialog

Klik sekali pada komponen TFileListBox1 kemudian pada Object Inspector pilih tab Events, kemudian double klik pada Events OnClick dan ketikkan listing berikut ini.

image1.Picture.LoadFromFile(filelistbox1.FileName);

sangat mudah bukan..,
Cuma itu saja listingnya untuk membuat program kecil ini..:-)
Pada Delphi format gambar yang disediakan hanya .bmp, Agar program yang kita buat bisa membaca format gambar .Jpg tambahkan unit JPEG pada klausa Uses, untuk lebih jelasnya lihat gambar dibawah ini:



Selesai sudah program kecil kita ini, sekarang tinggal dijalankan programnya dengan menekan tombol F9. Tampilan programnya seperti berikut:
:-)

Tweet