Iconos en DBGrid

[blaiselaborde]

Hola, he estado buscando en los foros y no encuentro la forma de añadir un Icono en la primera columna de un DBGrid conectado a un TClienDataSet, dónde uno de sus campos contiene el valor del índice del Icono en un TImagenList.

Gracias.

[x_aguilarf]

no lo he probado, pero esto debería funcionar:

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if Field.FieldName = 'Icono' then
    ImageList1.Draw(DBGrid1.Canvas, Rect.Left, Rect.Top, Field.AsInteger);
end;

Saludos

[blaiselaborde]

Lo pruebo y te aviso . . . Muchas gracias . . . .