Скачать: CL | DM;

Раскраска отдельных ячеек в DBGrid   Найти похожие ветки 

← →
tormoz   (2005-08-04 10:10) [0]

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

---

← →
ANB ©   (2005-08-04 10:21) [1]

OnDrawColumnCell

---

← →
msguns ©   (2005-08-04 10:30) [2]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c