Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> графы на Delphi, ориентированный граф 
:(
    Опции темы
UMmi
Дата 6.11.2006, 20:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 5.11.2006
Где: МО

Репутация: -1
Всего: 0



Необходимо решить задачу рисования ориентированного нагруженного графа в Delphi.

Просьба откликнуться, у кого есть компоненты рисования ориентированных графов для Delphi

Прошу откликнуться тех, кто решал такую задачу.
PM   Вверх
Alexeis
Дата 6.11.2006, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Я писал. Вот тут описание и исходники 
http://alexei-s1.narod.ru/1.htm


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
UMmi
Дата 7.11.2006, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 5.11.2006
Где: МО

Репутация: -1
Всего: 0



Цитата(alexeis1 @ 6.11.2006,  22:50)
Я писал. Вот тут описание и исходники 
http://alexei-s1.narod.ru/1.htm

Спасибо, alexeis1! Ты сам писал эту компоненту?


Вот теперь думаю, как из соединительной линии сделать стрелочку? Вычислять координаты конца и подрисовывать... это сложно. может есть какие-то другие обходные пути?

Это сообщение отредактировал(а) UMmi - 7.11.2006, 17:20
PM   Вверх
Alexeis
Дата 7.11.2006, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Цитата(UMmi @  7.11.2006,  17:20 Найти цитируемый пост)
Ты сам писал эту компоненту?

Ага столько мучений и большинство по напрасну, можно было куда проще сделать!
Цитата(UMmi @  7.11.2006,  17:20 Найти цитируемый пост)
это сложно. может есть какие-то другие обходные пути?

 smile сложно было всю эту хрень отладить, с большим количеством связей, которые нужно правильно удалять и добавлять не нарушая связности всей структуры. А дорисовать это не сложно, тем более что связь это объект и рисуется он сам.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
UMmi
Дата 7.11.2006, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 5.11.2006
Где: МО

Репутация: -1
Всего: 0



Цитата(alexeis1 @ 7.11.2006,  18:36)
 smile сложно было всю эту хрень отладить, с большим количеством связей, которые нужно правильно удалять и добавлять не нарушая связности всей структуры. А дорисовать это не сложно, тем более что связь это объект и рисуется он сам.

Но мне кажется продукт того стоит! smile 
А как сделать так, чтобы конкретная соединительная линия преобразовалась в в стрелку?

Да, а можно ли узнать координаты какой-нибудь из вершин(например V1 и др.)?

Это сообщение отредактировал(а) UMmi - 7.11.2006, 18:56
PM   Вверх
Alexeis
Дата 8.11.2006, 02:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Цитата(UMmi @  7.11.2006,  18:55 Найти цитируемый пост)
Да, а можно ли узнать координаты какой-нибудь из вершин(например V1 и др.)?

Конечно, это же поля объекта. Они активно используются во многих операциях. Но поскольку для написания программ с использованием этого компонента они не требуются, я их попросту не описал.

Цитата(UMmi @  7.11.2006,  18:55 Найти цитируемый пост)
А как сделать так, чтобы конкретная соединительная линия преобразовалась в в стрелку?

Лучше всего создать наследника от THeel и перекрыть в нем процедуры отрисовки соединительных линий. Правда прийдется делать тоже и для XOR отрисовки, которая используется для ускоренного рисования без обновления нижней поверхности.

Добавлено @ 02:24 
Они так и называются
Координаты вершин
Код

   Property X : Integer Read FX Write SetX;
    Property Y : Integer Read FY Write SetY;


Для ребер надо перекрыть
Код

    Procedure  Draw(color : TColor);
    Procedure  Clear;

    Procedure  DrawXOR(Color : TColor);


Хотя сначала их надо переопределить виртуальными, иначе ничего не выйдет и будут вызываться старые функции вместо новых.

Это сообщение отредактировал(а) alexeis1 - 8.11.2006, 02:15


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
IvanoffAndrey
Дата 9.11.2006, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 157
Регистрация: 8.7.2006
Где: СГАУ

Репутация: 1
Всего: 2



Цитата

можно было куда проще сделать!

Как проще-то?
Я щас ту-же чтуку пишу на Визуал Си - очень задолбался.  smile 
--------------------
Размерность пространства есть число Pi и в каждой точке вселенной оно стремиться к этому числу.
PM MAIL   Вверх
Alexeis
Дата 9.11.2006, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



IvanoffAndrey, У меня и в правду очень все закручено. Можно было явно по проще. Зато прога тестировалась на P166 и работала без тормозов и мерцаний. Так получается всегда когда код пишется стихийно, без четкого плана  smile .


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
comtat
Дата 10.11.2006, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 3
Всего: 71



У меня есть решение для рисования 
Давай мыло пришлю


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Alexeis
Дата 10.11.2006, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



comtat, лучше прикрепить, может еще кому-нибудь понадобится. Если он больше 150кб, но меньше 1Мб то можно мне прислать, я его тогда сам прикреплю smile 

-----------------------------------------------------------------------------------------

От comtat прикрепление

Это сообщение отредактировал(а) alexeis1 - 10.11.2006, 23:05

Присоединённый файл ( Кол-во скачиваний: 119 )
Присоединённый файл  GrafSources.zip 117,10 Kb


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
djzzz
Дата 24.5.2010, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 24.5.2010

Репутация: нет
Всего: нет



СПАСИБО ОГОРОМНОЕ!!!!!!!!!!!!
PM MAIL   Вверх
CROTishka
Дата 27.5.2010, 10:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 30.7.2009

Репутация: 1
Всего: 2



я в своё время воспользовался статьёй
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1344
после солидной обработки напильником весьма неплохо получилось.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0842 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.