Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.12.2010, 13:36
71Кристиночка 71Кристиночка вне форума
Прохожий
 
Регистрация: 22.12.2010
Сообщения: 7
Репутация: 10
По умолчанию нарисовать цилиндрическую цистерну из листового материала методом сварки

нарисовать цилиндрическую цистерну из листового материала методом сварки... и чтобы менялись расчеты размеров цистерны r и h.. помогите народ
Ответить с цитированием
  #2  
Старый 23.12.2010, 13:59
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Очень извеняюсь, что лезу без советов, но я как-то не очень понял задачу. Поясни пожалуйста?
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #3  
Старый 23.12.2010, 14:25
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Если цистерна это цилиндрическое тело и вы хотите получить аналог чертежа т.е. 3 проекции тогда ничего сложного не вижу, все решается примитивами TShape, а вот если у цистерны есть горловина и еще какие-то детали, то примитивами не отделаешься, придется рисовать линиями, окружностями и т.д. И конечно задача усложнится если нужно еще и 3-D изображение по проекциям.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #4  
Старый 23.12.2010, 14:39
71Кристиночка 71Кристиночка вне форума
Прохожий
 
Регистрация: 22.12.2010
Сообщения: 7
Репутация: 10
По умолчанию

нарисовать цилиндрическую цистерну,чтобы в edit1 и в edit2 можно было задавать ширину и высоту
Ответить с цитированием
  #5  
Старый 23.12.2010, 14:42
71Кристиночка 71Кристиночка вне форума
Прохожий
 
Регистрация: 22.12.2010
Сообщения: 7
Репутация: 10
По умолчанию

если можно, то выложите код плиз
Ответить с цитированием
  #6  
Старый 23.12.2010, 15:14
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

С TShape не работал, хотя с ним правда было бы проще. Вот через Image:
Код:
image1.Canvas.Ellipse(x1,y1,x1+2*r,y1+2*r);
image1.Canvas.Rectangle(x2,y2,x2+2*r,y2+h);
X1; Y1 - координаты верхнего левого угла вида "сверху"
X2; Y2 - координаты вида "сбоку"
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:12.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025