Delphi中RGB色环绘制代码
使用Delphi绘制RGB色环，代码如下：
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, R: Integer;
begin
for X := 0 to ClientWidth do
begin
R := (X * 255) div ClientWidth;
for Y := 0 to ClientHeight do
Canvas.Pixels[X, Y] := ColorToRGB(R, 255 - R, R);
end;
end;
评论区