Как сделать панель запуска в стиле RocketDock/OSX с помощью Delphi

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

  1. Формат изображения (не уверен, что здесь будут работать растровые изображения, и не уверен, как делать векторы)
  2. Существующий элемент управления (платный или бесплатный, если я могу использовать его в приложении с закрытым исходным кодом)
  3. Класс контейнера (достаточно ли TPanel?)

toolbar delphi
person Peter Turner    schedule 21.04.2009    source источник

Ответы (2)


arrow_upward
6
arrow_downward

Я еще не использовал его лично, но, может быть, попробовать TMS TAdvSmoothDock, а не изобретать велосипед?

http://www.tmssoftware.com/site/advsmoothdock.asp

person Jamo    schedule 21.04.2009
comment
Еще более удивительным является тот факт, что Embarcadero раздает бесплатные конфеты edn.embarcadero.com/article/39481 - person Peter Turner; 27.04.2009

arrow_upward
1
arrow_downward

На сайте delphi.about.com есть пример кода, делающего именно это.

Ссылка ниже показывает код, а также пример изображения дока во время работы.

http://delphi.about.com/od/fullcodeprojects/a/mac-doc-launch.htm

Я не знаю, совместим ли код с D2009 или нет, но даже если это не так, код не должен быть таким сложным. Я бы все равно подумал.

ХТХ,

Райан.

person Vivian Mills    schedule 23.04.2009
comment
ссылка, которую вы предоставили, больше не работает! у вас есть такой пример ^^ - person user3374161; 12.12.2018
comment
@user3374161 https://web.archive.org/web/20130512010746/http://delphi.about.com/od/fullcodeprojects/a/mac-doc-launch.htm вы можете загрузить исходный код с этой страницы. - person Vivian Mills; 12.12.2018