Круг цвета

[DomiNick]

Попробую сделать завтра... Щас чтот слишком спать хочется...

А пока почитайте эту > статью <

[JTG]

Да ну нафиг

 With JvFullColorTrackBar1, Form1 do
   Caption := IntToHex(ColorSpace.ConvertToColor(FullColor), 6);

Чем не корел?

[Alex Cones]

Я не ищу легких путей
Если бы уже не вставил ту картинку, то начал бы устанавливать Jv.

[JTG]

У тебя на той картинке не всё цветовое пространство, оно влазит вот в такую http://www.libpng.org/pub/png/img_pn...n-pschmidt.png

[Arigato]

Сообщение от Levsha100

Даю наводку самый светлый цвет(белый)-0,0,0 , черный-255,255,255

Вообще-то наоборот...

Набросал для примера:

procedure TForm1.FormPaint(Sender: TObject);
const
  Colors: array[1..7] of TColor = ($0000FF, $00FFFF, $00FF00, $FFFF00, $FF0000, $FF00FF, $0000FF);
var
  Alpha, CX, CY, Radius, X, Y, ColorIndex, Cnt: Integer;
  A: Single;
  R1, G1, B1, R2, G2, B2: Byte;
  R, G, B, KR, KG, KB: Single;
  Color: TColor;
begin
  CX := ClientWidth div 2;
  CY := ClientHeight div 2;
  ColorIndex := 2;
  R1 := GetRValue (Colors[1]);
  G1 := GetGValue (Colors[1]);
  B1 := GetBValue (Colors[1]);
  R2 := GetRValue (Colors[2]);
  G2 := GetGValue (Colors[2]);
  B2 := GetBValue (Colors[2]);
  Color := Colors[1];
  Cnt := 1;
  for Alpha := 0 to 4600 do
  begin
    A := (Alpha * 3600 / 4600) / 1800 * Pi;
    R := R1;
    G := G1;
    B := B1;
    KR := R / 255;
    KG := G / 255;
    KB := B / 255;
    for Radius := 255 downto 0 do
    begin
      X := Round (CX + Radius * Cos (A));
      Y := Round (CY + Radius * Sin (A));
      Color := RGB (Round (R), Round (G), Round (B));
      Canvas.Pixels[X,Y] := Color;
      R := R - KR;
      G := G - KG;
      B := B - KB;
    end; {if}
    Inc (Cnt);
    if Cnt > 3 then
    begin
      Cnt := 1;
      if R1 < R2 then Inc (R1);
      if R1 > R2 then Dec (R1);
      if G1 < G2 then Inc (G1);
      if G1 > G2 then Dec (G1);
      if B1 < B2 then Inc (B1);
      if B1 > B2 then Dec (B1);
      if (R1 = R2) and (G1 = G2) and (B1 = B2) then
      begin
        Inc (ColorIndex);
        R2 := GetRValue (Colors[ColorIndex]);
        G2 := GetGValue (Colors[ColorIndex]);
        B2 := GetBValue (Colors[ColorIndex]);
      end; {if}
    end; {if}
  end; {for}
end;

Вот, что получается:



Белого тут нет, не совсем ясно, как он должен получаться на границе круга.

[Levsha100]

Вообще-то наоборот...

Извиняюсь, соврал. Исправлюсь!

[Altera]

Может вот так?