Question

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

无论如何，伪装本机可可控件似乎有点肮脏，但是坚持使用TToolbar（带有标准iPhone渐变的面板），一对TSpeedButtons（其中有一个好奇的V slope事件）和一个TStringGrid你就是几乎在基本的iPhone应用程序设计领域。

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

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

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

...没有效果（我也尝试过Cell [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

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

右键单击Component，然后选择Edit | Custom Style ...

然后展开Tlayout以查找并选择TText

然后调整Fill属性以更改颜色。

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

2 个答案: