VPF::color в цикле - Форум программистов

Teleport

Дата 5.8.2008, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 3
Всего: 6

Подскажите как засунуть в цикл 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 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

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

Код



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;

Это сообщение отредактировал(а) THandle - 6.8.2008, 01:02

Teleport

Дата 5.8.2008, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 3
Всего: 6

2 THandle - smile

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

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »