procedure TForm1.CheckBox1Change(Sender: TObject);
begin
if CheckBox1.Checked=True then Form1.FormStyle:=fsSystemStayOnTop;
if CheckBox1.Checked=False then Form1.FormStyle:=fsNormal;
end;
# Пример простого аддона создающего в качестве объекта крест из 5-и вершин меша по нажатию кнопки.
#Пример более наглядный по сравнению с линией из 2-х вершин
# Аддон расположен в панели "3D View" - закладка "Super Line"
# Название "Super Line 0.4.cross prototype"
# Контакты:
# www.suny-o.narod.ru
# https://vk.com/aorlov1979
# https://vk.com/blender_diary
# aorlv@yandex.ru
# suny-o@yandex.ru
# Лицензия GNU (GPLv3)
bl_info = {
"name": "Super Line Prototype",
"author": "Orlov Alexander",
"version": (0, 4, 4),
"blender": (2, 93, 0),
"location": "3D View > Super Line > Super Line 0.4.cross prototype",
"description": "Adds a new one mesh point",
&q
... Читать дальше »
# Пример простого аддона создающего в качестве объекта линию из 2-х вершин меша по нажатию кнопки.
# Аддон расположен в панели "3D View" - закладка "Super Line"
# Название "Super Line 0.4.2PL prototype"
# Контакты:
# www.suny-o.narod.ru
# https://vk.com/aorlov1979
# https://vk.com/blender_diary
# aorlv@yandex.ru
# suny-o@yandex.ru
# Лицензия GNU (GPLv3)
bl_info = {
"name": "Super Line Prototype",
"author": "Orlov Alexander",
"version": (0, 4, 2),
"blender": (2, 93, 0),
"location": "3D View > Super Line > Super Line 0.4.2PL prototype",
"description": "Adds a new one mesh point",
"warning": "",
"doc_url"
... Читать дальше »
