delphi - 如何使 TProgressColumn 与 LiveBindings 和数据集一起使用时工作

Question

我的目标是拥有一个包含多个列的 TGrid，通过 LiveBindings 连接到 TClientDataSet。其中一列的类型为 TProgressColumn。

网格显示数据，但进度栏列不显示任何内容(即 0% 进度)。

TProgressColumn 连接到 ftInteger 类型的字段。该字段中的值介于 0 到 100 之间。

我尝试过 ftSingle，但没有成功。 我通过 ColumnStyle 属性将列的类型设置为 TProgressColumn，该属性位于 TLinkGridToDataSourceBindSourceDB/Columns 下。

奇怪的是，当我使用 TPrototypeBindSource 生成值时 - TProgressColumn 可以工作，但仅适用于 ftUInteger 值。 ftInteger 生成器失败。

这是一个小演示(Delphi XE7):

当我在 TProgressCell.DrawCell() 中放置断点并跳过 Value.IsOrdinal 和 Value.IsType 的两个条件时，将跳过 Value.IsOrdinal 和 Value.IsType 的两个条件，并且 ClampValue 收到值为 0 的“Min”。 传递给函数的值似乎有问题。

使用 TProgressColumn 时有什么特别的吗？我需要在 TLinkGridToDataSourceColumn 中使用 CustomFormat、CustomParse 吗？

这是一个错误还是我错过了什么？

更新: 感谢“nompa”，谜团被解开了!

事实上“asInteger”是 TField 类众所周知的属性，即:

someDataSet.fieldByName('myFieldName').asInteger

在 CustomFormat 属性中，您可以访问许多内容，包括 self.asInteger 属性。 更多信息请参见:

1. Using Custom Format and Parse Expressions in LiveBindings
2. Using binding expressions in the CustomFormat property of a TLinkPropertyToField component
3. Formatting your Fields
4. How to treat an Integer field as a Boolean?

Answer 1

该值默认为字符串，无论是整数字段。在属性 CustomFormat 中写入 AsInteger。 该值将被视为整数，并且现在进度可见。