【结贴】计划中心的问题？？？**

huangyue

最初由 zfang 发布
[B]一样的，跟写在哪里没什么关系的。
你不能直接拷贝代码过来就用的，需要自己稍加修改。 [/B]

我就拷了点代码过来...出的是这个效果...

zfang

那都没有什么效果。
跟你说了，那个进度是自己画上去的一个列（TDataGridImageColumn类型）
请楼主好好看看业务模型\协同系统\计划\计划中心信息的下面这两个方法
DoGridCustomDrawPercentCell
InitGridColumn

huangyue

就是这InitGridColumn个东东不会画出来...怎么得那些条条出来??

zfang

else if AShowFields[I] = '_PERCENT' then
      begin
        M.Name := '_PERCENT';
        M.DisableCaption := False;
        M.Width := 200;
        M.Caption := '进度';
        M.OnCustomDrawCell := DoGridCustomDrawPercentCell;
      end

这个代码就是呀。
无非就是你自己稍加修改就可以了。

huangyue

我也是搞这段代码进去就是没效果...又不报错...是不是这段代码要另外读取一个字段??

zfang

报什么错？
楼主，你不能直接拿那段代码来用的。

else if AShowFields[I] = '_PERCENT' then//这个判断不能直接用吧。要改成你自己的判断条件，具体什么条件就看你自己实际的用法了
      begin
        M.Name := '_PERCENT';//要改成自己的字段名
        M.DisableCaption := False;
        M.Width := 200;
        M.Caption := '进度';
        M.OnCustomDrawCell := DoGridCustomDrawPercentCell;//事件赋值
      end

M要创建
最后还要
  //增加列
    DataGrid.AddColumn(M);

huangyue

这个忘记来结帐了。。结！