Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

DBGrid - цветные строки   Найти похожие ветки 

 
aglar   (2004-12-19 14:31) [0]

Можно ли сделать так, что при значении поля в таблице "Payed" = true, эта запись выделялась бы отдельным цветом в DBGrid?


 
Алхимик ©   (2004-12-19 14:39) [1]

Можно.


 
aglar   (2004-12-19 14:59) [2]

Обхохотался. Как?


 
sniknik ©   (2004-12-19 16:16) [3]

зря, это довольно распространено, ответ именно на заданный вопрос
http://delphimaster.net/view/3-1103416263/

> Как?
в событии onDrawDataCell рисовать самому в "отдельном" свете, например.


 
sniknik ©   (2004-12-19 16:19) [4]

хотя нет, ведь "запись", удобнее в onDrawColumnCell.


 
dma   (2004-12-19 20:26) [5]

Держи кусок из одного проекта, корявый, но суть я думаю поймешь:
procedure TMainForm.MainGridGetCellParams(Sender: TObject; Field: TField;
 AFont: TFont; var Background: TColor; Highlight: Boolean);
 var Zakl, PrZakl : String;
begin
 Zakl:=(Sender as TrxDBGrid).DataSource.DataSet.FieldByName("TipZakl").AsString;
 PrZakl:=(Sender as TrxDBGrid).DataSource.DataSet.FieldByName("PrZakl").AsString;
 (Sender as TrxDBGrid).DataSource.DataSet.FieldByName("PrZakl").AsString;
 if PrZakl="На доработку" then AFont.Color := clRed;
 if PrZakl="Отрицательное" then AFont.Color := clBlue;

 if Zakl="Отрицательное" then AFont.Color := clMaroon;
 if Zakl="Положительное" then AFont.Color := clTeal;
 if Zakl="Положительное с мероприятиями" then AFont.Color := clGray;
 if Highlight then begin
   AFont.Color := clHighlightText;
   Background := clHighlight;
 end;
end;


 
sniknik ©   (2004-12-19 20:59) [6]

насколько понимаю это для RxDBGrid в DBGrid нету, зря только искать будеш (вместо смеха будет обыскался...).

dma   (19.12.04 20:26) [5]
код корявый ладно, но ответ еще "корявей".

вот кстати пример ответа на то о чем не спрашивали...


 
aglar   (2004-12-23 20:26) [7]

Кривой код было единственное, что решило задачу, спасибо.

Sniknik
Я последовал по ссылке, удивился знанию правильной русской речи и способности некоторых програмистов проникать в умы задающих вопросы...


 
sniknik ©   (2004-12-24 07:58) [8]

решило и решило, поздравляю. а че так долго? 4 дня в DBGrid-е событие onCellParams искал? ;о))

про русскую речь это отдельная песня... есть такие поборники ее, что не считают нужным общатся если у опонента запятая не на месте... я к этому помягче отношусь, много неруских, а опечатку так любой даже литературавед сделать может... единственное коробят некоторые выражения "по фене", от некоторых, на которой как они думают программисты разговаривают.



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

Форум: "Базы";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.048 c
1-1106146280
lamo
2005-01-19 17:51
2005.01.30
Ошибка String or Integer


3-1103805952
XAdmin
2004-12-23 15:45
2005.01.30
Редактирование Gird с Lookup полем.


4-1102415596
maxistent
2004-12-07 13:33
2005.01.30
Контакты COM-порта...


10-1081908882
Tollya
2004-04-14 06:14
2005.01.30
Как сохранить в Exel


1-1105689488
Mishenka
2005-01-14 10:58
2005.01.30
Как узнать сколько дней в месяце соответствующему текущей дате?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский