Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Menggunakan Gambar pada Delphi #43

wind adalah angin

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.

palette additional

Untuk komponen openpicturedialog cari pallete dialog :

palette 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

Related Articles

2 Comments

  1. Ass
    Gan,,before tengkiu 4 tutor2'a!!
    Ane mau tnya gan!!klo mau ngecek si Timage ada gambar'a atau tidak cara'a gimana ya gan..
    jadi klo da gambar perintah'a gambar di save,
    tpi klo ga ada di munculin pesan…
    Mohon pencerahan'a ya gan!!
    tengkiu s4l4m k3n4l

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button