Форум: "Базы";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизИзменение цвета записи в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.03 c