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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Мини движок рабочего стола для собствен приложения 
:(
    Опции темы
fedorov2012
  Дата 27.8.2012, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Есть готовое приложение с классическим интерфейсом (меню, тулбары и прочее).
Встала задача (из-за пользователей) основные функции программы оформить в
виде рабочего стола с ярлыками т.е. не нужно лазить по менюшке - просто
щелкаешь и открывается объект приложения которое связано с данным ярлыком.
Пользователь может настраивать данный рабочий стол.
Скажите, пожалуйста, нет ли готового решения, написанное на Delphi?
Мне, кажется, это не редкая задача и наверняка уже есть готовое решение
PM MAIL   Вверх
Alexeis
Дата 27.8.2012, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

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



TListView с настроенным ViewStyle = vsIcon . Создает представление похожее на рабочий стол.


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

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

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


Новичок



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

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



Да, я подумал тоже о TListView.

Добавлено через 1 минуту и 50 секунд
Alexeis, а можно ли как-то каждый элемент TListView (иконка в нашем случае) связать с TAction'ом из TActionList'a?
PM MAIL   Вверх
Alexeis
Дата 27.8.2012, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

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



Думаю нельзя из дизайнера. Придется делать что-то типа такого
Код

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ListView1.GetItemAt(X, Y)
end;

и дальше делать привязку своими структурами данных.


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

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

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


Новичок



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

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



Цитата(Alexeis @ 27.8.2012,  11:21)
Думаю нельзя из дизайнера. Придется делать что-то типа такого
Код

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ListView1.GetItemAt(X, Y)
end;

и дальше делать привязку своими структурами данных.

А разве элементы TListView не являются объектами?, если являются , то у них скорее всего есть что-то типа AddObject(s: string; aObj: TObject)
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.1859 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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