本文整理自网络,侵删。
判断一个颜色是否是亮色
function IsLightColor(const AColor: TColor): Boolean;
var
r, g, b, yiq: integer;
begin
r := GetRValue(AColor);
g := GetGValue(AColor);
b := GetBValue(AColor);
yiq := ((r*299)+(g*587)+(b*114)) div 1000;
if (yiq >= 128) then
result := True
else
result := False;
end;
相关阅读 >>
Delphi 系统对话框(如浏览目录)被隐藏到主窗体后面造成程序无法操作的临时处理方式
Delphi winapi: loadstring - 从资源中载入字符串
Delphi leftstr 返回字符串左边指定个数的新字符(串)
更多相关阅读请进入《Delphi》频道 >>