FireMonkey 中的 Windows 单元是否有等效的 RGB(红、绿、蓝)?

问题描述 投票:0回答:1

我使用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 中是否有相应的功能?

delphi firemonkey delphi-11-alexandria
1个回答
3
投票

Firemonkey 使用

TAlphaColor
颜色。 使用 TAlphaColorRec
 单元中的 
System.UITypes
 设置颜色的各个 RGBA 值,例如:

var C: TAlphaColorRec;
begin
  C.A:=256;  //Unless you also want random transparency!
  C.R:=Random(256);
  C.G:=Random(256);
  C.B:=Random(256);

  Label1.Font.Color:=C;
end;
© www.soinside.com 2019 - 2024. All rights reserved.