VPF::RGradientRect - Форум программистов

Ak47black

Дата 28.9.2006, 18:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Может у кого есть готовое решение с градиетной радиальной заливкой.
Пробовал из drkb23, но вместо заливки у меня белая область.

Zero

Дата 28.9.2006, 22:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Ну вообщето общий принцип типа такого:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  for i:=1 to 255 do
    for j:=1 to 255 do
      image1.Canvas.Pixels[i,j] := rgb(i,j,0);
end;

А вообще с кооэффициентами можно поиграться как угодно, и подобрать чё угодно...

Snowy

Дата 29.9.2006, 09:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Zero, это прямая заливка.
Радиальная через синус делается.

Zero

Дата 29.9.2006, 17:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Snowy @ 29.9.2006, 10:00

)

Радиальная через синус делается.

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

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