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

Цветные ячейки в TDataBaseGrid?   Найти похожие ветки 

← →
Артем К.   (2004-11-10 14:03) [0]

Здравствуйте, Мастера!

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

Заранее спасибо!

---

← →
P.N.P. ©   (2004-11-10 14:58) [1]

Так например:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName("LAST_NAME").AsString="Jones" then
 begin
   TDBGrid(Sender).Canvas.Brush.Color:=clRed;
   TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
 end;
end;


---

← →
Артем К.   (2004-11-10 15:32) [2]

>>P.N.P.
В Вашем случае прорисовка пойдет по полю "LAST_NAME", если значение будет "Jones", а как сделать, чтобы если в поле "FIRST_NAME" значение "Jone", то поле "LAST_NAME" отрисовать красным.

---

← →
Fay ©   (2004-11-10 15:37) [3]

2 Артем К.   (10.11.04 15:32) [2]
Сравнить Column.FieldName c "LAST_NAME"

---

← →
Артем К.   (2004-11-11 16:07) [4]

Наверное стоит объясниь чего я хочу сделать.

Есть поле - "дата" (11.11.2004 например);
Есть поле - "потребление" (число);

Мне нужно отобразить потребление красным цветом, если это выходной день.

Т.е. определяю по дате, что это за день недели, через функции:

day_date: TDateTime;
...
day_date := EncodeDate(year, month_index,day_index);
day_N := DayOfTheWeek(day_date);
...


Т.е. для субботы day_N = 6, а для воскресенья day_N = 7;

Как теперь отобразить значения по полю "потребление" красным цветом для выходных дней?

---

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

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



Память: 0.45 MB
Время: -0.973 c