注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi中ListBox控件的六种特效  

2014-05-25 01:03:24|  分类: delphi xe5 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

[前言:]为简化程序员的工作Delphi提供了众多控件,同时由于的成功众多的软件厂商也为Delphi提供了相应的第三方控件,这一切使Delphi变得更加强大,成为微软在应用软件开发工具中强有力的竞争者。

Delphi5是Borland公司开发的全新的可视化集成开发环境,它使用语法严密的Pascal语言,并封装了Windows中的构件,形成了自己的一套控件库体系-VCL(Visual Component Library)。VCL控件体系具有很强的扩展性,为开发者设计特殊视觉效果的控件提供了技术支持。
本文就Delphi5中的TListBox控件,通过多种手段实现了它的七种特殊视觉效果,以期对广大程序爱好者在界面设计上有所启发与帮助。

  一、 基础知识

  涉及TListBox自定义重绘的属性和事件:

  属性:

   Style: 取值为lbStandard(标准风格),lbOwnerDrawFixed(所有者固定绘制风格),lbOwnerDrawVariable(所有者可变绘制风格)

  说明:

   1. 当Style = lbStandard时,使用控件默认的绘制风格。

   2. 当Style = lbOwnerDrawFixed时,用户只能在控件默认大小的区域绘图。

   3. 当Style = lbOwnerDrawVariable时,用户可改变控件默认的绘图区域大小并决定如何绘图。

  事件:

   OnMeasureItem:当Style = lbOwnerDrawVariable时计算TListBox中某项的高度时调用。

   OnDrawItem :当Style = lbOwnerDrawVariable时由用户例程确定如何绘制TlistItem。

  由此,可以看出,要实现定制界面风格的TListBox,首先,需要设置TlistBox的Style 属性为lbOwnerDrawVariable,其次,需要写自定义的重绘事件。

  二、 特殊效果的实现

  在窗体(Form1)上放置5个ListBox,名称分别为ListBox1……ListBox5,将所有ListBox的Style属性设置为lbOwnerDrawVariable;在Form1上添加两个TImageList控件,命名为ImageList1,ImageList2;在ImageList1中装入两个16X16大小的图标;添加两个TButton控件,命名为Button1,Button2;再添加一个TImage控件,命名为Image1。其它操作,见下。

  1. 具有图标及热链接效果的列表框

  在ListBox1的Items属性中添加几个字符串,并在ListBox1的OnDrawItem事件中编写代码如下:


procedure TForm1.ListBox2DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
AIcon, BIcon: TIcon;
begin
try
//file:从上述ImageList1中装入两个图标
AIcon := TIcon.Create; 
BIcon := TIcon.Create;
//file:装入图标到AIcon, BIcon
ImageList1.GetIcon(0, AIcon);
ImageList1.GetIcon(1, BIcon);
//file:填充绘图区
ListBox1.Canvas.FillRect(Rect);
//file:判断ListBox1中的当前重绘项是否被选中,根据状态装入不同的图标
if odSelected in State then
ListBox1.Canvas.Draw(Rect.Left, Rect.Top, AIcon)
else
ListBox1.Canvas.Draw(Rect.Left, Rect.Top, BIcon);
//file:输出文字
ListBox1.Canvas.TextOut(Rect.Left + AIcon.Width div 2, Rect.Top + 2, ListBox1.Items[Index]);
finally
AIcon.Free;
BIcon.Free;
end;
end;


注:也可在OnMeasureItem事件中改变列表项的高度。

  2. 具有横向滚动条效果的列表框

  在Form1上Button1的Click事件中书写如下代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, ListBox1.Width + 30, 0);
end;


具体横向滚动区域的宽度可通过具体计算得出,在此从略。

  3. 具有图标,背景图片及透明文字效果的列表框

  说明:

  1. 要使TListBox具有指定位图的背景,须考虑到以下问题:

  如果TListBox的Items足够多,那么,在TListBox的OnDrawItem事件的Rect区域输出位图即可使整个TListBox的Canvas充满位图背景;反之,则会出现TListBox中上半部分有Item的地方有背景,下半部分没有Item的部分仍然为白色,影响视觉效果。

  2. TListBox的Color属性决定了文本输出时的背景,通常为clWindow,这样用TextOut时就会出现不协调的白色文字背景。因此,要实现透明文字输出效果,可以通过设置ListBox.Canvas.Brush.Style := bsClear,这样,绘制的文字没有背景色,从而实现文字透明输出效果。

  操作:

  在ListBox2的Items属性中添加几个字符串;设置Form1上的Image1的Picture属性为一指定图片。在ListBox2的OnDrawItem事件中书写如下代码:

