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

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

Как в таблице изменить фон текущей ячейки? [D6, MySQL, Paradox]


Reaper ©   (2004-03-10 01:36:00) 

Как в таблице изменить фон некоторых ячеек(выборочно НЕ ВСЕХ)?


SPIRIT   (2004-03-10 06:19:00) [1]

procedure TFormInfo.DBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
begin
IF DBGrid1.DataSource.DataSet.FieldByName('date_next').AsDateTime<=now
    Then DBGrid1.Canvas.Font.Color:=clred
    Else DBGrid1.Canvas.Font.Color:=clblue;

    IF (gdSelected in State) AND DBGrid1.Focused
    Then DBGrid1.Canvas.Font.Color:=clHighLightText;

    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;


Hawk2   (2004-03-10 01:43:00) [2]

Фон ячейки меняется в DBGrid, а таблица тут не причем!!!
Поищи на Королевстве Делфи статью "Разноцветный Грид" или чтото в этом роде.


Наверх

Титульная страница Поиск, карта сайта Написать письмо