Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > color в цикле

Автор: Teleport 5.8.2008, 22:11

Подскажите как засунуть в цикл 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. В данном случае увеличивается зеленый цвет. Нужно еще и красный и синий.

Автор: THandle 5.8.2008, 22:28

Ну вот примерчик допустим:

Код



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;

Автор: Teleport 5.8.2008, 22:55

2 THandle - smile

Спасибо, тираннозавр! ))))))))) Справился, работает )))))