2

我在 Delphi 10.1 Berlin 中使用 Windows 作为主视图创建了一个应用程序。我在表单上放置了一个 TListView 并使用新的切换设计模式对其进行了自定义。我添加了一个 TImageObjectAppearance 和几个 TTextObjectAppearance 项目。我添加了代码来设置 TImageObjectAppearance 的图像，并且文本项具有各种字体大小和样式。我在表单上还有 3 个 TImage 组件，用于根据值分配给 TImageObjectAppearance.Bitmap。

当我为 Win32 编译它并运行它时，一切看起来都很棒。位图图像根据 TListView 每一行的值显示。当我将样式切换到 Android 并将视图切换到 Android 10" 平板电脑时，IDE 会抛出此错误：

“无法将 TAppearanceObjectItem 分配给 TAppearanceObjectItem。”

View 仍然显示 Android 10" Tablet 但表单上的实际视图仍然是 Windows 表单。所以我的第一个问题是这个错误到底是什么？我认为 Delphi 应该能够编译到所有这些不同的目标/devices 使用相同的代码。这肯定不会发生。但是等等，还有更多......

所以我切换回 Style: Windows 和 View: Master。我点击了表单上的 TImageObjectAppearance 项并按下了 Delete 键，我得到了这个错误：

“无法从设计器中删除持久引用。”

但是，如果您单击“结构”窗口中的项目并按“删除”，它就可以删除了。漏洞？我会这么说。无论如何，还有更多。我从结构窗口中删除了 TImageObjectAppearance 项，然后切换回样式：Android 和视图：Android 10" 平板电脑，猜猜看……我得到了同样的错误。但是表单上没有 TImageObjectAppearance！因此，我完全删除了 Windows | Master 视图中的 TListView 自定义项，并使用 Android 10" 平板电脑视图重新开始。我添加了所有自定义外观对象，包括 TImageObjectAppearnce。但是当我为 10" Android 平板电脑编译它并在我的 Galaxy Tab S2 上运行它时，1) 没有图像出现。这是我为设置图像而编写的代码。（那里是我用于 TImageObjectAppearance 项目的表单上的 3 个 TImage 组件。

function TdmVisual.AddOrUpdateItem(AItem: TListViewItem; AMGDL: Integer): TListViewItem;
var
  LObject: TListItemImage;

begin
  Result         := AItem;
  LObject        := Result.Objects.FindObjectT<TListItemImage>('imgRating');
  LObject.Bitmap := TBitmap.Create;

  if AMGDL < 70 then
    LObject.Bitmap.Assign(fmMain.iLow.Bitmap)
  else if (AMGDL >= 70) and (AMGDL <= 130) then
    LObject.Bitmap.Assign(fmMain.iGreen.Bitmap)
  else if (AMGDL > 130) and (AMGDL <= 180) then
    LObject.Bitmap.Assign(fmMain.iYellow.Bitmap)
  else
    LObject.Bitmap.Assign(fmMain.iRed.Bitmap);
end;

我的第二个（第三个或第四个）问题是为什么上面的代码在为 Android 编译时不起作用，以及在代码中将图像分配给 TImageObjectAppearance 的正确方法是什么？

谢谢-巴里

4

1 回答 1

0

这是一个错误

““无法将 TAppearanceObjectItem 分配给 TAppearanceObjectItem”已在我们的质量门户中记录为错误：”

https://community.embarcadero.com/forum/ui/1953-fmx-tlistview-switching-between-windows-android

于 2017-04-09T15:48:19.987 回答