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

Menampilkan gambar GIF di Delphi #101

Terbang itu LALAT

andrypein.net : Sekarang adalah bagian pemanasan dulu, ya tutor kecil lah tentang bagaimana memunculkan gambar .gif di komponen TImage pada delphi.

Beginilah tutornya :

Gif di delphi
aslinya mah gerak sumpah

Sample standar untuk aplikasi mentah kita hanya butuh 1 button, 1 Image, 1 openpicturedialog dengan definisi uses awal adalah sebagai berikut :

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
 Forms, Dialogs;

Kemudian beri event onclick pada button1 :

procedure TForm1.Button1Click(Sender: TObject);
begin
 if openpicturedialog1.Execute then
  image1.Picture.LoadFromFile(openpicturedialog1.FileName)
 else
  exit;
end;

Anda hanya bisa menampilkan gambar dengan ekstensi .bmp .ico .wmf .emf
maka dari itu untuk menampilkan gambar gif, maka donlod dulu compiler unit nya disini.

GifDCU Donlod

Kemudian extract file hasil donlodnya, file itu bernama GIFImage.dcu, kopikan GIFImage.dcu ke C:Program Files\Borland Delphi7\Lib paste disana.

Cara penggunaannya adalah tinggal tambahkan GIFImage pada bagian uses tadi.

Lalu coba jalankan lagi program tadi, dan anda bisa menampilkan gambar gif pada TImage, allrite dan pasti dijamin BERHASIL lah.

Begitulah cara menampilkan gambar GIF di delphi Semoga bermanfaat.

*AFK

Related Articles

One Comment

Tinggalkan Balasan

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

Back to top button