Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.18;
Скачать: 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 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
1-1124262559
Найти
2005-08-17 11:09
2005.09.18
drag&drop в TListBox


14-1125032470
boalse
2005-08-26 09:01
2005.09.18
Астрология


14-1124952185
DVM
2005-08-25 10:43
2005.09.18
Странный знак на банкноте 100$


2-1123605234
Nox777
2005-08-09 20:33
2005.09.18
Как вычислить арккосинус числа?


8-1115122982
Fire
2005-05-03 16:23
2005.09.18
использование моделей из 3dMax