var
Offset: Integer;
begin
with (Control as TListbox).Canvas do
begin
FillRect(Rect);
begin
imagelist1.draw((Control as TListbox).Canvas,Rect.Left + 2,Rect.Top + 2,Index);
Offset := 16 + 8;
(Control as TListbox).Canvas.Font.color:=yourfontcolor;
TextOut(Rect.Left + Offset, Rect.Top + 2, (Control as TListbox).Items[Index])
end;
end;
end;yourfontcolor为全局变量,你在改时就修改这个变量,然后 listbox1.Invalidate
Offset: Integer;
begin
with (Control as TListbox).Canvas do
begin
FillRect(Rect);
begin
imagelist1.draw((Control as TListbox).Canvas,Rect.Left + 2,Rect.Top + 2,Index);
Offset := 16 + 8;
(Control as TListbox).Canvas.Font.color:=yourfontcolor;
TextOut(Rect.Left + Offset, Rect.Top + 2, (Control as TListbox).Items[Index])
end;
end;
end;yourfontcolor为全局变量,你在改时就修改这个变量,然后 listbox1.Invalidate
解决方案 »
- 流或者内存缓冲区的操作问题
- 关于门店系统的数据传输
- 请问怎样在里面写入回车、换行???
- panel的caption的字豎行顯示
- 从数据库把表内容显示到 treeview的问题
- ADO问题(TAdoQuery更新数据时出错),急!在线等!
- 请问如何得到SYBASE中一个表的字段列表,并在DBGrid中显示出来?
- 关于数据排序问题!请大家帮忙,我十分为急。
- 怎样立即结束后台进程
- 将一个form从auto-create forms改为available forms 后,怎么样释放其实例资源??
- sqlserver数据库,有1,2百万记录, 用什么方法查询可以速度最快??
- 初学delphi 简单问题之五,谢谢大家。
imagelist1.draw((Control as TListbox).Canvas,Rect.Left + 2,Rect.Top + 2,Index);
是显示图片的,如果你不要,把它注释掉。