Fórum colocando imagem referente a linha de registro no dbgrid... #312044

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Bmp   : TBitmap;
  RecF  : TRect;
  BmpX  : Integer;
  Indice: Integer;
begin
  RecF := Rect;
  If Column.Field = ClientDataSet1Status then
  begin
    If ClientDataSet1Status.Value = 0 then
       Indice := 0
    else If ClientDataSet1Status.Value = 1 then
       Indice := 1
    else
       Indice := 2;
    Bmp := TBitmap.Create;
    try
      ImageList1.GetBitmap(Indice, Bmp);
      BmpX := (Rect.Bottom - Rect.Top);
      RecF.Right := Rect.Left + BmpX;
      DbGrid1.Canvas.StretchDraw(RecF, Bmp);
    finally
      Bmp.Free;
    end;
    RecF := Rect;
    RecF.Left := RecF.Left + BmpX;
 end;
 DbGrid1.DefaultDrawColumnCell(RecF, DataCol, Column, State);
end;