Menambahkan Gambar di Stringgrid di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Memasukan Image / Gambar ke stringgrid mungkin sudah banyak dibahas,sebenarnya Ane juga gx pernah pake stringgrid tapi tujuannya untuk memberikan wawasan saja bagi yang membutuhkan n buat tambah" postingan saja lah. Disini Ane langsung kasih contohnya, jadi sudah ada cara bagaimana memasukan data ke stringgrid dari database.

Ini sepenggal coding cara memasukan gambar ke Cells stringgrid,tanpa basa basi panjang lebar lagi.

 simpen di OnDrawCell...

 procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s:String;
  aCanvas: TCanvas;
begin
  if (ACol <> 6) or (ARow = 0) then
    Exit;
     s := (Sender as TStringGrid).Cells[ACol, ARow];
  aCanvas := (Sender as TStringGrid).Canvas;

  aCanvas.FillRect(Rect);


  if (s ='True') then
    aCanvas.Draw(Rect.Left+12, Rect.Top+2, img1.Picture.Bitmap)
  else
    aCanvas.Draw(Rect.Left+12, Rect.Top+2, img2.Picture.Bitmap);
end;

 Screenshootnya biar gx penasaran.

Contoh Programnya : Tengok

Copas Sertakan Link Sumber : xtreme23koe.blogspot.com.