FireMonkey ListView 自动计算行高

发布时间：2020-12-15 04:36:22 所属栏目：大数据来源：网络整理

导读：说明：展示 ListView 视其每一行 Item 的 Detail 字串长度自动调整高度（可每行高度不同）。适用：Delphi XE7 / XE8 源码下载： DetailStr: [ .. ] String = i:= = = Random( = DetailStr[r].Substring( = span style="color: #0000ff;"procedure TForm1.Li

说明：展示 ListView 视其每一行 Item 的 Detail 字串长度自动调整高度（可每行高度不同）。

适用：Delphi XE7 / XE8

源码下载：

DetailStr: [..] String = i:= == Random(= DetailStr[r].Substring(=procedure TForm1.ListView1UpdateObjects(const Sender: TObject;
const AItem: TListViewItem);
var R: TRectF;
begin
if (AItem.Objects.DetailObject <> nil) and
(AItem.Objects.DetailObject.Text <> '') then
begin
// 计算文字显示的区域
R := RectF(0,0,AItem.Objects.DetailObject.Width,10000);
ListView1.Canvas.MeasureText(R,AItem.Objects.DetailObject.Text,AItem.Objects.DetailObject.WordWrap,[],TTextAlign.Leading,TTextAlign.Leading);

      </span><span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; 设定高度</span>
      AItem.Height :=<span style="color: #000000;"&gt; Trunc(R.Height);
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

end;

补充：计算最后一项区域并卷到最后一项

= ListView1.GetItemRect(ListView1.Items.Count - ); ListView1.ScrollViewPos := R.Bottom; ;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!