5,927
社区成员




procedure DBCross1Cell0OnAfterData(Sender: TfrxComponent);
var
Memo: TfrxMemoView;
begin
//Avg Alarm
Memo := TfrxMemoView(Sender);//if the AlarmInfo field of frxDBSet is 'Alarm', paint the cell as Red Color
if <frxDBDataset1."Information"> = 'Alarm'then
Memo.color := clRed;
end;