2

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

无论如何，伪造原生 cocoa 控件似乎有点破旧，但是贴上一个 TToolbar（带有标准 iPhone 渐变的面板）、几个 TSpeedButtons（它有这个奇怪的 V 斜率）和一个 TStringGrid，你几乎就在基本的 iPhone 应用程序设计领域。

在 TToolbar 上放置一个 TLabel 以获得标题，然后您会立即想要更改颜色，这似乎没有属性。是的，但现在我听到你说，这是所有样式（TLayout）驱动的，这是我的想法，但是样式编辑器在样式设计器的 TLayout 或 TText 方面没有颜色（颜色！？）属性。

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

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

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

我要疯了吗？

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

4

2 回答 2

4

这对我来说很好。

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其中一个是循环变量？

至于颜色设置罗伯茨回答作品设计时，如果你想在代码中设置它，你可以做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;
于 2011-09-25T08:46:39.347 回答
3

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

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

然后展开 Tlayout 找到并选择 TText

然后调整Fill属性来改变颜色。

于 2011-09-23T16:25:21.350 回答