如何实现在CXgrid符合条件的行变色? 在线等...(100分)

K

kaida

Unregistered / Unconfirmed
GUEST, unregistred user!
var
AYellowStyle: TcxStyle;
procedure TForm1.FormCreate(Sender: TObject);
begin
//行颜色
AYellowStyle := TcxStyle.Create(Self);
AYellowStyle.Color := $0080FFFF;
AYellowStyle.TextColor := clMaroon;
end;

procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
begin
if ARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index] < 81 then
AStyle := AYellowStyle;
end;

这里cxGrid1DBBandedTableView1Lengthcm.Index小于81时就显示黄色
 
D

duxing

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案~~
 
Top