VPF::Градиентные заливки через WinAPI

regis

Дата 1.8.2006, 14:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Допустим, я хочу иметь возможность заполнять прямоугольники (эллипсы, области сложной формы) градиентом (хотя бы простейшим, с плавным линейным переходом цвета от одного к другому). Насколько я понял, стандартных средств в Win для этого нет? Если так, то как это лучше и эффективнее реализовать? Если будет примерчик кода, было б особенно хорошо..

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

В. В чем разница между hardware и software?О. В отличие от второго, по первому можно двинуть кулаком или пнуть ногой.

SergeCpp

Дата 1.8.2006, 14:11 (ссылка)

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

Загрузка ...

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

Репутация: 10
Всего: 124

GradientFill

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

http://zoozahita.ru — Бездомные животные Екатеринбурга ищут хозяев

jonie

Дата 11.8.2006, 23:07 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 7
Всего: 118

а вот как это на делфе когда-то кто-то (не я) реализовывал

Код


procedure TForm1.FormPaint(Sender: TObject);
var
 difr,difb,difg,sr,sg,sb:integer;
 x1,x2,h,y1,y2,w,l:integer;
 u:longint;
 c:real;
begin
 ec := clblue;  //Начальный цвет для заливки
 sc := clblack; //Конечный 
 n := 80;       //Количество блоков
 h := height;
 w := width;
 c := h/n;
 //Дальше идёт расчёт сдвигов
 sr := sc and $FF;
 difr := (ec and $FF) - sr;
 sg := (sc shr 8) and $FF;
 difg := ((ec shr 8) and $FF) - sg;
 sb := (sc shr 16) and $FF;
 difb := ((ec shr 16) and $FF) - sb;

 //Устанавливаю прозрачный стиль ручки
 canvas.pen.style := psclear;
 canvas.pen.width := 0;

 //Устанавливаю сплошной стиль заливки
 canvas.brush.style := bssolid;

 //Рисую поблочно градиент
 for l := 0 to n-1 do
  begin
   x1 := 0;
   x2 := w;
   y1 := round(l*c);
   y2 := y1+round(c)+2;
   u := rgb((l * difr) div (n-1)+sr,(l * difg) div (n-1)+sg,
                 (l * difb) div (n-1)+sb);
   canvas.brush.color := u;
   canvas.rectangle(x1,y1,x2,y2); 
  end;
end;

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

Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Системное программирование и WinAPI \| Следующая тема »