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

Вниз

Изменение цвета записи в DbGrid   Найти похожие ветки 

← →
bushmen ©   (2004-01-14 12:59) [0]

Каким образом можно изменить цвет строки в DbGrid в зависимости от значения параметра в столбце данной строки?

---

← →
Johnmen ©   (2004-01-14 13:00) [1]

http://www.delphikingdom.com/helloworld/dbgridcolor.htm

---

← →
AbrosimovA ©   (2004-01-14 13:12) [2]

К примеру так:
procedure TMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
var X,Y: double;
begin
State:=[gdFocused];
if gdFocused in State then
with (Sender as TDBGrid).Canvas do begin
if DataCol>1 then begin
Case Table1.RecNo-1 of
0: begin
X:=0.5;
Y:=6;
end;
1: X:=0.2;
2..4,6,8,13..16: X:=0.1;
5,7,9..11: X:=20;
12: X:=100;
17: X:=10;
end;
Case Table1.RecNo-1 of
1..17: Y:=1000;
end;
if (Column.Grid.Fields[2].AsFloat>X)and(Column.Grid.Fields[2].AsFloat<Y) then
Font.Color:=clWindowText
else Font.Color:= clSilver;
end
else Font.Color:= clWindowText;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Column.Field.AsString);
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

---

← →
bushmen ©   (2004-01-14 13:14) [3]

>Johnmen ©
Спасибо.

---

← →
bushmen ©   (2004-01-14 13:15) [4]

>AbrosimovA ©

И тебе спасибо

---

← →
Slider007 ©   (2004-01-14 13:55) [5]

а в RxLib или в EhLib это делается элементарно - в одну строку

---

← →
Mike Kouzmine ©   (2004-01-14 13:56) [6]

Slider007 © (14.01.04 13:55) [5] И тебе спасибо

---

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

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

Наверх

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