Color в цикле

[Roof]

Подскажите как засунуть в цикл for данные строки:

 with Image1.Canvas do begin

  Brush.Color:= ($000000);
  RectAngle(3,3,13,13);

  Brush.Color:= ($003300);
  RectAngle(15,3,25,13);

  Brush.Color:= ($006600);
  RectAngle(27,3,37,13);

  Brush.Color:= ($009900);
  RectAngle(39,3,49,13);

  Brush.Color:= ($00CC00);
  RectAngle(51,3,61,13);

  Brush.Color:= ($00FF00);
  RectAngle(63,3,73,13);
 end;

проблема в том, что не могу понять как увеличивать значение цвета в Brush.Color. В данном случае увеличивается зеленый цвет. Нужно еще и красный и синий.

[Greblin]

Изменяй в цикле значения RGB составляющих и юзай функцию

function RGBToColor(R,G,B:Byte): TColor;  
begin  
       Result:=B Shl 16 Or 
       G Shl 8 Or 
       R; 
end;

[mutabor]

Есть стандартная функция RGB, пример использования:
Brush.Color:= RGB(255,0,0); //красный цвет

[Roof]

справился немного по-другому.

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c : byte;
  i : integer;
begin
  a := ($00);
  b := ($33);
  c := ($00);
  for i := 0 to 5 do
    begin
     Inc(b, ($33));
     Canvas.Brush.Color:= RGB(a, b, c);
     Canvas.Rectangle(10, 10, 200, 200);
     Sleep(1000);
    end;
end;

[Roof]

2 mutabor - да, знаю. Было интересно, как именно работать, если цвет в 16-о виде, не переводя его в 10-ый. Спасиб за подсказку ))))

[mutabor]

Было интересно, как именно работать, если цвет в 16-о виде, не переводя его в 10-ый.

Перевод 24-х битного цвета из Hex в Integer (= TColor)

function Hex2Int(s: string; var r: integer): boolean;
begin
Result:=True;
if Length(s) = 6 then
  begin
  r:=StrToIntDef('$'+ s, -1);
  if r = -1 then Result:=False;
  end
else Result:=False;
end;

Если потом нужно разбить на составляющие есть функции GetRValue и т.д.

[Roof]

2 mutabor - спасибо, примерно понял ))))))

[mutabor]

Вспомнил откуда у меня эта функция, это юзер в эдит должен был вводить цвет в HEX формате, в таком виде - FFFFFF. Поэтому там лишнего наворочено, проверки.
А вообще StrToInt делает то, что надо.
color:=StrToInt($FFFFFF);

[Roof]

у меня все проще - нарисовал спектр (216 квадратиков разного цвета), там пользователь выбирает цвет и все. ))))))