Hola.
Yo utilizo algo parecido a:
Código Delphi
[-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
B: TBitmap;
R: TRect;
begin
if Column.FieldName = 'CampoDelBitmap' then
begin
TDBGrid(Sender).Canvas.FillRect(Rect);
B:= TBitmap.Create;
try
ImageList1.GetBitMap(TDBGrid(Sender).DataSource.DataSet.FieldByName('Opcion').AsInteger + 1, B);
B.Width:= Rect.Right - Rect.Left;
B.Height:=Rect.Bottom - Rect.Top;
DBGrid1.Canvas.StretchDraw(Rect, B);
finally
B.Free;
end;
R:= Rect;
R.Left := R.Left + R.Bottom - R.Top;
DBGrid1.DefaultDrawColumnCell(R, DataCol, Column, State);
end;
end;
Permite el usar varias imágenes para distintos valores, pero el código de Casimiro realmente es mucho más simple... (y ya me lo copié
)
Saludos.