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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2014, 14:07   #1
spirit-ua
Форумчанин
 
Аватар для spirit-ua
 
Регистрация: 04.06.2009
Сообщений: 351
Восклицание Ищу компонент (линия)

Всем Привет!

На форме есть два TImage, рисунки "тягаются" мышкой по форме, нужно "соеденить" их линией. Я понимаю что можно нарисовать на канве формы но это не совсем подходит т.к.
1. Рисунки будут менять координаты и каждый раз перерисовывать линии не очень хочется
2. Если рисунки будут лежать на TPanel то, насколько я понимаю, нарисовать на канве панели проблематично

Подскажите, есть ли компонент который можно бросить на форму (панель) и указать координаты точки А и Б?

P.S. Нужно для построения карты ЛВС
Мне разрешено открывать только одну страницу - about :blank. Сперва было скучно, но потом я втянулся. Теперь у меня там живет 2 виртуальных друга, и я слышу голоса из розетки!
spirit-ua вне форума Ответить с цитированием
Старый 28.05.2014, 14:20   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

можно, наверное, ручками рисовать линии..

посмотрите, вот ТУТ в теме XE5 приводил код соединения элементов на форме линией.
может быть, поможет...


А, собственно, может быть, Вы что-то такое ищите:

TDrawObject Components

http://angusj.com/delphi/

скриншоты http://angusj.com/delphi/drawobject.html

прямая ссылка - http://angusj.com/delphi/drawobjects.zip
Serge_Bliznykov вне форума Ответить с цитированием
Старый 28.05.2014, 14:23   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

Мини-CAD?

Просто...

Берешь за основу TPanel, явно добавляешь список и свойство Layers(битмапы).
Даешь возможность в run-time перемещать Layers внутри их владельца,
Переделаваешь его в сетку(как в IDE дизайнео форм, на пример),
изменяешь прорисовку компонента:
1. Фон
2. Сетка
3. слои(картинки) по координатам сетки
рисуешь от меньшего к большему
4. Связи слоев между собой. По умному(исп. сетку координат+алг. Дейэкстра, или по глупому - линии из A в B)
Человек_Борща вне форума Ответить с цитированием
Старый 28.05.2014, 14:30   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Вроде бы в FireMonkey есть линии...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.05.2014, 14:37   #5
spirit-ua
Форумчанин
 
Аватар для spirit-ua
 
Регистрация: 04.06.2009
Сообщений: 351
По умолчанию

Забыл сказать, нужно под D7

1. TDrawObject Components позволяеть кинуть просто одну линию на форму и изменять вершины?
2. Что такое "Мини-CAD"? гугл показал как стороннее приложение
3. FireMonkey под D7 есть?
Мне разрешено открывать только одну страницу - about :blank. Сперва было скучно, но потом я втянулся. Теперь у меня там живет 2 виртуальных друга, и я слышу голоса из розетки!
spirit-ua вне форума Ответить с цитированием
Старый 28.05.2014, 14:43   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
FireMonkey под D7 есть?
Неа )
Вывод: Рисуй на канве
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.05.2014, 14:44   #7
spirit-ua
Форумчанин
 
Аватар для spirit-ua
 
Регистрация: 04.06.2009
Сообщений: 351
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Неа )
Вывод: Рисуй на канве
а если русенки на панели или скролбоксе?
Мне разрешено открывать только одну страницу - about :blank. Сперва было скучно, но потом я втянулся. Теперь у меня там живет 2 виртуальных друга, и я слышу голоса из розетки!
spirit-ua вне форума Ответить с цитированием
Старый 28.05.2014, 14:49   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну не в курсе... Я как-то все отрисовывал на ПаинтБоксе. Ну всмысле не компонентами а писал тучу кода.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.05.2014, 14:51   #9
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

Цитата:
Что такое "Мини-CAD"?
Тот самый дизайнер форм в Delphi. Только проще.

Есть ещё коспоненты Graphics32. там есть компонент TImage32 который поддержиывает те самые слои. Осталось коорд. сетку забить и линии рисовать. Врде бы тоже с d7 не дружит.
Человек_Борща вне форума Ответить с цитированием
Старый 28.05.2014, 18:06   #10
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Я бы запилил юнит, который бы обсчитывал все эти вещи для TImage что-то типа заточенный под себя графический компонент и выводил его куда надо. Далась Вам эта TPanel? Выведите сверху TImage да и всего делов-то. События просто передавайте панели и все зажужжит.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ищу компонент, типа листбокса! Vratar10 Компоненты Delphi 6 12.03.2014 16:48
Ищу нужный компонент mutb Помощь студентам 1 23.06.2012 03:49
Ищу подходящий компонент Johnson Общие вопросы Delphi 1 28.08.2009 09:33
Ищу компонент newd Компоненты Delphi 1 29.01.2008 08:12
ищу компонент типа TListBox Cherni Voron Компоненты Delphi 13 30.05.2007 23:00