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...

Untuk Listing Codingnya :

 
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; 

Silahkan download contoh programnya : download
Kalau mau copas artikel coba sertakan link sumber antasdelphi.blogspot.com,bersikap sportif

Posted by Antas Delphi on - Rating: 4.5

Title : Menambahkan Gambar di Stringgrid di Delphi
Description : Memasukan Image / Gambar ke stringgrid mungkin sudah banyak dibahas,sebenarnya Ane juga gx pernah pake stringgrid tapi tujuannya untuk me...