|
发表于 2007-6-30 14:04:27
|
显示全部楼层
方式1不好实现,基于现在的任务中心中的代码改动起来很麻烦。
方式2报的错误 还需要改业务模型协同系统\任务任务中心信息\任务导航(基类)中的代码:
procedure TTaskNav.DoGetTaskFields(var ATaskFields: string);
begin
ATaskFields := 'FSUBJECT, FCREATETIME, FPLANSTARTTIME, FPLANFINISHTIME, FSTARTTIME, FFINISHTIME, FSTATE, ' +
'FGUID, FTYPE, FFUNCURL, FUPDATEFLAG, FPROCURL, ' +
'FSPERSONNAME, FSOGNNAME, FSDEPTNAME, FSPOSITIONNAME,FRPERSONNAMES';
end;
加FRPERSONNAMES
procedure TTaskNav.GridResize(Sender: TObject);
begin
if Grid.Columns.Count = 4 then
Grid.Columns[1].Width := Grid.Width - Grid.Columns[0].Width - Grid.Columns[2].Width - Grid.Columns[3].Width
else
Grid.Columns[1].Width := Grid.Width - Grid.Columns[0].Width - Grid.Columns[2].Width;
end;
GridResize 这个过程要改一下
还需要适当的调整一下 width这个属性
|
|