Помощь - Поиск - Пользователи - Календарь
Полная версия: Нарисовать треугольник
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > 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;


Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.