Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DBGrid - цветные строки [D6, Paradox]

aglar © (2004-12-19 14:31:00)
Можно ли сделать так, что при значении поля в таблице "Payed" = true, эта запись выделялась бы отдельным цветом в DBGrid?

sniknik (2004-12-24 07:58:00) [1]
решило и решило, поздравляю. а че так долго? 4 дня в DBGrid-е событие onCellParams искал? ;о))

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

aglar (2004-12-23 20:26:00) [2]
Кривой код было единственное, что решило задачу, спасибо.

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

sniknik (2004-12-19 20:59:00) [3]
насколько понимаю это для RxDBGrid в DBGrid нету, зря только искать будеш (вместо смеха будет обыскался...).

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

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

dma (2004-12-19 20:26:00) [4]
Держи кусок из одного проекта, корявый, но суть я думаю поймешь:
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 16:19:00) [5]
хотя нет, ведь "запись", удобнее в onDrawColumnCell.

sniknik (2004-12-19 16:16:00) [6]
зря, это довольно распространено, ответ именно на заданный вопрос
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1103416263&n=1

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

aglar (2004-12-19 14:59:00) [7]
Обхохотался. Как?

Алхимик (2004-12-19 14:39:00) [8]
Можно.

Наверх

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