Menggunakan Gambar pada Delphi #43

andrypein.net : Dari tipe bentukan pascal yang kemarin, sekarang kita ngajlok sedikit dulu bahas tentang delphi, kita bikin aplikasi sederhana, cuma hanya untuk menampilkan gambar saja.

Oke nah sekarang bagaimana kita akan menggunakan gambar pada delphi tersebut? lets mari kita mulai.

Sebelumnya kita tambahkan Uses baru di usesnya dengan nama “JPEG”

kemudian buat form dengan ukuran yang sedang2 saja,, bentuk default kaya gini, mau robah terserah rekan2 saja.

komponen yang ditambahkan adalah komponen image dan openpicturedialog,untuk komponen image,ada di pallete additional.

Untuk komponen openpicturedialog cari pallete dialog :

Jika sudah ketemu pasangkan openpicturedialog nya di form yang sudah kita buat tadi, setelah semua terkumpul mari kita buat listingnya seperti ini.

Pertama2 untuk button1 yang ane kasih nama buka gambar.
listingnya seperti ini:

Procedure TForm1.Button1Click(Sender: TObject);
begin
 if openpicturedialog1.execute = false then
  exit
 else
  image1.Picture.LoadFromFile(openPictureDialog1.Filename);
end;

sekarang untuk checkbox1 yang ane kasih nama stretch :

Procedure TForm1.Checkbox1Click(Sender: TObject);
begin
 if checkbox1.Checked then
  image1.Stretch:= true
 else
  image1.Stretch:= false;
end;

terakhir untuk checkbox2 :

Procedure TForm1.Checkbox2Click(Sender: TObject);
begin
 if checkbox2.Checked then
  image1.Visible:= false
 else
  image1.Visible:= true;
end;

setelah semuanya, silahkan di run kan saja, dan dicoba dan sekian artikel menggunakan gambar pada delphi kali ini semoga bermanfaat!.

*AFK