Delphi实现RGB色环的代码绘制

来源：互联网发布：起点写作软件编辑：程序博客网时间：2024/05/24 23:16

突发奇想要做一个和颜色管理有关系的小工具，其中有一个小功能就是拾色器，本打算仿照PHOTOSHOP的拾色器，可是Adobe用的是HSB方式，我不会，只好考虑改用Paint.net的色环拾色器。

色环对于颜色选取并不合适，越靠近圆心的地方，取得的颜色连续性越差，只能通过手工微调来调整到满意的颜色，而且色环中没有黑色，如果绘图算法不好且圆比较小，也可能没有纯白。所以这个色环只能适用于大致的颜色选取。

RGB色环

网上对于色环的纯代码绘制算法不是很多，我只找到了一个用易语言实现的，我把它翻译成了Delphi。下面是代码。

function TColorFrm.CreateColorCircle(const size: integer): TBitmap;var  i,j,x,y: Integer;  radius: integer;  perimeter,arc,degree,step: double;  R,G,B: byte;  color: TColor;begin  radius := round(size / 2);  RESULT := TBitmap.Create;  R:=255;  G:=0;  B:=0;  with RESULT do  begin    width := size;    height:= size;    pixelFormat := pf24bit;    Canvas.Brush.Color := RGB(R,G,B);    x := size + 1;    y := round(radius) + 1;    Canvas.FillRect(Rect(size,round(radius),x,y));    for j := 0 to size do      begin      perimeter := (size - j) * PI + 1;      arc := perimeter / 6;      step := ( 255 * 6 ) / perimeter ; //颜色渐变步长      for i := 0 to round(perimeter) - 1 do        begin          degree := 360 / perimeter * i;          x := round(cos(degree * PI / 180) * (size - j + 1) / 2) + radius;//数学公式，最后加上的是圆心点          y := round(sin(degree * PI / 180) * (size - j + 1) / 2) + radius;          if (degree > 0) and (degree <= 60) then          begin            R := 255;            G := 0;            B := round(step * i);          end;          if (degree > 60) and (degree <= 120) then          begin            if perimeter / 3 / 120 * (degree - 60) > 1.0 then              R := 255 - round(step * (i - arc))            else              R := 255 - round(step * ABS(i - arc));            G := 0;            B := 255;          end;          if (degree > 120) and (degree <= 180) then          begin            R := 0;            if perimeter / 3 / 120 * (degree - 120) > 1.0 then              G := round(step * (i - 2 * arc))            else              G := round(step * ABS(i - 2 * arc));            B := 255;          end;          if (degree > 180) and (degree <= 240) then          begin            R := 0;            G := 255;            if perimeter / 3 / 120 * (degree - 120) > 1.0 then              B := 255 - round(step * (i - perimeter / 2))            else              B := 255 - round(step * ABS(i - perimeter / 2));          end;          if (degree > 240) and (degree <= 300) then          begin            if perimeter / 3 / 120 * (degree - 240) > 1.0 then              R := round(step * (i - 4 * arc))            else              R := round(step * ABS(i - 4 * arc)) ;            G := 255;            B := 0;          end;          if (degree > 300) and (degree <= 360) then          begin            R := 255;            if perimeter / 3 / 120 * (degree - 300) > 1.0 then              G := 255 - round(step * (i - 5 * arc))            else              G := 255 - round(step * ABS(i - 5 * arc));            B := 0;          end;          color := RGB( ROUND(R + (255 - R)/size * j),ROUND(G + (255 - G) / size * j),ROUND(B + (255 - B) / size * j));          Canvas.Brush.Color := color;          //为了绘制出来的圆好看，分成四个部分进行绘制          if (degree >= 0) and (degree <= 45) then            Canvas.FillRect(Rect(x,y,x-2,y-1));          if (degree > 45) and (degree <= 135) then            Canvas.FillRect(Rect(x,y,x-1,y-2));          if (degree > 135) and (degree <= 225) then            Canvas.FillRect(Rect(x,y,x+2,y+1));          if (degree > 215) and (degree <= 315) then            Canvas.FillRect(Rect(x,y,x+1,y+2));          if (degree > 315) and (degree <= 360) then            Canvas.FillRect(Rect(x,y,x-2,y-1));        end;      end;  end;end;

使用Image控件作为画板，为了好看，可以把透明属性勾选，这样就不会有背景色了，size为Image控件的宽度（因为是画圆，所以请务必使Image控件长宽相等）。

0 0