загвоздка... программа построения треугольника

[рин]

не получается вывести на форму в PaintBox треугольник, задав вершины
с клавы(edit.text) через Polygon.
Выводит,зараза, одну линию.

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
r,a:integer;
p: array[1..3] of TPoint; // координаты точек
begin
p[1].X := strtoint(ex1.text); // 10
p[1].Y := strtoint(ey1.text);// 10
p[2].X := strtoint(ex2.text);// 60
p[2].Y := strtoint(ey2.text);// 60
p[3].X := strtoint(ex3.text);// 110
p[3].Y := strtoint(ey3.text);// 110
PaintBox1.Canvas.Brush.Color := clGreen;
PaintBox1.Canvas.Polygon(p);
end;
если не трудно, подскажите как решить задачу

[puporev]

У тебя точки на одной линии.

[hoza_syl]

Попробуй вставить после инициализации масива точек такой код:

PaintBox1.Canvas.Brush.Style:=BsSolid;

Это изменит стиль заливки. (Возможно он есть прозрачный)

[рин]

неа, точки не на одной линии.
если ввести х2=260,у2=260
он не будет рисовать , а лишь продлит линию.

[puporev]

Так 260 и 260 на той же линии. Ты на бумажке нарисуй свои координаты, если в уме считать не умеешь.

[hoza_syl]

Проблема ясна. Как можно вывести треугольник, если все точки лежат на одной линии. Тебе нужно не три едита, а шесть.

Короче: вот те код, разбирайся. У меня работает

procedure TForm1.Button1Click(Sender: TObject);
var
r,a:integer;
p: array[0..3] of TPoint; // координаты точек
begin
p[0].X := 10; //или inttostr(eidt1.text)
p[0].Y := 10;  //или inttostr(eidt2.text)
p[1].X := 10;  //или inttostr(eidt3.text)
p[1].Y := 60; //или inttostr(eidt4.text)
p[2].X := 110;  //или inttostr(eidt5.text)
p[2].Y := 60;  //или inttostr(eidt6.text)
PaintBox1.Canvas.Brush.Color := clGreen;
paintbox1.Canvas.Polygon(p);
end;

[рин]

sorry и в правду ,спс

[рин]

уже нашел ошибку, но все равно спасибо