5,932
社区成员
发帖
与我相关
我的任务
分享
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;