开发工具:
文件大小: 5kb
下载次数: 0
上传时间: 2010-08-20
详细说明： 在Delphi中，主要通过Canvas画布对象进行绘图，Delphi可以在窗体或组件上绘制出各式各样的图像，通过Canvas的属性将一些图形变为文字，或是将一些文字变为图形；这里我主要是通过Canvas属性来美化列表框ListBox中的列表项： 首先要将ListBox的Style属性设为lbownerDrawFixed，然后再ListBox的OnDrawItem事件上书写代码如下： procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);beginwith Control as TListBox dobegin Canvas.FrameRect(Clientrect); if odSelected in State then begin Canvas.Brush.Color:=clRed; Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15); //前面四个参数分别是左上顶角和右下顶 点坐标，构成一个矩形区域，后面两参数是来设置四个顶角端的小三角大小，为了美观可自行设定 setBkMode(Canvas.Handle,TRANSPARENT );//这个在前面文章中有介绍，是设置透明背景 Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]); end else begin Canvas.Brush.Color:=clSkyBlue;//这里为了列表项和ListBox背景色一致，最好就都设成一样颜色 Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15); Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]); end;end;end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
