• Delphi XE2 之 FireMonkey 入门(5)


    不是 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() 等相关函数.


  • 相关阅读:
    Spring源码解析 | 第一篇 :IntelliJ IDEA2019.3编译Spring5.3.x源码
    Mybatis和Mybatis-Plus时间范围查询,亲测有效
    Centos7增加磁盘空间并挂载目录(VMware)
    Docker添加TLS认证修复2375端口暴露引发的漏洞
    【动态规划】0-1背包问题原理和实现
    c#日期格式化(关于12小时制和24小时制)
    JS日期时间格式化
    子页面iframe如何调用 父页面的方法 或者对象(基于layui框架)
    js把文字复制到粘贴板
    理解sql server STUFF函数
  • 原文地址:https://www.cnblogs.com/dzdd/p/3346784.html
Copyright © 2020-2023  润新知