J joyuce Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-22 #1 ListView其对应的Imagelist中图为彩色。 如何使 ListView中个别Items图标显示为灰色。
C Calvin Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-22 #2 procedure TForm1.ListView1Click(Sender: TObject); var aListItem:TListItem; begin aListItem:=ListView1.Selected; if aListItem<>nil then ListView1.Selected.ImageIndex:=1; //ImageIndex=1 is a gray iamge; end;
procedure TForm1.ListView1Click(Sender: TObject); var aListItem:TListItem; begin aListItem:=ListView1.Selected; if aListItem<>nil then ListView1.Selected.ImageIndex:=1; //ImageIndex=1 is a gray iamge; end;
P PlayGod Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-26 #3 我的想法是： 使用两个ImageList,这两个ImageList中的Icon 互反，即第一个ImageList的 第N个icon 是彩色，则第二个ImageList 中的对应Icon 为灰色。 ListView 使用第一个ImageList,当某一个Icon 需要变色时，使用一个临时 变量： temp: TIcon, 运用 ImageList 的方法 ReplaceIcon 交换两个ImageList 的对应图标，即可实现。
我的想法是： 使用两个ImageList,这两个ImageList中的Icon 互反，即第一个ImageList的 第N个icon 是彩色，则第二个ImageList 中的对应Icon 为灰色。 ListView 使用第一个ImageList,当某一个Icon 需要变色时，使用一个临时 变量： temp: TIcon, 运用 ImageList 的方法 ReplaceIcon 交换两个ImageList 的对应图标，即可实现。
