delphi - 如何从 FireMonkey TListBox 控件中删除边界线？

Question

我正在学习 FireMonkey 样式 - 我的主要引用资料是 here .我用简单的标签和形状尝试过的一切都很好，但我现在正在使用 TListBox 并尝试做两件事:

设置 TListBox 中项目的字体。

移除它的边框(它的客户端在 TCalloutPanel 中对齐)。

我正在使用在窗体上创建样书的方法，右键单击控件并选择“编辑自定义样式”。 (不过，我同样很乐意进行运行时更改)。

我对字体的唯一成功是创建多个 TListBoxItem 并使用它们各自的文本设置。有没有办法像 VCL 一样继承父设置？我真的很想像在 VCL 中一样添加列表框项目:

 ListBox1.Items.Add( 'text' )

但我看不到获取创建的内部 TListBoxItem 数组的运行时方式。

另一个问题是我看不到删除边框矩形的方法。一个普通的矩形很容易——它有一个笔画——但是在样书中挖掘 TListBox 的所有布局选项，我在任何地方都看不到笔画。

我正在使用 XE7。我错过了什么吗？

谢谢你的帮助。

Answer 1

不能保证背景是 TRectangle类型。

当您选择编辑自定义样式 选项，您将编辑平台默认样式，该样式始终为 Windows 样式。 (也就是说，如果尚未加载自定义样式)

他们决定处理平台默认样式的方式是拍摄 native 控件的快照并将它们合并到一个图像中，他们可以从中单独源链接到特定控件。
该图像在样式中可用，供您修改。

设置 ListBox 中项目的字体

右键单击项目并选择编辑自定义样式，一个新的样式对象将添加到您的样书中。对于列表框项目，它应该被称为 listboxitem1style1尽管数字可能会有所不同。(名称来自此对象的默认样式，即 listboxitemstyle )。

这是您要在样书中编辑的样式对象。完成后，关闭样书并更改 StyleLookup每个 ListBox 项的属性为 listboxitem1style1 .最好在运行时将值分配给属性。 ListBoxItem1.StyleLookup := 'listboxitem1style1';

从 TListBox 中移除边框

在样书中加载自定义样式后，使用样式设计器导航至 ListBox1Style1 > background : SourceLink property并编辑 SourceRect分配的 BitmapLink 对象。基本上，您将矩形膨胀 -2 以摆脱边框。