微客导航 » 文章资讯 » Delphi7中Listview的常用功能汇总

Delphi7中Listview的常用功能汇总

2024-04-10 08:49:04 478

有些时候我们在使用Delphi7的Listview过程中总是要改一些默认的设置，现在把它们集中起来汇总如下。

MultiSelect:=True; 使Listview可以同时选择多行

GridLines:=True; 使Listview显示格线

ViewStyle:=vsReport;显示数据项的详细列表

HideSelection:=True; 使listview失去焦点时,选中行不高亮

//设置颜色
procedureTForm1.ListView1CustomDrawItem(Sender:TCustomListView;
Item:TListItem;State:TCustomDrawState;varDefaultDraw:Boolean);
var
subRect,itemRect:TRect;
i,SubItem:Integer;
begin
DefaultDraw:=False;
ifItem.Selectedthenbegin
Sender.Canvas.Font.Color:=clRed;//选中行字体颜色
Sender.Canvas.Brush.Color:=clgray;//clGreen;选中行高亮颜色
endelsebegin
Sender.Canvas.Font.Color:=clNavy;//正常行字体颜色
Sender.Canvas.Brush.Color:=clWhite;//正常行高亮颜色
end;
itemRect:=Item.DisplayRect(drLabel);
subRect:=itemRect;
forSubItem:=0to(SenderasTListView).Columns.Count-1do
begin
subRect.Left:=itemRect.Left;
fori:=1toSubItemdo
begin
subRect.Left:=subRect.Left+(SenderasTListView).Column[i-1].Width;
subRect.Right:=subRect.Right+SubRect.Left+(SenderasTListView).Column[i].Width;
end;
ifSubItem=0then
begin
subRect.Right:=subRect.Right+2;
Sender.Canvas.TextRect(subRect,subRect.Left,subRect.Top,Item.Caption);
endelse
Sender.Canvas.TextRect(subRect,subRect.Left,subRect.Top,Item.SubItems[SubItem-1]);
end;
end;

//排序功能
private
{Privatedeclarations}
SortCol:Integer;
SortWay:Integer;

procedureTForm1.ListView1ColumnClick(Sender:TObject;
Column:TListColumn);
begin
SortCol:=Column.Index;
if(SortWay=1)thenSortWay:=-1elseSortWay:=1;
(SenderasTCustomListView).AlphaSort;
end;

procedureTForm1.ListView1Compare(Sender:TObject;Item1,Item2:TListItem;
Data:Integer;varCompare:Integer);
var
t:Integer;
begin
if(SortCol=0)then
begin
Compare:=SortWay*CompareText(Item1.Caption,Item2.Caption);
endelse
begin
t:=SortCol-1;
Compare:=SortWay*CompareText(Item1.SubItems[t],Item2.SubItems[t]);
end;
end;

这个功能存在一个问题：数字排序会按字符类似排，例如：1,10,102,3,34,356......感兴趣的读者可以加以完善

返回顶部
3162201930
czq8825@qq.com

Delphi7中Listview的常用功能汇总

热门推荐

随机推荐