delphi - ListViewItem 的文本对齐方式
问题描述
在 Delphi 10.4 的 Firemonkey 中。我想构建一个列表视图,其中列表视图项文本显示为左对齐或右对齐,具体取决于列表项内容。
我这样做如下:
procedure TForm1.FormCreate(Sender: TObject);
procedure AddItem(No: integer);
var
Item: TListViewItem;
begin
Item := ListView1.Items.AddItem(No);
Item.Text := 'Text item No ' + No.ToString;
Item.Tag := No;
if No mod 2 = 0 then
Item.Objects.TextObject.TextAlign := TTextAlign.Leading
else
Item.Objects.TextObject.TextAlign := TTextAlign.Trailing;
end;
var
c: integer;
begin
for c := 0 to 9 do
AddItem(c);
end;
但是,这并不适用于所有平台。但是一旦 ListView 改变了它的大小,所有的 ListItems 都会在左边出现。有一个更好的方法吗?
作为一种解决方法,我做了以下事情:
procedure TForm1.ListView1Resized(Sender: TObject);
var
c: integer;
begin
for c := 0 to ListView1.ItemCount - 1 do
if ListView1.Items[c].Tag mod 2 = 0 then
ListView1.Items[c].Objects.TextObject.TextAlign := TTextAlign.Leading
else
ListView1.Items[c].Objects.TextObject.TextAlign := TTextAlign.Trailing;
end;
解决方案
这个ItemAppearance=ListItem
问题无法解决,因为在内部ResetView
方法中,Item.Objects.TextObject
所有属性都会写回ItemAppearanceObjects.ItemObjects
.
因此,ItemAppearance
必须DynamicAppearance
为此应用程序设置为。必须在Structure View下TextObjectAppearance
手动创建两个对象,其中必须设置为a和to 。ListView.ItemAppearance.Item
Text1
TextAlign=Leading
Text2
TextAlign=Trailing
之后,只需用文本填充一个文本对象:
procedure TForm1.FormCreate(Sender: TObject);
procedure AddItem(No: integer);
var
Item: TListViewItem;
begin
Item := ListView1.Items.AddItem(No);
if No mod 2 = 0 then
Item.Data['Text1'] := 'Text item No ' + No.ToString
else
Item.Data['Text2'] := 'Text item No ' + No.ToString
end;
var
c: integer;
begin
for c := 0 to 9 do
AddItem(c);
end;
这是相应的 FMX 文件:
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 480
ClientWidth = 640
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
DesignerMasterStyle = 0
object ListView1: TListView
ItemAppearanceClassName = 'TDynamicAppearance'
ItemEditAppearanceClassName = 'TDynamicAppearance'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TListHeaderObjects'
Align = Client
Size.Width = 640.000000000000000000
Size.Height = 480.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
ItemAppearanceObjects.ItemObjects.ObjectsCollection = <
item
AppearanceObjectName = 'Text1'
AppearanceClassName = 'TTextObjectAppearance'
Appearance.TextAlign = Leading
end
item
AppearanceObjectName = 'Text2'
AppearanceClassName = 'TTextObjectAppearance'
Appearance.TextAlign = Trailing
end>
ItemAppearanceObjects.ItemEditObjects.ObjectsCollection = <
item
AppearanceObjectName = 'Text1'
AppearanceClassName = 'TTextObjectAppearance'
end>
end
end
推荐阅读
- php - 将来自不同数组的随机值插入 MySQL 表中的列
- python - Flask WTForms - 基于多个表单字段的自定义验证器
- c# - 在 C# 中将正则表达式与字符串连接起来
- python - 为什么这个查询在使用 flaskext.mysql 时没有正确执行,当它使用 MySQL 工作台正确执行时?
- javascript - 如何将导航栏放在引导程序 4 中 jumbtron 的正下方
- python - 鹡鸰错误新模型。models.py 中的CharField
- flutter - 如何摆脱 AnimatedContainer 上的溢出错误?
- javascript - 从 nodeList javascript 获取数据集值
- api - 如何在 Flutter 中设置定时器来定期更新 API 数据
- .htaccess - Drupal:.htaccess 中的 URL 重定向多个站点和单个代码库