我在做一个搜索图标的程序,搜索出来的图标放在Delphi的哪个组件中比较方便? ? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 imagelist好像不行,我要随时显示。 動態創建image一個一個排列把 对了,你还没说你想实现什么呢?什么叫随时显示?放在IMAGELIST中,也可以随时显示啊。 我原来想用DrawGrid,但显示出来以后,Grid一旦刷新,图标就消失了。后来我用listView,它各方面都好,但是速度有点慢,并且图标大小不好控制。 我的意思就是从exe、dll、ico中找到图标后,立刻显示到界面,让用户随时可以看到。 我看你还是放在LISTVIEW里比较好 可以随时看,动态的编辑 放在TIcon里面,用TList存储所有TIcon事例!什么时候想显示都可以。 显示的时候放在TListview里面,设置vsStyle=vsicon//好像是这个名字 放在TListBox元件中, 将Style设为lbOwnerDrawVariable,增加图标名称和图标: ListBox1.AddItem(IconName, Icon);在TlistBox.OnDrawItem写代码:procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);begin with (Control as TListBox) do begin ImageList1.Draw(Canvas, Rect.Left + 2, Rect.Top, Index); Canvas.TextOut(Rect.Left + 24, Rect.Top + 2, Items[Index]); end;end; 补充: 设置TListBoxd的ItemWidth和ItemHeight为图标高度(32) 不好意思,应将 ImageList1.Draw(Canvas, Rect.Left + 2, Rect.Top, Index);改为 Canvas.Draw(Rect.Left + 2, Rect.Top, TBitmap(Items.Object[Index])); 关于formatfloat的一个问题 导入excel问题 为什么我所有记录的RecNo都是-1啊? 江湖救急,毕业设计遇到问题卡住了,望各大侠相助! 全国都能整倭人的办法: 回调函数的问题 怎样得到文件在系统中的属性--〉〉注意,是要文字和系统语言相符,不是简单的filegetattr DELPHI+mssql开发的c/s结构,局域网内无法通讯,请高手指教!!! 疯狂的QuickReport,谁碰到过?帮帮我!(附源码重发) 如何重画DBGrid的单元格?? 请帮忙 中间件开发的朋友们大家交个朋友吧,留下你的QQ、Email!以便大家交流!
什么叫随时显示?
放在IMAGELIST中,也可以随时显示啊。
后来我用listView,它各方面都好,但是速度有点慢,并且图标大小不好控制。
可以随时看,动态的编辑
ListBox1.AddItem(IconName, Icon);
在TlistBox.OnDrawItem写代码:procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do
begin
ImageList1.Draw(Canvas, Rect.Left + 2, Rect.Top, Index);
Canvas.TextOut(Rect.Left + 24, Rect.Top + 2, Items[Index]);
end;
end;
设置TListBoxd的ItemWidth和ItemHeight为图标高度(32)
ImageList1.Draw(Canvas, Rect.Left + 2, Rect.Top, Index);
改为
Canvas.Draw(Rect.Left + 2, Rect.Top, TBitmap(Items.Object[Index]));