Canvas

[Auron]

Доброго времени суток.Вопрос вот в чем. Мне нужно рисовать треугольник линиями по заданным мною координатам ранее в Edit.пробовал рисовать, но получается лишь УГ. Как лучше сделать это.Заранее благодарен за помощь...

[Selestis]

Код в студию

[Auron]

procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,b1,b2,c1,c2 : integer;
begin
a1 := 0;
a2 := 0;
b1 := 0;
b2 := 0;
c1 := 0;
c2 := 0;

a1 := StrToInt(Edit1.Text);
a2 := StrToInt(Edit2.Text);

b1 := StrToInt(Edit3.Text);
b2 := StrToInt(Edit4.Text);

c1 := StrToInt(Edit5.Text);
c2 := StrToInt(Edit6.Text);

Canvas.LineTo(a1,a2);
Canvas.LineTo(b1,b2);
Canvas.MoveTo(a2,b2);
Canvas.LineTo(c1,c2);

end;

[Selestis]

Canvas.MoveTo(a1,a2);
Canvas.LineTo(b1,b2);
Canvas.LineTo(c1,c2);
Canvas.LineTo(a1,a2);

Кстати, делать это присвоение не нужно:

a1 := 0;
a2 := 0;
b1 := 0;
b2 := 0;
c1 := 0;
c2 := 0;

И у нас тут на форуме есть тег code (кнопка "#" в отправке сообщения)

[Auron]

Сообщение от Selestis

И у нас тут на форуме есть тег code (кнопка "#" в отправке сообщения)

спасибо.Так в чем косяк?

[Selestis]

Код принято заключать в этот тег. ТО есть открывается тег - ваш код - закрывается тег. Как у меня в сообщении выделено рамкой. За это просто штрафы раздают ;-)
Мой код работает?

[Auron]

да спасибо....

и еще вопрос. Мне нужно в треугольнике брать точки и складывая их координаты закрашивать цветом RGB?как это лучше реализовать?

[Stilet]

Тоесть. Поясни.

[Unixsoid]

Сообщение от Auron

и еще вопрос. Мне нужно в треугольнике брать точки и складывая их координаты закрашивать цветом RGB?как это лучше реализовать?

Я так понимаю нужно просто закрасить треугольник? Если да, то проще через процедуру FloodFill
Например вот так:

procedure TForm1.FormClick(Sender: TObject);
begin
canvas.Brush.Color:=clred;
canvas.FloodFill(101,101,0,fsborder);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.rectangle(100,100,200,200);
end;

Подробней можно почитать здесь