FireMonkey ListView Item中过多元素的最佳策略[重复]

Question

相信我，在寻求帮助之前我已经完成了作业。我花了最后 3 天的时间搜索和阅读，但我无法找到解决方案。因此，我们将不胜感激任何帮助。

我的任务是让一个 ListView 连接到一个数据集，其中 ListView 项具有以下结构：

请记住

1. 元素 4、6 和 8 具有固定值和颜色（即标签）
2. 元素 1 和 10 的颜色取决于元素 5、7 和 9 的值

我得到的最好的是对 Delphi 标准示例的引用，该示例随 Embarcadero Delphi 示例目录转移：ListViewMultiDetailAppearance。 这个解决方案可以为 MutliDetailItemAppearance 创建我们自己的类，并根据需要注册尽可能多的细节（在我的情况下，我认为我需要额外的 8 个）。

现在我的问题：

1. 这是最好的方法吗？
2. 如果不是，更好的方法是什么？
3. 如果是，添加额外的 8 个细节将如何影响 性能？
4. 以及最重要的如何实现元素的自定义着色 每个列表视图项基于值？
5. 最后如何到达这个部分的边界？和列表项底部 边界（绿线）？

非常感谢您提前提出的想法。

Answer 1

我不确定我的方法是否正确，但我在我的 fmx 项目中将 TListbox 用于类似目的。从DataSource到LiveBindings填充时，其item的结构是这样形成的。

procedure THMICD10Fr.LinkListControlToField1FillingListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
begin
  if (Assigned(AEditor)) and (HDM2.FDQicd_detail_for_TreeView.Active) then
    try
      if (AEditor.CurrentObject as TMetropolisUIListBoxItem).ChildrenCount = 2
      then
      begin

        with TPanel.Create(AEditor.CurrentObject as TMetropolisUIListBoxItem) do
        begin
          Parent := (AEditor.CurrentObject as TMetropolisUIListBoxItem);
          Align := TAlignLayout.alRight;
          Width := 45;
          Margins.Bottom := 1;
          Margins.Top := 1;
        end;

        with TLabel.Create((AEditor.CurrentObject as TMetropolisUIListBoxItem)
          .Children.Items[2] as TPanel) do
        begin
          Parent := (AEditor.CurrentObject as TMetropolisUIListBoxItem)
            .Children.Items[2] as TPanel;
          Text := '↓';
          VertTextAlign := TTextAlign.taCenter;
          TextAlign := TTextAlign.taCenter;
          Align := TAlignLayout.alClient;
          HitTest := true;
          AutoSize := false;
          StyledSettings := StyledSettings - [TStyledSetting.ssStyle];
          Font.Style := Font.Style + [TFontStyle.fsBold];
          Tag := HDM2.FDQicd_detail_for_TreeView.FieldByName('id').AsInteger;
          TagString := HDM2.FDQicd_detail_for_TreeView.FieldByName
            ('category_etiology').AsString;
          OnClick := LabelInListBox1Click;
        end;
      end;

    except

    end;
end;

这段代码给了我以下外观：

您可以在 Item 中创建和嵌套所有必要的 TLayouts、TLabels 等，并使用 LiveBindings 事件处理程序内部的逻辑设置所有必要的设置。