自定义绘制TCustomListbox项目

Question

我在Delphi 10.2中重写了一个显示自定义TCustomListbox到Firemonkey的VCL组件。自定义使用了重写的DrawItem，基本上添加了一些缩进并根据项目文本和索引设置文本颜色。

DrawItem让它变得相当简单，但在FMX中似乎没有这样的东西。我可以覆盖PaintChildren并自己绘制每个项目，但是它看起来不同，我必须自己处理滚动和一切。我刚开始使用FMX和don't have the sources yet。

• FMX中是否有DrawItem替换？我可能错过了它。

• 如果没有，它如何获得所需信息？基本上，要绘制的矩形和理想情况下使用的样式。

问题

Hans的解决方案有效，但有一些重大问题：

颜色

设置颜色不起作用，文本始终为黑色。我尝试了各种可能性，包括这个：

PROCEDURE TMyItem.Paint;
BEGIN
  TextSettings.FontColor := TAlphaColorRec.Red;
  INHERITED;
END;

速度

打开一个包含180个项目的框可能需要两秒钟。我们需要许多项目和计数实际上是我们需要自定义框的原因（我们使用组件的TEdit部分提供过滤）。使用没有TMyItem的字符串的版本更快（尽管可能比VCL版本慢），但是使用这些项目似乎更慢了（它比填充类似的HTML列表慢）。

还是其他什么？没有消息来源，几乎没有文件，我无法说明。

我尝试将这些项目缓存以供重复使用，但这并没有帮助。

看起来使用自定义项实际上比使用字符串更快（以毫秒为单位）：

nItems String TMyItem
   200    672      12
  2000   5604     267
 20000  97322   18700

当内容多次更改时，速度问题似乎会累积。我正在使用FListBox.Items.Clear;，然后我尝试了

n := FListBox.Items.Count;
FOR i := 0 TO n-1 DO FListBox.ListItems[n-1-i].Free;

最后FListBox.Clear;，这是最有意义的（我最后发现）。最后，每件物品似乎需要2毫秒。

Answer 1

这是一个如何完成它的例子。关键是将（自定义）Parent的{​​{1}}设置为ListBox。这会将其附加到其项目列表中。我在构造函数中设置了父项，因此每次向列表框添加内容时，我都不必这样做（并记住它）。

ListBoxItem

我现在在很多地方使用自定义ListBoxItems，因为你可以在ListboxItem中拥有ComboBoxes，EditBoxes和所有其他控件。这将打开一个非常动态（基于列表）的屏幕布局，可以轻松适应所有平台和屏幕尺寸。