文档章节

Delphi XE2 之 FireMonkey 入门(5) - TAlphaColor

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 408
阅读 24
收藏 0

不是 TColor, 是 TAlphaColor 了.

TAlphaColor = type Cardinal; 还是一个整数.

四个字节分别是: AA RR GG BB(透明度、红、绿、蓝); 这和 TColor 的颜色序相反, 并增加了透明度.

在 HD 窗体上添加一个 TRectangle 和三个 TButton, 测试:

//下面四种赋值方法相同
procedure TForm1.Button1Click(Sender: TObject);
begin
  Rectangle1.Fill.Color := $FFFF0000;
  Rectangle1.Fill.Color := claRed;
  Rectangle1.Fill.Color := TAlphaColors.Red;
  Rectangle1.Fill.Color := TAlphaColorRec.Red;
end;

//通过函数构建 TAlphaColor
procedure TForm1.Button2Click(Sender: TObject);
begin
  Rectangle1.Fill.Color := MakeColor(0, 0, 255);
  //另有 AppendColor()、SubtractColor() 等颜色加减或转换函数
end;

//通过 TAlphaColorRec 结构调整颜色获取或设置颜色分量
procedure TForm1.Button3Click(Sender: TObject);
var
  C: TAlphaColor;
  A,R,G,B: Byte;
begin
  C := MakeColor($82, $00, $4B, $FF);
  Rectangle1.Fill.Color := 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, B]);

  TAlphaColorRec(C).A := 127; //调下透明度
  Rectangle1.Fill.Color := C;
  A := TAlphaColorRec(C).A;
  ShowMessageFmt('%x %x %x %x', [A, R, G, B]);
end;


调整颜色的控件也很方便, 现在也能方便地调整: 色调、饱和度、亮度.

添加 TRectangle、TColorComboBox、TColorPanel、TColorPicker、TComboColorBox、TColorQuad 各一个, 测试:

//在 TColorComboBox 的 OnChange 中修改颜色
procedure TForm1.ColorComboBox1Change(Sender: TObject);
begin
  Rectangle1.Fill.Color := ColorComboBox1.Color;
end;

//在 TColorPanel 的 OnChange 中修改颜色
procedure TForm1.ColorPanel1Change(Sender: TObject);
begin
  Rectangle1.Fill.Color := ColorPanel1.Color;
end;

//在 TColorPicker 的 OnChange 中修改颜色
procedure TForm1.ColorPicker1Click(Sender: TObject);
begin
  Rectangle1.Fill.Color := ColorPicker1.Color;
end;

//在 TComboColorBox 的 OnChange 中修改颜色
procedure TForm1.ComboColorBox1Change(Sender: TObject);
begin
  Rectangle1.Fill.Color := ComboColorBox1.Color;
end;

//通过 TColorQuad 调整 HSL(色调、饱和度、亮度)
procedure TForm1.ColorQuad1Change(Sender: TObject);
var
  C: TAlphaColor;
begin
  C := Rectangle1.Fill.Color;
  Rectangle1.Fill.Color := ChangeHSL(C, ColorQuad1.Hue, ColorQuad1.Sat, ColorQuad1.Lum);
  Caption := Format('%f, %f, %f', [ColorQuad1.Hue, ColorQuad1.Sat, ColorQuad1.Lum]);
end;


在 System.UIConsts 单元也有 StringToAlphaColor()、AlphaColorToIdent()、IdentToAlphaColor() 等相关函数.

本文转载自:http://www.cnblogs.com/del/archive/2011/09/21/2184149.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Delphi XE2:这就是我们所期待的Delphi吗?

版权声明:本文为 OSChina.NET 原创编译 转载务必注明出处,并保留链接! 作者:蒂姆.安德森 Delphi是被一些人遗忘了的快速应用程序开发工具,但它与可视组件库相结合,依然是开发Windows本机...

虫虫
2011/10/31
40.9K
49
Delphi XE2 新功能:LiveBindings --- 把对象之间的属性绑定起来

Delphi XE2 新功能:LiveBindings --- 把对象之间的属性绑定起来日期:2011年9月9日 作者: 人气:5340 查看:[大字体 中字体 小字体] XE2 有了 FireMonkey 框架,它不同于 VCL ,以往的数据感...

vga
2016/08/09
57
0
PostgreDAC 2.8.0,Delphi的PostgreSQL组件

PostgreDAC 2.8.0 发布了,该版本首次通过 RAD Studio XE2 支持 Mac OS X 系统,大大提升了 FireMonkey 支持,修复了关于 TPSQLMonitor 的 bug。 完整改进记录: [!] FireMonkey and cross p...

红薯
2012/03/20
691
1
最全面的常用Delphi第三方控件汇总—报表、图表、界面、数据库等

有网友问我常用Delphi第三方控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 报表图表方面: TeeChart Pro 在delphi 的图形显示方面目前唯一的选择,虽然从delphi 3 就随...

Leamontea
2012/12/03
1K
2
PostgreSQL的Delphi组件--PostgreDAC

PostgreDAC 是适合 Delphi/C++ Builder 操作 PostgreSQL 数据库的功能非常强大的组件包,允许你创建直连 PostgreSQL 数据库的 Delphi/C++ Builder 应用,无需 BDE 和 ODBC 支持。 使用 Post...

匿名
2012/03/20
2.3K
0

没有更多内容

加载失败,请刷新页面

加载更多

重新开始学Java——反射

概念 reflection:自省 反射:镜子可以反射阳光一个java类 或 对象 通过照"镜子"来认知自己 Java语言中是怎么实现照镜子? java.lang.reflect 包 提供了"照镜子"API(应用程序接口) 如果要...

大家都是低调来的
7分钟前
1
0
爬取720万条城市历史天气数据

内容爬虫完毕,校验完毕,缺失信息暂未统计。总数据720万,地区3200个,年份从2011-2019,大小950Mb,原始数据已丢失,需要的朋友可以自己运行脚本挂一晚上。中间遇到了很多坑,有机会我再写...

八音弦
10分钟前
3
0
python的字典类型

1、新建字典 通过键值对 dict_1 = {'a':1,'b':2,'c':3} 通过dict()函数 list_1 = ['adam', 'bob', 'cathy', 'david', 'emma'] list_2 = [1,2,3,4,5] dict_2 = dict(zip(list_1,list_2)) 2、字......

davidwbnu
12分钟前
1
0
springcloud vue.js 前后分离 activiti工作流

本商品为 :springcloud + Springboot 微服务\分布式 工作流 前后分离 + 跨域 版本 (权限控制到菜单和按钮) 后台框架 :springcloud Greenwich.SR1 + springboot 2.1.4 + activiti6.0.0 + ...

java框架开发者
18分钟前
6
0
【jQuery基础学习】07 jQuery表单插件-Form

本文转载于:专业的前端网站➦【jQuery基础学习】07 jQuery表单插件-Form 作用:jQuery Form插件的作用是为了让我们可以很方便地用ajax的方式提交表单,从而使我们提交表单的时候页面不用进行...

前端老手
28分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部