TCustomListbox项的自定义绘制

Question

我正在为 Delphi 10.2 中的 Firemonkey 重写一个显示自定义 TCustomListbox 的 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

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

type
  tMyListBoxItem = class(TListBoxItem)
  strict private
    fTextLabel: TLabel;
  public
    constructor Create(aOwner: TComponent);
    property TextLabel: TLabel read fTextLabel;
  end;

implementation

constructor tMyListBoxItem.Create(aOwner: TComponent);
begin
  inherited;
  fTextLabel := TLabel.Create(self);
  fTextLabel.Parent := self;
  Assert(aOwner is TFMXObject, 'tMyListBoxItem.Create');
  Parent := TFMXObject(aOwner);
end;

procedure tMyForm.FillListBox(aListBox: TListBox; aStringList: TStringList);
var
  lItem: tMyListBoxItem;
  i: integer;
begin
  aListBox.BeginUpdate; //to avoid repainting for every item added
  aListBox.Clear;
  for i := 0 to aStringList.Count-1 do
  begin
    lItem := tMyListBoxItem.Create(aListBox);
    lItem.TextLabel.Text := aStringList[i];
    lItem.Margins.Left := 20;
  end;
  aListBox.EndUpdate;
end;

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