怎样将ListView1组件中StateImage1关联的图标显示在Column上字符串的右边，而不是系统默认的左边！

Question

my god!请给出详细的代码！谢谢拉！！！不够可以加分哟

Answer 1

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  i: integer;
  IconRect: TRect;
  image: TBitMap;
  size1: Size;
begin
  //只适用于list与report方式;
  i := Item.ImageIndex;
  Image := TBitMap.Create;
  ImageList1.GetBitmap(i, image);
  IconRect := Item.DisplayRect(drIcon);
  //得到字符的宽度;
  GetTextExtentPoint32(GETDC(ListView1.Handle), pchar(Item.Caption), Length(Item.Caption), Size1);
  //画字
  ListView1.Canvas.TextOut(IconRect.Left ,IConRect.Top ,Item.Caption);  IconRect.Left := IconRect.Left + Size1.cx;
  IconRect.Right := IconRect.Left + 16;
  ListView1.Canvas.CopyRect(IconRect, Image.Canvas, Rect(0,0,16,16));  Image.Free;
  DefaultDraw := False;
end;

Answer 2

to qiubolecn 高手我是在“column”就是report方式方式下面
最上面的可以对数据进行升降序排列的按钮在上面画个升降序图标！
而不是Item上面画啦！哎……（虽然你的水平很高，不复合我的要求）
再请赐教！！

Answer 3

请到www.netgocn.com,特别为你加入一篇文章。

Answer 4

to lixif() 我想引入一个图标文件怎么办？而不是画出来的

Answer 5

你不会读出此图标文件后再绘制出吗？
用LoadFromResourceName则可，如果你真的想解决问题，我一定让你满意。

Answer 6

你不会读出此图标文件后再绘制吗？
使用LoadFromResourceName则可。如果你真的想解决问题，本人可以尽其所能让你满意。

Answer 7

补充：使用LoadFromResourceName读出图标后绘制(以代替三角形的绘制)，只是源代码的局部修改，如果还不知的话，请到www.netgocn.com留言。

Answer 8

to lixif()请给出源代码：）分数全数奉上哟

Answer 9

过二天到www.netgocn.com下载吧！我真拿你没办法！

Answer 10

to lixif() 还有一个问题，回答了也给你加100分哟！
我的一个程序里面使用两个ListView组件并且可调用了
NetColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
ProColumnToSort := Column.Index;
 (Sender as TCustomListView).AlphaSort;
进行排序！可是对第二ListView进行排序后
再次刷新时，就会出现以下奇怪的错误提示：
list index out of bounds(1),
或
list index out of bounds(2),
或
list index out of bounds(3),
……之类
，而不对它进行排序就没有以后错误提示！
怎么解决这个问题？
为什么第一个ListView组件没有这个问题！？
哎，真是莫名奇妙的！

Answer 11

To duducat(嘟嘟猫) 
我不知道你的工程具体情况，程序中是否还存在其它未发现的错误，也不太明白你提这个问题的意图，不过一般我在写代码时会尽可能地考虑可能出现的错误，如果不可预知的错误出现则不要再执行后面的代码，例如你的排序出错很显然是因为Column.Index的值已大于视图已有的列数，也就是说比如你的视图只有3列，但你却要以4或5等列为排序Index。
以下代码可以避开这种错误：
if Column.Index > ListView1.Columns.Count-1 then Exit;
ProColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort

Answer 12

to lixiif() 我已经解决问题啦！：）
一定要将ListView1.SortType:=stNone;!!

Answer 13

to  lixif()  希望尽快给出在column上右边显示图标的代码，谢谢啦！！

Answer 14

已经上传至www.netgocn.com
一个完整的功能增强的TListView组件，欢迎下载！

Answer 15

to lixif() 你真是好人！十分感谢！！！！

Answer 16

to lixif() 我刚刚下载你的组件！不过好像zip文件好像损坏了请再上传一个，谢谢！

Answer 17

to lixif() 还是老问题！你的机子是不是感染病毒了？zip文件损坏了！！

Answer 18

to duducat(嘟嘟猫): 你的机子呢？

Answer 19

to duducat(嘟嘟猫): 给个你的email地址如何？

Answer 20

to lixif() [email protected] oicq:15829859
马上要去南京了，请快点哟！高手