Delphi：FireMonkey 是否有与 Windows 单元中的 RGB（红、绿、蓝）等效的东西？

Question

我使用Windows单元中的

RGB

函数在VCL中生成随机颜色，还使用

TextOut

在位图中写入文本。

现在我需要在 Android 版 FireMonkey 中编写该内容

Uses windows;

R:=Random(256);
G:=Random(256);
B:=Random(256);
C:=RGB(R, G, B);

label1.Font.Color:=c; 

FireMonkey 中是否有相应的功能？

Answer 1

Firemonkey 使用

TAlphaColor

颜色。 你可以这样做：

var C: TAlphaColorRec;
begin
  C.A:=256;
  C.R:=Random(256);
  C.G:=Random(256);
  C.B:=Random(256);

  Label1.Font.Color:=C;
end;

TAlphaColorRec is in the 

System.UITypes` 单元。