IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Нарисовать треугольник
basics
сообщение 22.06.2006 21:44
Сообщение #1


Гость






Народ помогите нарисовать простой треугольник в Delphi dry.gif
 К началу страницы 
+ Ответить 
volvo
сообщение 22.06.2006 21:55
Сообщение #2


Гость






Проще некуда:
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
Сообщение #3


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
спасибо очень выручил
сообщение 11.02.2014 21:54
Сообщение #4


Гость






Цитата(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;


 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 14:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"