业务模型\系统空间\系统功能\业务流程\流程监控\流程监控信息\流程控制者列表
datagrid添加CustomDrawCell事件,填写代码
procedure TFLOWCONTROLLERLIST.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
//限定时间[FLIMITTIME]
//结束时间[FFINISHTIME]
if (not FlowControllerData.DataSet.FieldByName('FFINISHTIME').IsNull) and (not FlowControllerData.DataSet.FieldByName('FLIMITTIME').IsNull) then
if FlowControllerData.DataSet.FieldByName('FFINISHTIME').AsDateTime>FlowControllerData.DataSet.FieldByName('FLIMITTIME').AsDateTime then
AFont.Color:=255;
end;
流程超期和任务超期不一样。
流程这样改
业务模型\系统空间\系统功能\业务流程\流程监控\流程监控信息\流程实例列表
procedure TFLOWCASELIST.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
//限定时间[FLIMITTIME]
//结束时间[FFINISHTIME]
if (not FlowData.DataSet.FieldByName('FFINISHTIME').IsNull) and (not FlowData.DataSet.FieldByName('FLIMITTIME').IsNull) then
if FlowData.DataSet.FieldByName('FFINISHTIME').AsDateTime>FlowData.DataSet.FieldByName('FLIMITTIME').AsDateTime then
AFont.Color:=255;
end;