создать кнопку, по щелчку которой будет рисоваться шестиугольник.

@vikkysa · Регистрация: 07.10.2013

Студворк — интернет-сервис помощи студентам

В общем пишем мы простенький графический редактор, сказали создать кнопку, по щелчку которой будет рисоваться шестиугольник. Я бьюсь в панике уже , не получается ничего=С
помогите, а
не будьте равнодушными

Добра вам

08.10.2013, 00:46

Что не получается?

@vikkysa · 08.10.2013, 00:50 **[ТС]**

@vikkysa · 08.10.2013, 00:51 **[ТС]**

вот что я уже навояла! остался шестиугольник=С

@vikkysa · 08.10.2013, 00:52 **[ТС]**

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

Что не получается?

я не пойму с помощью чего рисовать этот шестиугольник!ну какой комманды!

08.10.2013, 01:53

Команда канваса Polyline. По клику мышки (центр) рассчитываем координаты 7 точек будущей фигуры (1 и 7 точка совпадают), заполняя ими массив. Затем вызывается Polyline с указанием на заполненный массив.

@vikkysa · 08.10.2013, 10:04 **[ТС]**

а рассчитывать координаты по какой формуле??

08.10.2013, 10:43

Никаких особых формул, синус и косинус угла. В данном случай 60º.

@vikkysa · 08.10.2013, 22:31 **[ТС]**

Спасибочки)обязательно попробую)
добра тебе)

Добавлено через 11 часов 24 минуты
что то я рак и не получается=С

08.10.2013, 22:42

One moment.

Добавлено через 1 минуту
Рисует гексагон от точки клика мышкой с радиусом в эдите.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Buf : array[0..6] of TPoint;
  I, J : Integer;
begin
  J := StrToIntDef(Edit1.Text, 100);
  for I := 0 to 5 do
  begin
    Buf[I].X := Round(X + J * Cos(Pi + (2 * Pi * I / 6)));
    Buf[I].Y := Round(Y + J * Sin(Pi + (2 * Pi * I / 6)));
  end;
  Buf[6].X := Buf[0].X;
  Buf[6].Y := Buf[0].Y;
  Canvas.Pen.Color := RGB(Random(16) * 16, Random(16) * 16, Random(16) * 16);
  Canvas.Polyline(Buf);
end;

@vikkysa · 09.10.2013, 12:43 **[ТС]**

погляди, что то не так!

09.10.2013, 13:41

А чего смотреть, в архиве нет самого главного, pas-файлов. Зато зачем-то вложен исполняемый файл.

@vikkysa · 10.12.2013, 00:12 **[ТС]**

звиняйте=С
запускать из папки 111111, а то не могу найти пас файл, приходится кидать все)

@vikkysa · 10.12.2013, 00:13 **[ТС]**

просто не могу понять, куда я что то не так вставила=С

10.12.2013, 00:26

В папке "Проэкт" unit1.pas.

@vikkysa · 10.12.2013, 00:31 **[ТС]**

в общем мудрила мудрила, получилась билиберда. теперь оно рисует шестиугольник, но просто по щелчку мыши=С

10.12.2013, 00:44

Мой код это и предусматривал. Чтобы рисовало при движении мышки и нажатой левой кнопки, нужно в ImageMouseDown запомнить координаты клика. В ImageMouseMove рисовать гексагон от запомненной координаты до новых и и тут же стирать его и по ImageMouseUp рисовать окончательно.

@vikkysa · 10.12.2013, 01:05 **[ТС]**

что то я не понимаю вообще, т.е. в маус даун должен высчитываться радиус фигуры или как?

10.12.2013, 01:11

Только координаты клика.

@vikkysa · 10.12.2013, 01:15 **[ТС]**

мммммм....это что именно?

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122

	создать кнопку, по щелчку которой будет рисоваться шестиугольник. 07.10.2013, 23:45. Показов 6216. Ответов 61 Метки нет (Все метки) В общем пишем мы простенький графический редактор, сказали создать кнопку, по щелчку которой будет рисоваться шестиугольник. Я бьюсь в панике уже , не получается ничего=С помогите, а не будьте равнодушными Добра вам 0

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	08.10.2013, 00:50 [ТС]
	0

angstrom
	08.10.2013, 01:53
	Команда канваса Polyline. По клику мышки (центр) рассчитываем координаты 7 точек будущей фигуры (1 и 7 точка совпадают), заполняя ими массив. Затем вызывается Polyline с указанием на заполненный массив.

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	08.10.2013, 10:04 [ТС]
	а рассчитывать координаты по какой формуле?? 0

angstrom
	08.10.2013, 10:43
	Никаких особых формул, синус и косинус угла. В данном случай 60º.

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	08.10.2013, 22:31 [ТС]
	Спасибочки)обязательно попробую) добра тебе) Добавлено через 11 часов 24 минуты что то я рак и не получается=С 0

angstrom
	09.10.2013, 13:41
	А чего смотреть, в архиве нет самого главного, pas-файлов. Зато зачем-то вложен исполняемый файл.

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	10.12.2013, 00:13 [ТС]
	просто не могу понять, куда я что то не так вставила=С 0

angstrom
	10.12.2013, 00:26
	В папке "Проэкт" unit1.pas.

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	10.12.2013, 00:31 [ТС]
	в общем мудрила мудрила, получилась билиберда. теперь оно рисует шестиугольник, но просто по щелчку мыши=С 0

angstrom
	10.12.2013, 00:44
	Мой код это и предусматривал. Чтобы рисовало при движении мышки и нажатой левой кнопки, нужно в ImageMouseDown запомнить координаты клика. В ImageMouseMove рисовать гексагон от запомненной координаты до новых и и тут же стирать его и по ImageMouseUp рисовать окончательно.

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	10.12.2013, 01:05 [ТС]
	что то я не понимаю вообще, т.е. в маус даун должен высчитываться радиус фигуры или как? 0

angstrom
	10.12.2013, 01:11
	Только координаты клика.

@vikkysa 1 / 1 / 0 Регистрация: 07.10.2013 Сообщений: 122
	10.12.2013, 01:15 [ТС]
	мммммм....это что именно? 0