Добавление TDBGrid.OnDrawColumnCell

← →
pasha_golub © (2003-08-20 14:18) [0]

Мне в зависимости от значения, содержащегося в нулевой колонке TDBGrid необходимо произвести некоторые действия по отрисовке строки, а именно, если значение ячейки нулевой колонки содержится в TSTringList, нарисовать красную каемку по краям ячейки. Как мне узнать значение этой самой ячейки?

Я делаю примерно так
procedure TfrmMain.DBgridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if StringList.IndexOf(DBGrid.Columns[0].Field.AsString)>-1 then with DBGrid, Rect do begin Canvas.MoveTo(Left,Top); Canvas.Pen.Color := clRed; Canvas.Pen.Width := 2; Canvas.LineTo(Right,Top); Canvas.Pen.Color := clBlack; end; end;

Я не уверен в выделенном выражении, ведь свойство Field указывает не на отрисовываемую область, а на текущую. Запутался, помогите

← →
pasha_golub © (2003-08-20 14:23) [1]

Вообщем, прошу прощения, я привел полностью рабочий код. Нда, сплю я сегодня :-)
Прошу модераторов удалить ветку

Добавление TDBGrid.OnDrawColumnCell Найти похожие ветки