Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2012, 19:08   #11
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Код:
Procedure TForm1.Button2Click(Sender: TObject);
Var i, n : Integer;
    p : Array Of TPoint;
Begin
ListBox1.Clear; ListBox2.Clear;
n := listbox1.Count;
SetLength(p, n - 1);
For i := 0 To n - 2 Do
  Begin
    ShowMessage('(' + ListBox1.Items.Strings[i + 1] + ', ' + ListBox2.Items.Strings[i + 1] + ')');
    p[i].X := StrToInt(ListBox1.Items.Strings[i + 1]);
    p[i].Y := StrToInt(ListBox2.Items.Strings[i + 1]);
  End;
Form1.Canvas.Polygon(p);
Form1.Canvas.Ellipse(StrToInt(ListBox1.Items.Strings[0]) - 5, 
                     StrToInt(ListBox2.Items.Strings[0]) - 5, 
                     StrToInt(ListBox1.Items.Strings[0]) + 5,
                     StrToInt(ListBox2.Items.Strings[0]) + 5);
                     
// End
End;
Отрисовка полигона и точки выглядит так. Массив всёже нужен динамический.
Осталось только дописать вертение вокруг осЫ + очистку формы.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вращение камеры вокруг точки jetei Gamedev - cоздание игр: Unity, OpenGL, DirectX 2 11.02.2012 12:48
Вращение камеры вокруг своей оси [OpenGL] russian-stalker Gamedev - cоздание игр: Unity, OpenGL, DirectX 4 14.04.2011 21:03
Вращение вокруг произвольно оси mens-evgenij Помощь студентам 3 21.03.2009 15:42
Mногоугольник, вращающийся вокруг заданной точки Sashka Помощь студентам 13 30.01.2008 17:15
Вращение луны вокруг Земли [LOL] Помощь студентам 4 19.06.2007 21:14