Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

EHlib   Найти похожие ветки 

 
Ag2002   (2003-01-10 18:28) [0]

Помогите пожалуйста, как правильно сделать так чтобы в футаре таблицы DBGridEh при отрицательных значениях цвет шрифта был красный,как правельно оброботать OnGetFotterParams ?
я делаю так:

with DBGridEh2.Canvas do
begin
if (Column.Field.DataType=ftFloat)or(Column.Field.DataType=ftCurrency) then
if (column.Field.AsFloat<0)or(column.Field.AsCurrency<0)
then Font.Color := clred
else Font.Color := 0;}
if Column.Field.DataType=ftString then
TextOut(rect.Left+2,rect.Top+2,Column.Field.Text)
else DBGridEh2.DefaultDrawColumnCell(rect,datacol,column,state);
end
else DBGridEh2.DefaultDrawColumnCell(rect,datacol,column,state);

end;


Но красное становится только если я в колонке встану на отрицательное значение


 
TTCustomDelphiMaster ©   (2003-01-10 19:00) [1]

Убрать with DBGridEh2.Canvas do
Font заменить на AFont


 
Ag2002   (2003-01-14 16:31) [2]

Да но если так сделать происходит тоже самое в ФУТАРЕ таблице всё равно если в колонке есть хотябы одно положительное значение цвет становится чёрным (хотя само значение отрицательное)


 
TTCustomDelphiMaster ©   (2003-01-14 18:08) [3]

В отдельном запросе определяй минимальные значения в полях таблицы. Исходя из этих значений меняй цвет.



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.013 c
1-96751
Knight
2003-01-20 22:07
2003.01.30
Как сделать RichEdit как в Делфи.


14-97008
Николай Быков
2003-01-10 11:04
2003.01.30
Может ли кто-нибудь объяснить?


3-96582
Борис
2003-01-05 13:36
2003.01.30
IBUpdateSQL Хитрый запрос.


6-96934
Prankster
2002-12-07 00:03
2003.01.30
Список поддиректорий и файлов


14-96958
JibSkeart
2003-01-12 13:07
2003.01.30
Типа с Наступающим старым Новым Годом !!!