Buscar por:

Inserir foto em uma coluna da dbgrid.

Código

Adicione duas images ao form e as deixe invisíveis.

Na primeira coloque um bitmap (16x16) para as contas

pagas e na segunda para as contas em aberto.

Também adicione

uma coluna na DBGrid, mas não vincule à nenhum campo, e no evento

OnDrawColumnCell:

var Bitmap:

TBitmap;

begin

// Troque o zero pelo índice da coluna que você criou na DBGrid

if Column.Index = 0 then

begin

if Table1.FieldByName('STATUS').AsString = 'Pago' then

Bitmap := Image1.Picture.Bitmap

else

Bitmap := Image2.Picture.Bitmap; with TDBGrid(Sender) do

begi

Canvas.Draw((Rect.Right - Rect.Left - Bitmap.Width) div 2 + Rect.Left,

(Rect.Bottom - Rect.Top - Bitmap.Height) div 2 + Rect.Top, Bitmap);

// ou: Canvas.Draw(Rect.Left, Rect.Top, Bitmap);

end;

end;

end;