Menampilkan gambar GIF di Delphi

Sekarang adalah bagian pemanasan dulu,tutor kecil lah,tentang bagaimana memunculkan gambar .gif di komponen TImage,nih dah ane kasih tutornya.

misal,potongan standar mentah kita hanya,1 button,1 Image,1 openpicturedialog dengan uses awal sbb:

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

kemudian extract here,file itu bernama GIFImage.dcu,kopikan GIFImage.dcu ke C:\Program Files\Borland\Delphi7\Lib paste disana.
cara penggunaannya tambahkan GIFImage pada uses.
lalu coba jalankan lagi program tadi,dan anda bisa masukan gambar gif pada TImage
dijamin BERHASIL

Posted in: Delphi