捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:为DBGrid绘制中文帐簿金额栏修改版
lanbox 17027 2005/8/18 16:05:27
【一个更简单的修改】

MainFrm.pas 中,有负数显示错位的问题,更正如下:

  if I > Length(DrawText) then DrawSubText := '
  else DrawSubText := Copy(DrawText, Length(DrawText) - I + 2, 1);
将以上两行改为
  if I >= Length(DrawText) then DrawSubText := '
  else DrawSubText := Copy(DrawText, Length(DrawText) - I + 1, 1);
dragon_cbx 16979 2005/8/15 11:26:44
错误更正:
if BoolFZ then begin
        if I > Length(DrawText) then DrawSubText := '
        else begin
          DrawSubText := Copy(DrawText, Length(DrawText) - I + 1, 1);
          if DrawSubText = '-' then DrawSubText := ';
        end;
      end
      else begin
        if I > Length(DrawText) then DrawSubText := '
        else DrawSubText := Copy(DrawText, Length(DrawText) - I + 1, 1);
      end;
将对应的代码段覆盖即可
blkant 16976 2005/8/14 21:07:22
谢谢两位,这个很实用啊,希望更多的人参与进来。
要是能把这个过程转移到QuantumGrid,相信更加实用。
顺便问一下:如果在表格最下方实现汇总?
netrobo 16957 2005/8/13 11:44:54
非常感谢dragon花时间修改并改进,并将其贡献出来。
第一页 上一页 下一页 最后页 有 4 条纪录 共1页 1 - 4
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表