Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.145 c