Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Delphi _ Нарисовать треугольник

Автор: basics 22.06.2006 21:44

Народ помогите нарисовать простой треугольник в Delphi dry.gif

Автор: volvo 22.06.2006 21:55

Проще некуда:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.canvas.MoveTo(100, 100);
  form1.canvas.LineTo(200, 200);
  form1.canvas.LineTo(  0, 200);
  form1.canvas.LineTo(100, 100);
end;

Автор: мисс_граффити 23.06.2006 16:51

...или 

Form1.Canvas.Polygon([Point(10,10),Point(200,200),Point(60,90)]);

Автор: спасибо очень выручил 11.02.2014 21:54

Цитата(volvo @ 22.06.2006 21:55) *

Проще некуда:
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.canvas.MoveTo(100, 100);
  form1.canvas.LineTo(200, 200);
  form1.canvas.LineTo(  0, 200);
  form1.canvas.LineTo(100, 100);
end;