Вопрос Как закрасить треугольник в какой-нибудь цвет в Delphi?

[не скажу]

paintbox1.canvas.Moveto(x+20,y+90);
paintbox1.canvas.LineTo(x+100,y+10);
paintbox1.canvas.moveto(x+100,y+10);
paintbox1.canvas.lineto(x+180,y+90);
paintbox1.canvas.MoveTo(x+20,y+90);
paintbox1.canvas.lineto(x+180,y+90);
Вот, собственно, мой треугольник.

 

[йцуйцуй]

brush.color:=clfuchsia; polygon([point(x+20,y+90),point(x+100,y+10),point(x+180,y+90)]);

 

[Litput456]

ну собсна, алгоритм примерно такой: 1. упоpядочить веpшины треугольника A<B<C по значению Y кооpдинаты 2. если A.y = C.y то тpеугольник пустой и его можно не pисовать 3. вычисляем дельта_x для стоpон AB, AC, BC тpеугольника спpоециpованного на экpан - т. е. на один шаг Y кооpдинаты на экpане пpиходится Дельта_x 4. постpочно отpисовываем пpоекцию треугольника на экpане //otvet.imgsmail.ru/download/u_808113e893c28af873318c8dbe7fc20e_800.gif