| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавление TDBGrid.OnDrawColumnCell [D6, MySQL]

pasha_golub ©   (2003-08-20 14:18:00) 

Мне в зависимости от значения, содержащегося в нулевой колонке 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)>-1then
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:00) [1]

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

---

Наверх