更改 FireMonkey iOS 应用程序中 TLabel 的颜色，并将项目添加到 TStringGrid？

Question

在 XE-script-prep（创建 Xcode 文件夹）之后，我设法让 Xcode（在 Windows 下作为虚拟机运行）将 XE2 构建的 FireMonkey iOS HD 应用程序推送到我的（越狱的）iPhone，并具有有效的公司证书。

不管怎样，伪造原生的 cocoa 控件似乎有点肮脏，但是粘上一个 TToolbar（带有标准 iPhone 渐变的面板）、几个 TSpeedButton（其中有这个奇怪的 V 斜率的东西）和一个 TStringGrid，你就几乎在基本 iPhone 应用程序设计领域。

将 TLabel 放在 TToolbar 上作为标题，您会立即想要更改颜色，但似乎没有相应的属性。是的，但现在我听到你说，这都是样式（TLayout）驱动的，这就是我的想法，但是样式编辑器在样式设计器的 TLayout 或 TText 方面没有颜色（颜色！？）属性。

第二个问题也同样快，我在上面放了一个 TStringGrid 并认为我会动态设置行，所以我创建了一个字符串列，将 RowCount 设置为 6，然后设置

Cells[1, n] := 'Row ' + IntToStr(iLoop); 

...没有效果（我还尝试了 Cells[0, n]，以防它是从零开始的列表）。

我要疯了吗？

仍然对连接感到困惑（你如何与 iPhone 之外的任何东西对话！？），并且在 iPhone 4 上使用 TFloatAnimation 旋转 48x48 图像的性能坦率地说是令人震惊的。但我很乐观，我们已经走到这一步了！

Answer 1

这对我来说效果很好。

procedure TForm3.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to 6 do
  begin
    StringGrid1.Cells[0,i] := 'Row:' + IntToStr(i);
  end;
end;

我注意到你有 n 和 iLoop 哪一个是循环变量？

至于颜色设置 Roberts 答案在设计时有效，如果您想在代码中设置它，您可以使用 Label1.FontFill.Color := TAlphaColorRec.Beige;

更好的方法。

Label1.ApplyStyleLookup;
Label1.FontFill.Color := TAlphaColorRec.White;

但我认为正确的方法是为 FontFill 提供一个 setter 函数，例如：

function GetFontFill: TBrush;
begin
  if FNeedStyleLookup then ApplyStyleLookup;
  Result := FFontFill;
end;

Answer 2

要更改标签的颜色，您需要使用样式。

右键单击组件并选择“编辑|自定义样式...”，

然后展开“布局”以查找并选择 TText

，然后调整“填充”属性以更改颜色。