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

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

Раскраска отдельных ячеек в DBGrid [D6]

tormoz ©   (2005-08-04 10:10:00) 

Здравствуйте. Хочу в таблице DBGridвыделить отдельные ячейки цветом. В OnDrawDataCellпроверяю, если текст поля равен 'True'(Поле типа boolean), то закрасить... Сначала думал, что я что-то не то делаю, а потом выяснилось, что в оработчик этого события вообще не входит... Что можно с этим сделать?

---

msguns   (2005-08-04 10:30:00) [1]

Фрагмент красит ячейки в зависимости от активности строки и рисует разные иконки в левой ячейки:

procedure TfrmListFond.grListFondsDrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
begin
 if gdSelected in State then
   begin
    if TDBGrid(Sender).Focused then
       TDBGrid(Sender).Canvas.Brush.Color := clDefault
    else
       TDBGrid(Sender).Canvas.Brush.Color := clMedGray;
    TDBGrid(Sender).DefaultDrawDataCell(Rect,Column.Field,State);
    GridCell := Rect;
   end;
 if (UpperCase(Column.FieldName)='LETTER') and (Column.Field.AsString>'') then
    MainForm.imlGrid.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top,dmFonds.FindNdxByLetter(Column.Field.AsString));
end;

---

ANB   (2005-08-04 10:21:00) [2]

OnDrawColumnCell

---

Наверх