【结帖】附件显示不同的图标**

rzport_lq0

以前只上上传word这一种文件，现在让上传xls、pdf。
我是按照这个贴处理的
http://bbs.justep.com/forum.php? ... hlight=%B8%BD%BC%FE
但是所有附件的图标都一样。
把AddFileImageToColumn这个函数做了如下修改
procedure TRELEVANCYGRIDXG.AddFileImageToColumn(const AFileExt: string;
  ACol: TDataGridImageColumn);
var
  lFileExt: string;
  lImageIndex: Integer;
begin
  lFileExt := FileSys.FileUtils.GetFileExt(AFileExt);
  if ACol.Values.IndexOf(lFileExt) = -1 then
  begin
    lImageIndex := FDocImageListProvider.GetImageIndex(AFileExt);

    ACol.Values.Add(SysUtils.UpperCase(lFileExt));
    if  lFileExt<>'' then
    begin
      if lFileExt='.doc' then
        ACol.ImageIndexes.Add('0');/// SysUtils.IntToStr(lImageIndex)
      if lFileExt='.xls' then
        ACol.ImageIndexes.Add('1');/// SysUtils.IntToStr(lImageIndex)
      if lFileExt='.pdf' then
        ACol.ImageIndexes.Add('2');/// SysUtils.IntToStr(lImageIndex)
    end
    else
      ACol.ImageIndexes.Add('209');
  end;
end;
附件的图标显示不出来。但是双击附件可以把对应的文件打开。

zfang

你修改后运行的效果是什么呢？

rzport_lq0

如下图所示：
双击可以打开对应的文件，现在就是看不到图标

rzport_lq0

我在 if  lFileExt<>'' then前面加了 jsdialogs.ShowMsg(lFileExt,'tishi');，添加附件时，第一次提示为空，第2次提示的才是文件的后缀名

zfang

跟踪一下代码，看是否执行到这里，以及条件判断是否正确（是否有大小写的一个区分等）

rzport_lq0

进不到if 语句里面去

zfang

你引用平台本身的业务模型\协同系统\文档\关联\文档关联信息\文档关联网格这个看看是否可以正常显示。然后再看看你自己做的那个跟这个的区别（检查看看相关事件是否都挂上去了。）

zfang

你引用平台本身的业务模型\协同系统\文档\关联\文档关联信息\文档关联网格这个看看是否可以正常显示。然后再看看你自己做的那个跟这个的区别（检查看看相关事件是否都挂上去了。）

zfang

你引用平台本身的业务模型\协同系统\文档\关联\文档关联信息\文档关联网格这个看看是否可以正常显示。然后再看看你自己做的那个跟这个的区别（检查看看相关事件是否都挂上去了。）

rzport_lq0

引用 业务模型\协同系统\文档\关联\文档关联信息\文档关联网格 显示这个是正常的，我自己做的那个是复制上面这个的，只是把列表里面的除了图标那一项其他的都去掉了


现在是在ImageList1 增加了2个图标，原先文件的图标现在也显示不出来了