| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Цвет ячейки в DBGrid или RxDBGrid [D7, MSSQL]
samalex © (2003-12-11 13:06:00)
Уважаемые знатоки!!!
Как можно устанавливать программно цвет фона и шрифта для заданной ячейки DBGrid или RxDBGrid?
Sandman25 (2003-12-18 15:35:00) [21]
[8] samalex (18.12.03 15:31)
Перерисовываете как? Grid.Update?
samalex (2003-12-18 15:31:00) [22]
Всем спасибо, при помощи события DBGrid1DrawColumnCell раскрасил
DBGrid.
Но возникла проблема. Программа обновляет таблицу по таймеру раз в 10 сек. Если поверх окна программы висит что-то другое, хоть краем, то событие DBGrid1DrawColumnCell не работает. Все мои цветные полосы пропадают. Кто-нибудь решал эту проблему?
Sandman25 (2003-12-11 14:01:00) [23]
[6] b0bi (11.12.03 14:00)
Виноват, был не прав.
b0bi (2003-12-11 14:00:00) [24]
не, это RX
Sandman25 (2003-12-11 13:57:00) [25]
[4] b0bi (11.12.03 13:52)
Это есть только у DBGridEh.
b0bi (2003-12-11 13:52:00) [26]
событие грида OnGetCellParams
procedure TFInvoiceNew.GridGetCellParams(Sender: TObject;
Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
GridGetCellParams(Sender, Field, AFont, Background, Highlight);
if Field.FieldName="KodPr" then
if not Highlight then
Background:=clRed;
end;
Vlad (2003-12-11 13:16:00) [27]
http://www.delphikingdom.ru/helloworld/dbgridcolor.htm
Vlad (2003-12-11 13:15:00) [28]
http://www.delphikingdom.ru/helloworld/nogrid.htm
Stas (2003-12-11 13:12:00) [29]
описать в событии
DBGrid1DrawColumnCell
begin
if columns.field.isnull then TDBGrideh(Sender).Canvas.Brush.color:=clBlue else (Sender).Canvas.Brush.color:=clBlack
TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Пример закраски ячеек со значением Null
| |
Страницы: 