调整颜色亮度代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】调整颜色亮度

作者:jellyvice / 发布于2013/12/3/ 388

function AdjustColorBrightness(Color: Graphics.TColor;
 Delta: Integer): Graphics.TColor;
 // ---------------------------------------------------------------------------
 function ApplyDelta(ColorPart: Integer): Byte;
  {Adjusts a colour component part by given delta, truncating at limits}
 begin
  ColorPart := ColorPart + Delta;
  if ColorPart > 255 then
   Result := 255
  else if ColorPart < 0 then
   Result := 0
  else
   Result := Byte(ColorPart);
 end;
 // ---------------------------------------------------------------------------
var
 R, G, B: Integer;    // red, green and blue colour components
 RGB: Windows.TColorRef; // RGB equivalent of Color
begin
 RGB := Graphics.ColorToRGB(Color); // ensures system Colours are converted
 R := ApplyDelta(Windows.GetRValue(RGB));
 G := ApplyDelta(Windows.GetGValue(RGB));
 B := ApplyDelta(Windows.GetBValue(RGB));
 Result := Windows.RGB(R, G, B);
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　颜色亮度　

同语言下

可能有用的

jellyvice贡献的其它代码(28)