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

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

DBGrid - нужно работать с строками [D6]


Caponid ©   (2003-06-05 13:55:00) 

Как в DBGrid подсветить (поменять фон строки или текста) отдельную строку.. или групу строк?


Caponid   (2003-06-05 15:23:00) [1]

2 Stas Сбасибо... все заработало
только надо так

if DM.TableUSPCPost.Value<0
then clb:=clMoneyGreen;
else clb:=clWindow;


а то такая забавная таблица получалась - сплошная радуга :)))


Тема закрыта


sniknik   (2003-06-05 14:26:00) [2]

Caponid (05.06.03 14:19)
считать или для каждого или при первом вызове и сохранять, красить по срввнению результата или по сохранненного значения.


Anatoly Podgoretsky   (2003-06-05 14:19:00) [3]

Больше нету сил, (C) Третья планета. От имени Алиски Селезневой.


Caponid   (2003-06-05 14:19:00) [4]

Уже попробовал, по вычисляемому полю у меня критерий считаеться, так только оно и выделяетя.. а как остальную строку выделить?


Stas   (2003-06-05 14:12:00) [5]

А ты пробовал ?


Johnmen   (2003-06-05 14:08:00) [6]

>но повесится можно когда на 10 тыс записей таблица отрисовывается

И все на экране ?! Круто...:)


Caponid   (2003-06-05 14:04:00) [7]

2 Stas

Так я сам умею... но повесится можно когда на 10 тыс записей таблица отрисовывается :))

А по другому?


Stas   (2003-06-05 14:00:00) [8]

procedure TfmPProg.DBGridEh3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
Var Clb,Clf:TColor;
begin
if ... then clb:=ClRed;
if ... then clf:=clWhite;
TDBGrideh(Sender).Canvas.Brush.Color:=clb;
TDBGrideh(Sender).Canvas.Font.Color:=clf;

// если строка была выделена, оставляем "подсвеченные" цвета
IF gdSelected IN State
Then Begin
TDBGrideh(Sender).Canvas.Brush.Color:= clHighLight;
TDBGrideh(Sender).Canvas.Font.Color := clHighLightText;
End;
// А теперь пусть он рисует сам !
TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;


Johnmen   (2003-06-05 13:59:00) [9]

http://www.delphimaster.ru/cgi-bin/forum.pl?look=1&id=1054805359&n=0


Наверх

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