Delphi заливка треугольника графика

[Toni Milano]

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

Подскажите.идеи есть?спасибо)

[Stilet]

var i,j:integer;    col:TColor;
begin
 with Canvas do begin
  MoveTo(Width div 2,Height div 2);
  LineTo((Width div 2)-100,(Height div 2)-100);
  LineTo((Width div 2)+100,(Height div 2)-100);
  LineTo(Width div 2,Height div 2);
  //*************************************************
  for i:=(Height div 2)-1 downto (Height div 2)-100 do begin
    j:=Width div 2;
    while Pixels[j,i]<>pen.Color do begin col:=RGB(100,100,j);    Pixels[j,i]:=col;     inc(j);    end;
    j:=Width div 2;
    while Pixels[j,i]<>pen.Color do begin col:=RGB(100,100,j);    Pixels[j,i]:=col;     dec(j);    end;
  end;
 end;
end;

Этот код я поместил в OnPaint формы.

[Toni Milano]

можешь пояснить код?

[ImmortalAlexSan]

поясняю по строчкам:
1. Раздел описаний. i,j от -2147483648 до 2147483647, col - http://www.delphisources.ru/pages/faq/base/tcolor.html
2. операторная скобка начала
3. оператор with используется для простоты обращения к свойствам объектов, если бы его не было, везде пришлось бы писать form1.Canvas.<тут что надо>
4. Moveto - устанавливает указатель канвы в нужный пиксель.
5. Lineto - прочерчивает линию
6...
7. до этого пункта рисуем треугольник
8. Комент от стилета)
9. Цикл FOR используем тогда когда знаем количество повторов цикла downto - наубывание
10. j используем для доступа к разным пикселям
11. While (ПОКА) пиксель с координатами j и i не равен цвету карандаша (pen.Color), переменной col присваиваем цвет (RGB - красный, зеленый, синий) и пикселю с теме же координатами, присваиваем эту переменную inc - икримент (увеличение j на один, чтобы дойти до другого пикселя с координатой уже j+1)
12...
13... аналогично 11 но противоположно.
И весь этот код в операторе WITH, т.е. очень удобно.

[Toni Milano]

а в дельфах это в image писать?

[Stilet]

Нет. Зачем? Почитай что я написал выше

[Toni Milano]

извини.не могу найти объект onPaint.я знаю что в additional есть image а где onpaint?

[Mad_Cat]

onPaint-это не объект)
onPaint-это событие)

[Toni Milano]

я просто незнаю где прописывать это...я думал в image.что на форме создавать?

[Stilet]

что на форме создавать?

Открой в Инспекторе Обьектов раздел Events. Найди в списке OnPaint кликни по нему дважды - откроется шаблон кода. Туда и пиши.