2024年4月5日发(作者：)

Delphi XE2 之 FireMonkey (5)

四个字节分离是: AA RR GG BB(透亮 度、红、绿、蓝); 这

:= C; A := TAlphaColorRec(C).A; R :=

TAlphaColorRec(C).R; G := TAlphaColorRec(C).G; B :=

TAlphaColorRec(C).B; ShowMessageFmt('%x %x %x %x', [A, R, G,

和 TColor 的色彩序相反, 并增强了透亮 度. 在 HD 窗体

B]); TAlphaColorRec(C).A := 127; //调下透亮 度

上添加一个 TRectangle 和三个 TButton, 测试: //下面四种赋值办

:= C; A := TAlphaColorRec(C).A;

法相同 procere 1Click(Sender: TObject); begin

ShowMessageFmt('%x %x %x %x', [A, R, G, B]); 调节色彩的控件

:= $FFFF0000; :=

也很便利, 现在也能便利地调节: 色调、饱和度、亮度. 添加

claR; := ;

TRectangle、TColorComboBox、TColorPanel、TColorPicker、

:= ; //通过函数构建

TComboColorBox、TColorQuad 各一个, 测试: //在 TColorComboBox

TAlphaColor procedure 2Click(Sender: TObject);

的 OnChange 中修改色彩 procedure

begin := MakeColor(0, 0, 255); //另有

omboBox1Change(Sender: TObject); begin

AppendColor()、SubactColor() 等色彩加减或转换函数 //通过

:= ; //在

TAlphaColorRec 结构调节色彩猎取或设置色彩重量 procedure

TColorPanel 的 OnChange 中修改色彩 procedure

3Click(Sender: TObject); C: TAlphaColor;

anel1Change(Sender: TObject); begin

A,R,G,B: Byte; begin C := MakeColor($82, $00, $4B, $FF);

第 1 页 共 2 页