时间:2021-05-20
有些时候我们在使用Delphi7的Listview过程中总是要改一些默认的设置,现在把它们集中起来汇总如下。
MultiSelect := True; 使Listview可以同时选择多行
GridLines := True; 使Listview显示格线
ViewStyle := vsReport; 显示数据项的详细列表
HideSelection := True; 使listview失去焦点时,选中行不高亮
//设置颜色procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var subRect, itemRect: TRect; i, SubItem: Integer;begin DefaultDraw := False; if Item.Selected then begin Sender.Canvas.Font.Color := clRed; //选中行字体颜色 Sender.Canvas.Brush.Color := clgray; //clGreen; 选中行高亮颜色 end else begin Sender.Canvas.Font.Color := clNavy; //正常行字体颜色 Sender.Canvas.Brush.Color := clWhite; //正常行高亮颜色 end; itemRect := Item.DisplayRect(drLabel); subRect := itemRect; for SubItem := 0 to (Sender as TListView).Columns.Count - 1 do begin subRect.Left := itemRect.Left; for i := 1 to SubItem do begin subRect.Left := subRect.Left + (Sender as TListView).Column[i - 1].Width; subRect.Right := subRect.Right + SubRect.Left + (Sender as TListView).Column[i].Width; end; if SubItem = 0 then begin subRect.Right := subRect.Right + 2; Sender.Canvas.TextRect(subRect, subRect.Left, subRect.Top, Item.Caption); end else Sender.Canvas.TextRect(subRect, subRect.Left, subRect.Top, Item.SubItems[SubItem - 1]); end;end;//排序功能 private { Private declarations } SortCol: Integer; SortWay: Integer; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);begin SortCol := Column.Index; if (SortWay = 1) then SortWay := -1 else SortWay := 1; (Sender as TCustomListView).AlphaSort;end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);var t: Integer;begin if (SortCol = 0) then begin Compare := SortWay * CompareText(Item1.Caption, Item2.Caption); end else begin t := SortCol - 1; Compare := SortWay * CompareText(Item1.SubItems[t], Item2.SubItems[t]); end;end;这个功能存在一个问题:数字排序会按字符类似排,例如:1,10,102,3,34,356......感兴趣的读者可以加以完善
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
本节内容0、列表常用功能汇总1、定义列表2、访问列表中的元素3、切片4、追加5、插入6、修改7、拷贝8、删除9、扩展10、统计11、翻转12、排序13、获取下标
软件名称:Delphi7正式中文包软件版本:1.2软件大小:365KB软件授权:免费适用平台:WinNTWin2003Win9XWin2000WinXP下载地址
软件名称:Delphi7正式中文包软件版本:1.2软件大小:365KB软件授权:免费适用平台:WinNTWin2003Win9XWin2000WinXP下载地址
入手了iphone很多人会觉得耗电,那么苹果手机如何省电?有什么方法可以省电?iphone不常用功能有哪些?下面是iphone可关闭功能开关汇总,我们来尝试运用
dll文件系列软件最新版本下载533KBdll文件智能修复工具立即下载软件名称:Delphi7正式中文包软件版本:1.2软件大小:365KB软件授权:免费适用平