Delphi XE System.UITypes 颜色模块 TAlphaColor
1、原代码：
type
TColorRef = UInt32;
PColor = ^TColor;
TColor = -$7FFFFFFF-1..$7FFFFFFF;
{$IF NOT DEFINED(CLR)}
{$NODEFINE TColor}
{$OBJTYPENAME TColor 'NTColor'}
(*$HPPEMIT OPENNAMESPACE*)
(*$HPPEMIT ' enum DECLSPEC_DENUM TColor : int {clMin=-0x7fffffff-1, clMax=0x7fffffff};'*)
(*$HPPEMIT CLOSENAMESPACE*)
{$ENDIF}
PColorRec = ^TColorRec;
TColorRec = record
const
SystemColor = $FF000000;
// System Colors (Windows only)
cSCROLLBAR = 0;
cBACKGROUND = 1;
cACTIVECAPTION = 2;
cINACTIVECAPTION = 3;
cMENU = 4;
cWINDOW = 5;
cWINDOWFRAME = 6;
cMENUTEXT = 7;
cWINDOWTEXT = 8;
cCAPTIONTEXT = 9;
cACTIVEBORDER = 10;
cINACTIVEBORDER = 11;
cAPPWORKSPACE = 12;
cHIGHLIGHT = 13;
cHIGHLIGHTTEXT = 14;
cBTNFACE = 15;
cBTNSHADOW = $10;
cGRAYTEXT = 17;
cBTNTEXT = 18;
cINACTIVECAPTIONTEXT = 19;
cBTNHIGHLIGHT = 20;
c3DDKSHADOW = 21;
c3DLIGHT = 22;
cINFOTEXT = 23;
cINFOBK = 24;
cHOTLIGHT = 26;
cGRADIENTACTIVECAPTION = 27;
cGRADIENTINACTIVECAPTION = 28;
cMENUHILIGHT = 29;
cMENUBAR = 30;
cENDCOLORS = cMENUBAR;
cDESKTOP = cBACKGROUND;
c3DFACE = cBTNFACE;
c3DSHADOW = cBTNSHADOW;
c3DHIGHLIGHT = cBTNHIGHLIGHT;
c3DHILIGHT = cBTNHIGHLIGHT;
cBTNHILIGHT = cBTNHIGHLIGHT;
SysScrollBar = TColor(SystemColor or cSCROLLBAR);
SysBackground = TColor(SystemColor or cBACKGROUND);
SysActiveCaption = TColor(SystemColor or cACTIVECAPTION);
SysInactiveCaption = TColor(SystemColor or cINACTIVECAPTION);
SysMenu = TColor(SystemColor or cMENU);
SysWindow = TColor(SystemColor or cWINDOW);
SysWindowFrame = TColor(SystemColor or cWINDOWFRAME);
SysMenuText = TColor(SystemColor or cMENUTEXT);
SysWindowText = TColor(SystemColor or cWINDOWTEXT);
SysCaptionText = TColor(SystemColor or cCAPTIONTEXT);
SysActiveBorder = TColor(SystemColor or cACTIVEBORDER);
SysInactiveBorder = TColor(SystemColor or cINACTIVEBORDER);
SysAppWorkSpace = TColor(SystemColor or cAPPWORKSPACE);
SysHighlight = TColor(SystemColor or cHIGHLIGHT);
SysHighlightText = TColor(SystemColor or cHIGHLIGHTTEXT);
SysBtnFace = TColor(SystemColor or cBTNFACE);
SysBtnShadow = TColor(SystemColor or cBTNSHADOW);
SysGrayText = TColor(SystemColor or cGRAYTEXT);
SysBtnText = TColor(SystemColor or cBTNTEXT);
SysInactiveCaptionText = TColor(SystemColor or cINACTIVECAPTIONTEXT);
SysBtnHighlight = TColor(SystemColor or cBTNHIGHLIGHT);
Sys3DDkShadow = TColor(SystemColor or c3DDKSHADOW);
Sys3DLight = TColor(SystemColor or c3DLIGHT);
SysInfoText = TColor(SystemColor or cINFOTEXT);
SysInfoBk = TColor(SystemColor or cINFOBK);
SysHotLight = TColor(SystemColor or cHOTLIGHT);
SysGradientActiveCaption = TColor(SystemColor or cGRADIENTACTIVECAPTION);
SysGradientInactiveCaption = TColor(SystemColor or cGRADIENTINACTIVECAPTION);
SysMenuHighlight = TColor(SystemColor or cMENUHILIGHT);
SysMenuBar = TColor(SystemColor or cMENUBAR);
SysNone = TColor($1FFFFFFF);
SysDefault = TColor($20000000);
// Actual colors
Aliceblue = TColor($FFF8F0);
Antiquewhite = TColor($D7EBFA);
Aqua = TColor($FFFF00);
Aquamarine = TColor($D4FF7F);
Azure = TColor($FFFFF0);
Beige = TColor($DCF5F5);
Bisque = TColor($C4E4FF);
Black = TColor($000000);
Blanchedalmond = TColor($CDEBFF);
Blue = TColor($FF0000);
Blueviolet = TColor($E22B8A);
Brown = TColor($2A2AA5);
Burlywood = TColor($87B8DE);
Cadetblue = TColor($A09E5F);
Chartreuse = TColor($00FF7F);
Chocolate = TColor($1E69D2);
Coral = TColor($507FFF);
Cornflowerblue = TColor($ED9564);
Cornsilk = TColor($DCF8FF);
Crimson = TColor($3C14DC);
Cyan = TColor($FFFF00);
Darkblue = TColor($8B0000);
Darkcyan = TColor($8B8B00);
Darkgoldenrod = TColor($0B86B8);
Darkgray = TColor($A9A9A9);
Darkgreen = TColor($006400);
Darkgrey = TColor($A9A9A9);
Darkkhaki = TColor($6BB7BD);
Darkmagenta = TColor($8B008B);
Darkolivegreen = TColor($2F6B55);
Darkorange = TColor($008CFF);
Darkorchid = TColor($CC3299);
Darkred = TColor($00008B);
Darksalmon = TColor($7A96E9);
Darkseagreen = TColor($8FBC8F);
Darkslateblue = TColor($8B3D48);
Darkslategray = TColor($4F4F2F);
Darkslategrey = TColor($4F4F2F);
Darkturquoise = TColor($D1CE00);
Darkviolet = TColor($D30094);
Deeppink = TColor($9314FF);
Deepskyblue = TColor($FFBF00);
Dimgray = TColor($696969);
Dimgrey = TColor($696969);
Dodgerblue = TColor($FF901E);
Firebrick = TColor($2222B2);
Floralwhite = TColor($F0FAFF);
Forestgreen = TColor($228B22);
Fuchsia = TColor($FF00FF);
Gainsboro = TColor($DCDCDC);
Ghostwhite = TColor($FFF8F8);
Gold = TColor($00D7FF);
Goldenrod = TColor($20A5DA);
Gray = TColor($808080);
Green = TColor($008000);
Greenyellow = TColor($2FFFAD);
Grey = TColor($808080);
Honeydew = TColor($F0FFF0);
Hotpink = TColor($B469FF);
Indianred = TColor($5C5CCD);
Indigo = TColor($82004B);
Ivory = TColor($F0FFFF);
Khaki = TColor($8CE6F0);
Lavender = TColor($FAE6E6);
Lavenderblush = TColor($F5F0FF);
Lawngreen = TColor($00FC7C);
Lemonchiffon = TColor($CDFAFF);
Lightblue = TColor($E6D8AD);
Lightcoral = TColor($8080F0);
Lightcyan = TColor($FFFFE0);
Lightgoldenrodyellow = TColor($D2FAFA);
Lightgray = TColor($D3D3D3);
Lightgreen = TColor($90EE90);
Lightgrey = TColor($D3D3D3);
Lightpink = TColor($C1B6FF);
Lightsalmon = TColor($7AA0FF);
Lightseagreen = TColor($AAB220);
Lightskyblue = TColor($FACE87);
Lightslategray = TColor($998877);
Lightslategrey = TColor($998877);
Lightsteelblue = TColor($DEC4B0);
Lightyellow = TColor($E0FFFF);
LtGray = TColor($C0C0C0);
MedGray = TColor($A4A0A0);
DkGray = TColor($808080);
MoneyGreen = TColor($C0DCC0);
LegacySkyBlue = TColor($F0CAA6);
Cream = TColor($F0FBFF);
Lime = TColor($00FF00);
Limegreen = TColor($32CD32);
Linen = TColor($E6F0FA);
Magenta = TColor($FF00FF);
Maroon = TColor($000080);
Mediumaquamarine = TColor($AACD66);
Mediumblue = TColor($CD0000);
Mediumorchid = TColor($D355BA);
Mediumpurple = TColor($DB7093);
Mediumseagreen = TColor($71B33C);
Mediumslateblue = TColor($EE687B);
Mediumspringgreen = TColor($9AFA00);
Mediumturquoise = TColor($CCD148);
Mediumvioletred = TColor($8515C7);
Midnightblue = TColor($701919);
Mintcream = TColor($FAFFF5);
Mistyrose = TColor($E1E4FF);
Moccasin = TColor($B5E4FF);
Navajowhite = TColor($ADDEFF);
Navy = TColor($800000);
Oldlace = TColor($E6F5FD);
Olive = TColor($008080);
Olivedrab = TColor($238E6B);
Orange = TColor($00A5FF);
Orangered = TColor($0045FF);
Orchid = TColor($D670DA);
Palegoldenrod = TColor($AAE8EE);
Palegreen = TColor($98FB98);
Paleturquoise = TColor($EEEEAF);
Palevioletred = TColor($9370DB);
Papayawhip = TColor($D5EFFF);
Peachpuff = TColor($B9DAFF);
Peru = TColor($3F85CD);
Pink = TColor($CBC0FF);
Plum = TColor($DDA0DD);
Powderblue = TColor($E6E0B0);
Purple = TColor($800080);
Red = TColor($0000FF);
Rosybrown = TColor($8F8FBC);
Royalblue = TColor($E16941);
Saddlebrown = TColor($13458B);
Salmon = TColor($7280FA);
Sandybrown = TColor($60A4F4);
Seagreen = TColor($578B2E);
Seashell = TColor($EEF5FF);
Sienna = TColor($2D52A0);
Silver = TColor($C0C0C0);
Skyblue = TColor($EBCE87);
Slateblue = TColor($CD5A6A);
Slategray = TColor($908070);
Slategrey = TColor($908070);
Snow = TColor($FAFAFF);
Springgreen = TColor($7FFF00);
Steelblue = TColor($B48246);
Tan = TColor($8CB4D2);
Teal = TColor($808000);
Thistle = TColor($D8BFD8);
Tomato = TColor($4763FF);
Turquoise = TColor($D0E040);
Violet = TColor($EE82EE);
Wheat = TColor($B3DEF5);
White = TColor($FFFFFF);
Whitesmoke = TColor($F5F5F5);
Yellow = TColor($00FFFF);
Yellowgreen = TColor($32CD9A);
Null = TColor($00000000);
class var ColorToRGB: function (Color: TColor): Longint;
{ class operator Implicit(const C: TColor): TColorRec; inline;
class operator Implicit(const C: TColorRec): TColor; inline;
class operator Implicit(const C: TColorRec): Longint; inline;
class operator Explicit(const C: TColorRec): Longint; inline;}
case Cardinal of
0:
(Color: TColor);
2:
(HiWord, LoWord: Word);
3:
{$IFDEF BIGENDIAN}
(A, B, G, R: System.Byte);
{$ELSE}
(R, G, B, A: System.Byte);
{$ENDIF}
end;
TColors = TColorRec;
PAlphaColor = ^TAlphaColor;
TAlphaColor = type Cardinal;
{$IF defined(IOS) or defined(ANDROID) or defined(LINUX) }
(*$HPPEMIT END '#include <SystemUITypes.h> ' *)
{$ENDIF}
PAlphaColorRec = ^TAlphaColorRec;
TAlphaColorRec = record
const
Alpha = TAlphaColor($FF000000);
Aliceblue = Alpha or TAlphaColor($F0F8FF);
Antiquewhite = Alpha or TAlphaColor($FAEBD7);
Aqua = Alpha or TAlphaColor($00FFFF);
Aquamarine = Alpha or TAlphaColor($7FFFD4);
Azure = Alpha or TAlphaColor($F0FFFF);
Beige = Alpha or TAlphaColor($F5F5DC);
Bisque = Alpha or TAlphaColor($FFE4C4);
Black = Alpha or TAlphaColor($000000);
Blanchedalmond = Alpha or TAlphaColor($FFEBCD);
Blue = Alpha or TAlphaColor($0000FF);
Blueviolet = Alpha or TAlphaColor($8A2BE2);
Brown = Alpha or TAlphaColor($A52A2A);
Burlywood = Alpha or TAlphaColor($DEB887);
Cadetblue = Alpha or TAlphaColor($5F9EA0);
Chartreuse = Alpha or TAlphaColor($7FFF00);
Chocolate = Alpha or TAlphaColor($D2691E);
Coral = Alpha or TAlphaColor($FF7F50);
Cornflowerblue = Alpha or TAlphaColor($6495ED);
Cornsilk = Alpha or TAlphaColor($FFF8DC);
Crimson = Alpha or TAlphaColor($DC143C);
Cyan = Alpha or TAlphaColor($00FFFF);
Darkblue = Alpha or TAlphaColor($00008B);
Darkcyan = Alpha or TAlphaColor($008B8B);
Darkgoldenrod = Alpha or TAlphaColor($B8860B);
Darkgray = Alpha or TAlphaColor($A9A9A9);
Darkgreen = Alpha or TAlphaColor($006400);
Darkgrey = Alpha or TAlphaColor($A9A9A9);
Darkkhaki = Alpha or TAlphaColor($BDB76B);
Darkmagenta = Alpha or TAlphaColor($8B008B);
Darkolivegreen = Alpha or TAlphaColor($556B2F);
Darkorange = Alpha or TAlphaColor($FF8C00);
Darkorchid = Alpha or TAlphaColor($9932CC);
Darkred = Alpha or TAlphaColor($8B0000);
Darksalmon = Alpha or TAlphaColor($E9967A);
Darkseagreen = Alpha or TAlphaColor($8FBC8F);
Darkslateblue = Alpha or TAlphaColor($483D8B);
Darkslategray = Alpha or TAlphaColor($2F4F4F);
Darkslategrey = Alpha or TAlphaColor($2F4F4F);
Darkturquoise = Alpha or TAlphaColor($00CED1);
Darkviolet = Alpha or TAlphaColor($9400D3);
Deeppink = Alpha or TAlphaColor($FF1493);
Deepskyblue = Alpha or TAlphaColor($00BFFF);
Dimgray = Alpha or TAlphaColor($696969);
Dimgrey = Alpha or TAlphaColor($696969);
Dodgerblue = Alpha or TAlphaColor($1E90FF);
Firebrick = Alpha or TAlphaColor($B22222);
Floralwhite = Alpha or TAlphaColor($FFFAF0);
Forestgreen = Alpha or TAlphaColor($228B22);
Fuchsia = Alpha or TAlphaColor($FF00FF);
Gainsboro = Alpha or TAlphaColor($DCDCDC);
Ghostwhite = Alpha or TAlphaColor($F8F8FF);
Gold = Alpha or TAlphaColor($FFD700);
Goldenrod = Alpha or TAlphaColor($DAA520);
Gray = Alpha or TAlphaColor($808080);
Green = Alpha or TAlphaColor($008000);
Greenyellow = Alpha or TAlphaColor($ADFF2F);
Grey = Alpha or TAlphaColor($808080);
Honeydew = Alpha or TAlphaColor($F0FFF0);
Hotpink = Alpha or TAlphaColor($FF69B4);
Indianred = Alpha or TAlphaColor($CD5C5C);
Indigo = Alpha or TAlphaColor($4B0082);
Ivory = Alpha or TAlphaColor($FFFFF0);
Khaki = Alpha or TAlphaColor($F0E68C);
Lavender = Alpha or TAlphaColor($E6E6FA);
Lavenderblush = Alpha or TAlphaColor($FFF0F5);
Lawngreen = Alpha or TAlphaColor($7CFC00);
Lemonchiffon = Alpha or TAlphaColor($FFFACD);
Lightblue = Alpha or TAlphaColor($ADD8E6);
Lightcoral = Alpha or TAlphaColor($F08080);
Lightcyan = Alpha or TAlphaColor($E0FFFF);
Lightgoldenrodyellow = Alpha or TAlphaColor($FAFAD2);
Lightgray = Alpha or TAlphaColor($D3D3D3);
Lightgreen = Alpha or TAlphaColor($90EE90);
Lightgrey = Alpha or TAlphaColor($D3D3D3);
Lightpink = Alpha or TAlphaColor($FFB6C1);
Lightsalmon = Alpha or TAlphaColor($FFA07A);
Lightseagreen = Alpha or TAlphaColor($20B2AA);
Lightskyblue = Alpha or TAlphaColor($87CEFA);
Lightslategray = Alpha or TAlphaColor($778899);
Lightslategrey = Alpha or TAlphaColor($778899);
Lightsteelblue = Alpha or TAlphaColor($B0C4DE);
Lightyellow = Alpha or TAlphaColor($FFFFE0);
LtGray = Alpha or TAlphaColor($C0C0C0);
MedGray = Alpha or TAlphaColor($A0A0A0);
DkGray = Alpha or TAlphaColor($808080);
MoneyGreen = Alpha or TAlphaColor($C0DCC0);
LegacySkyBlue = Alpha or TAlphaColor($F0CAA6);
Cream = Alpha or TAlphaColor($F0FBFF);
Lime = Alpha or TAlphaColor($00FF00);
Limegreen = Alpha or TAlphaColor($32CD32);
Linen = Alpha or TAlphaColor($FAF0E6);
Magenta = Alpha or TAlphaColor($FF00FF);
Maroon = Alpha or TAlphaColor($800000);
Mediumaquamarine = Alpha or TAlphaColor($66CDAA);
Mediumblue = Alpha or TAlphaColor($0000CD);
Mediumorchid = Alpha or TAlphaColor($BA55D3);
Mediumpurple = Alpha or TAlphaColor($9370DB);
Mediumseagreen = Alpha or TAlphaColor($3CB371);
Mediumslateblue = Alpha or TAlphaColor($7B68EE);
Mediumspringgreen = Alpha or TAlphaColor($00FA9A);
Mediumturquoise = Alpha or TAlphaColor($48D1CC);
Mediumvioletred = Alpha or TAlphaColor($C71585);
Midnightblue = Alpha or TAlphaColor($191970);
Mintcream = Alpha or TAlphaColor($F5FFFA);
Mistyrose = Alpha or TAlphaColor($FFE4E1);
Moccasin = Alpha or TAlphaColor($FFE4B5);
Navajowhite = Alpha or TAlphaColor($FFDEAD);
Navy = Alpha or TAlphaColor($000080);
Oldlace = Alpha or TAlphaColor($FDF5E6);
Olive = Alpha or TAlphaColor($808000);
Olivedrab = Alpha or TAlphaColor($6B8E23);
Orange = Alpha or TAlphaColor($FFA500);
Orangered = Alpha or TAlphaColor($FF4500);
Orchid = Alpha or TAlphaColor($DA70D6);
Palegoldenrod = Alpha or TAlphaColor($EEE8AA);
Palegreen = Alpha or TAlphaColor($98FB98);
Paleturquoise = Alpha or TAlphaColor($AFEEEE);
Palevioletred = Alpha or TAlphaColor($DB7093);
Papayawhip = Alpha or TAlphaColor($FFEFD5);
Peachpuff = Alpha or TAlphaColor($FFDAB9);
Peru = Alpha or TAlphaColor($CD853F);
Pink = Alpha or TAlphaColor($FFC0CB);
Plum = Alpha or TAlphaColor($DDA0DD);
Powderblue = Alpha or TAlphaColor($B0E0E6);
Purple = Alpha or TAlphaColor($800080);
Red = Alpha or TAlphaColor($FF0000);
Rosybrown = Alpha or TAlphaColor($BC8F8F);
Royalblue = Alpha or TAlphaColor($4169E1);
Saddlebrown = Alpha or TAlphaColor($8B4513);
Salmon = Alpha or TAlphaColor($FA8072);
Sandybrown = Alpha or TAlphaColor($F4A460);
Seagreen = Alpha or TAlphaColor($2E8B57);
Seashell = Alpha or TAlphaColor($FFF5EE);
Sienna = Alpha or TAlphaColor($A0522D);
Silver = Alpha or TAlphaColor($C0C0C0);
Skyblue = Alpha or TAlphaColor($87CEEB);
Slateblue = Alpha or TAlphaColor($6A5ACD);
Slategray = Alpha or TAlphaColor($708090);
Slategrey = Alpha or TAlphaColor($708090);
Snow = Alpha or TAlphaColor($FFFAFA);
Springgreen = Alpha or TAlphaColor($00FF7F);
Steelblue = Alpha or TAlphaColor($4682B4);
Tan = Alpha or TAlphaColor($D2B48C);
Teal = Alpha or TAlphaColor($008080);
Thistle = Alpha or TAlphaColor($D8BFD8);
Tomato = Alpha or TAlphaColor($FF6347);
Turquoise = Alpha or TAlphaColor($40E0D0);
Violet = Alpha or TAlphaColor($EE82EE);
Wheat = Alpha or TAlphaColor($F5DEB3);
White = Alpha or TAlphaColor($FFFFFF);
Whitesmoke = Alpha or TAlphaColor($F5F5F5);
Yellow = Alpha or TAlphaColor($FFFF00);
Yellowgreen = Alpha or TAlphaColor($9ACD32);
Null = TAlphaColor($00000000);
constructor Create(const Color: TAlphaColor);
class var ColorToRGB: function (Color: TAlphaColor): Longint;
case Cardinal of
0:
(Color: TAlphaColor);
2:
(HiWord, LoWord: Word);
3:
{$IFDEF BIGENDIAN}
(A, R, G, B: System.Byte);
{$ELSE}
(B, G, R, A: System.Byte);
{$ENDIF}
end;
TAlphaColors = TAlphaColorRec;
PAlphaColorF = ^TAlphaColorF;
TAlphaColorF = record
public const
Epsilon = 1.5259E-05; // 1 / 65535, minimal value for TPixelFormat.RGBA16 components
private
class function SameComponent(const Value1, Value2: Single): Boolean; static; inline;
class function ClampComponent(const Value: Single): Single; static; inline;
public
R, G, B, A: Single;
class function Create(const R, G, B: Single; const A: Single = 1): TAlphaColorF; overload; static; inline;
class function Create(const Color: TAlphaColor): TAlphaColorF; overload; static; inline;
class operator Add(const Color1, Color2: TAlphaColorF): TAlphaColorF;
class operator Subtract(const Color1, Color2: TAlphaColorF): TAlphaColorF;
class operator Equal(const Color1, Color2: TAlphaColorF): Boolean;
class operator NotEqual(const Color1, Color2: TAlphaColorF): Boolean;
class operator Negative(const Color: TAlphaColorF): TAlphaColorF;
class operator Multiply(const Color1, Color2: TAlphaColorF): TAlphaColorF;
class operator Multiply(const Color: TAlphaColorF; const Factor: Single): TAlphaColorF;
class operator Multiply(const Factor: Single; const Color: TAlphaColorF): TAlphaColorF; inline;
class operator Divide(const Color: TAlphaColorF; const Factor: Single): TAlphaColorF; inline;
function PremultipliedAlpha: TAlphaColorF;
function UnpremultipliedAlpha: TAlphaColorF;
function Clamp: TAlphaColorF;
function ToAlphaColor: TAlphaColor;
end;
2、说明
TAlphaColor = type Cardinal; //整数. AA RR GG BB(透明度、红、绿、蓝);
3、赋值方法
Text1.TextColor::= #FF7E7E7E; Text1.TextColor:= claGray; // 需要引用 System.UIConsts Text1.TextColor:=TAlphaColors.Gray; // Text1.TextColor:=TAlphaColorRec.Gray; // Text1.TextColor := MakeColor(0, 0, 255); // 需要引用 System.UIConsts
其他用法示例，有时间再补充
创建时间：2020.07.17 更新时间： 2020.07.21