procedure TForm1.ListBox2DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
AIcon: TIcon;
I, K : Integer;
ARect, BRect: TRect;
H : Integer;
AStyle: TBrushStyle;
begin
try
//file:计算Item数量
I := ListBox2.Items.Count-1;
AIcon := TIcon.Create;
//file:装入图标
ImageList1.GetIcon(0, AIcon);
//file:填充区域
ListBox2.Canvas.FillRect(Rect);
//file:计算Rect绘图区的高度
H := Rect.Bottom - Rect.Top;
//file:如果当前项是Item的最后一项,则在Canvas上没有Item的空白区绘制背景
if Index = I then
begin
K := 1;
ARect := Rect;
//file:如果当前绘图项的底部小于ListBox2的Canvas的底部,有空白区域
While ARect.Bottom < ListBox2.Canvas.ClipRect.Bottom do
begin
//file:一次计算下一个绘图区域
ARect.Top := Rect.Top + K * H;
ARect.Bottom := ARect.Top + H;
ListBox2.Canvas.stretchDraw(ARect, Image1.Picture.Bitmap);
Inc(K);
end;
end;
//file:绘制当前项
ListBox2.Canvas.stretchDraw(Rect, Image1.Picture.Bitmap);
//file:绘制图标
ListBox2.Canvas.Draw(Rect.Left, Rect.Top, AIcon);
ARect := Rect;
ARect.Left := Rect.Left + AIcon.Width div 2;
ARect.Top := ARect.top + 2;
//file:保存当前画笔的风格
AStyle := Listbox2.Canvas.Brush.Style;
//file:当前选中的Item要填充蓝色背景
if odSelected in State then
begin
ListBox2.Canvas.Brush.Style := bsSolid;
Listbox2.Canvas.Brush.Color := clBlue;
end
else
begin
//file:未选中项透明背景,前景色为黑色
ListBox2.Canvas.Brush.Style := bsClear;
Listbox2.Font.Color := clBlack;
end;
//file:输出文字
ListBox2.Canvas.TextOut(ARect.Left, ARect.top, ListBox2.Items[Index]);
//file:恢复当前画笔的风格
ListBox2.Canvas.Brush.Style := AStyle;
finally
AIcon.Free;
end;
end;


  以上方法实现了TListBox即具有背景图片,又具有图标和透明文字效果,极大的改善了TListBox的显示效果。

  4. 具有图标,背景图片,透明文字及文字对齐方式效果的列表框

  要实现文字对齐效果,可通过Windows Api函数:DrawText实现。

  操作:

  将ListBox2的OnDrawItem事件中的代码复制到ListBox3的OnDrawItem事件中,并将复制代码中所有的ListBox2改为ListBox3。

  将上述修改后代码中的ListBox3.Canvas.TextOut(Rect.Left + AIcon.Width div 2, Rect.Top + 2, ListBox3.Items[Index]); 语句删除,并在该处添加以下语句:

  //file:计算除掉图标所占区域后的区域,用于确定绘制文字的区域范围

ARect := Rect;
ARect.Left := Rect.Left + AIcon.Width div 2;
ARect.Top := ARect.top + 2;
//file:Windows Api函数调用
DrawText(ListBox3.Canvas.Handle, PChar(ListBox3.Items[Index]), Length(ListBox3.Items[Index]), ARect, 0); //file:0-左对齐, 1---居中, 2--右对齐


  注:通知ListBox3重绘可通过命令ListBox3.Refresh实现

  5. 照片列表框效果

  在ListBox4的Items属性中添加几个字符串;设置ImageList2的Width为148,Height为58;在ImageList2中装入与ListBox4中Items相同字符串数量的图片,大小148 X 58像素单位。

  在ListBox4的OnMeasureItem事件中书写如下代码:

procedure TForm1.ListBox4MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
//file:控制图片的高度
Height := 59;
end;


  在ListBox4的OnDrawItem事件中书写如下代码:

procedure TForm1.ListBox4DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
ABmp: TBitmap;
begin
try
ABmp := TBitmap.Create;
ImageList2.GetBitmap(Index, ABmp);
ListBox4.Canvas.FillRect(Rect);
ListBox4.Canvas.Draw(Rect.Left, Rect.Top, ABmp);
finally
ABmp.Free;
end;
end;


  这种利用TListBox实现的照片框效果,对于照片,商品图片的显示有一定价值。

  6. 以缩略图方式浏览某个文件夹下图片效果的列表框

(代码经过重新整理,原代码无法执行 redsuit )

  在ListBox5的OnMeasureItem事件中书写如下代码:

procedure TForm1.ListBox5MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
//file:控制图片的高度
Height := 59;
end;


  在ListBox5的OnDrawItem事件中书写如下代码:

procedure TForm1.ListBox5DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
//file:图片文件名
Fn: string; 
ABmp: TBitmap;
begin
try
    ABmp := TBitmap.Create;
    Fn := ListBox1.Items[Index];
    ABmp.LoadFromFile(ListBox1.Items[Index]);
    Dec(Rect.Bottom);
    ListBox1.Canvas.FillRect(Rect);
    ListBox1.Canvas.StretchDraw(Rect, ABmp);
  finally
    ABmp.Free;
  end;

end;


  设置Button2的Caption为"预览",在其Click事件中书写如下代码:

var
sr: TSearchRec;
Dir: WideString;
begin
  //Dir :='1' ;
  //file:选择目录对话框,需要在Uses中加入对FileCtrl单元的引用声明
  if SelectDirectory('选择备份文件存放目录','',Dir) then
  begin
    ListBox1.Items.Clear;
    //file:搜索该目录下的所有bmp文件
    if FindFirst(Dir+'/*.bmp', faReadOnly, sr) = 0 then
      begin
        ListBox1.Items.Add(Dir +'/'+  Sr.Name);
         while FindNext(sr) = 0 do
         begin
          ListBox1.Items.Add(Dir +'/'+Sr.Name);
         end;
      FindClose(sr);
      end;
  end;
end; 
 

  评论这张
 
阅读(490)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017