delphi listbox用Canvas属性绘图

本文整理自网络，侵删。

 
示例 delphi listbox用Canvas属性绘图
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  i:integer;
begin
  with Control as TListBox do
  begin
    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;
      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;

 

相关阅读 >>

Delphi package

Delphi 递归搜索文件夹子目录

Delphi 设置webbrowser 代理服务器 与 useragent

Delphi中break,exit,abort跳出循环的比较

Delphi 随意将函数执行权限提高到ring0源代码

Delphi for xx in xx do 语法的使用示例

Delphi ios 保持设备开机状态

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

Delphi xe7中获得os平台和版本

Delphi fmx 安卓跳转到支付宝付款页面

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi listbox用Canvas属性绘图