How to place icons in DBGrid

You can use the OnDrawColumnCell event to to place icons in DBGrid instead of the values of field. Here's the easy way to do it:  

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

var Icon: TBitmap;

begin

Icon:=TBitmap.Create;

if  (Column.FieldName='SHARES' ) then begin  

with  DBGrid1.Canvas do begin

Brush.Color:=clWhite;

FillRect(Rect);

if (Table1.FieldByName('SHARES').Value>4500)  

then

ImageList1.GetBitmap(1,Icon)
else

ImageList1.GetBitmap(0,Icon);


Draw(round((Rect.Left+Rect.Right-Icon.Width)/2),Rect.Top,Icon);

end;

end;