delphi - HSBをRGBに変換する方法

Question

を使用して変更するDelphi XE2 プロジェクトが 1 つあります。だから私は次のコードを書いています：Label01 Font ColorTimer04

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Timer04.Enabled := true;
end;
..
..
..
..
..
procedure TMainForm.Timer04Timer(Sender: TObject);
var
  StartColor, RedColor, GreenColor, BlueColor: integer;
begin
  StartColor := ColorToRGB(Label01.Font.Color);
  RedColor := GetRValue(StartColor);
  GreenColor := GetGValue(StartColor);
  BlueColor := GetBValue(StartColor);
  if RedColor <= 251 then Inc(RedColor, 1) else RedColor := 1;
  if GreenColor <= 252 then Inc(GreenColor, 2) else GreenColor := 2;
  if BlueColor <= 253 then Inc(BlueColor, 3) else BlueColor := 3;
  Label01.Font.Color := RGB(RedColor, GreenColor, BlueColor);
end;

このコードは完全に機能します。Label01 Font Color異なる色の間で変化します。

今、私はそれを実装しようとしていLabel02 Colorます (たとえば、Green) が修正され、brightnees の値が0から100に増加します。値が100になると0に減少し、ループに連続します。

私の場合HUE=135、SATURATION=85とを選択しBRIGHTNESS=50ました。の値が50から100BRIGHTNESSに増加し、その後100から0に減少して続行されます。しかし問題は、. グールしました。しかし、私は. 一部のみご利用いただけます。彼らのレビューを読んだところ、それぞれにいくつかのバグがあることがわかりました。FunctionHSBRGBDelphi XE2FunctionHSBToRGBDelphi Unit