Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.09.2011, 14:18
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию Проблема цвета в DBGrid

Доброго времени суток!

Суть в следующем: есть несколько закрашенных столбцов в DBGrid


Код:
procedure TfmChild1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

var  holdColor: TColor;
begin
  holdColor := DBGrid1.Canvas.Brush.Color; {ñîõðàíÿåì îðèãèíàëüíûé öâåò}
   if Column.FieldName = 'Strich'  then
     begin
     DBGrid1.Canvas.Brush.Color := rgb(254, 207, 203);
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color := holdColor;
    end;

Но при этом нужно выделить текущую строку синим цветом, для этого выбираю RowSelect True, в результате выделяются только НЕЗАКРАШЕННЫЕ ячейки... помогитерешить проблему!
__________________
Memento Mori(арти)
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:33.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025