Нечего не понимаю, вот смотрите:
...
procedure TfmMain.dbgInstViewDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (dm.Inst['ICstatus'] = 'Успешно') -- поле
and not (gdSelected in State)
then with dbgInstView.Canvas do begin -- канва DBGrid
Brush.Color:= clGray;
FillRect(Rect);
Font.Color:= clWhite;
TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text);
end else
dbgInstView.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
...
почему выделяются не одна запись, а еще и соседние, 1 сверху и 1 снизу,
то есть обрабатывается не один TRect, а три!??
везде где dm.Inst['ICstatus'] = 'Успешно'

попробуй убрать проверку "Успешно". Я без нее скопировал - все впорядке. Может у тебя это поле как то неправильно отображается?

видать ты не правильно канвас получаеш, раз он лишнии ячейки загребает

На какой Дельфе делаешь? Я на 7-ой попробовал все тип-топ.
Вот смотри твой код:

Код

type procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Form1.Table1['name'] = '1') { поле } and not (gdSelected in State) then with Form1.DBGrid1.Canvas do begin { канва DBGrid} Brush.Color:= clGray; FillRect(Rect); Font.Color:= clWhite; TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text); end else Form1.DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;