Memasukan gambar ke dalam cell DBGrid Delphi

Home > Delphi > Memasukan gambar ke dalam cell DBGrid Delphi

Memasukan gambar ke dalam cell DBGrid Delphi

December 7th, 2009

Hay….dah lama bgt ga nulis blog lagi nih, sebelum tahun 2009 usai, saya pengen ngasih sedikit tips & trick delphi lagi nih. Gara-gara pusing ngerjain TA yang tak kunjung selesai :wallbash_tb: , mending saya share aja ya apa yang terakhir saya buat di delphi. kali ini tentang memasukan gambar ke dalam cell dbgrid di delphi, jadi dalam field tertentu terdapat gambar yang di masukan pada saat program dijalankan. Sebenernya udah banyak sih cara seperti ini, namun apa salahnya kalau saya bagiin lagi, mudah-mudahan berguna bagi yang membutuhkan. Mo tau gmana caranya? Yuk ikutin langkah-langkahnya key…

Buat sebuah form seperti ini !

form-awal

Lakukan koneksi ke database !

Tabel yang saya buat terdiri dari 3 field yaitu : nomor (int(autoincrement)), nama_barang(varchar(10)), status(varchar(10)).

Tambahkah gambar ke dalam ImageList1 (terserah Anda, dalam contoh ini hanya 2 gambar)!

imagelist

Tulis kode program pada event DBGrid (OnDrawColumnCell) seperti berikut !

^?View Code DELPHI

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  bitmap : TBitmap;
  fixRect : TRect;
  bmpWidth : integer;
 
  imgIndex : integer;
begin
  fixRect := Rect;
 
  if Column.Field = ADOTable1status then
  begin
    if ADOTable1status.Value = 'Hidup' then
      imgIndex := 0
    else
      imgIndex := 1;
 
    bitmap := TBitmap.Create;
    try
      ImageList1.GetBitmap(imgIndex,bitmap);
      bmpWidth := (Rect.Bottom - Rect.Top);
      fixRect.Right := Rect.Left + bmpWidth;
      DBGrid1.Canvas.StretchDraw(fixRect,bitmap);
    finally
      bitmap.Free;
    end;
    fixRect := Rect;
    fixRect.Left := fixRect.Left + bmpWidth;
  end;
  DBGrid1.DefaultDrawColumnCell(fixRect,DataCol,Column,State);
end;