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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TToolbar + иконки + текст, одна кнопка - рисунок, другая - текст 
:(
    Опции темы
artemiy
Дата 5.6.2007, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Как сделать так, чтобы на тулбаре на одной из кнопок был только рисунок, а на другой - только текст?

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

З.Ы. Еще хотлось бы узнать как сделать так, чтобы ширина кнопок была разной на одном тулбаре (сейчас если я изменяю ширину одной кнопки, то изменяется и ширина всех остальных...)
PM MAIL   Вверх
0LineGate
Дата 5.6.2007, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



юзай TImage, TLabel вместо конкретных кнопок, а вместо TToolBar используй TPanel с Align равным alTop
PM MAIL WWW Skype   Вверх
former
Дата 6.6.2007, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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



Цитата(0LineGate @  5.6.2007,  23:36 Найти цитируемый пост)
юзай TImage, TLabel вместо конкретных кнопок, а вместо TToolBar используй TPanel с Align равным alTop 


Зачем городушки городить?

artemiy, Используй ActionManager и ActionToolBar. Закрепляешь ImageList1 за ActionManager, создаёшь Action-ы, для требуемых Action-ов задаёшь иконки, переносишь их на ActionToolBar. Далее в Object Inspector-е в свойствах ActionManager-а выбираешь в списке ActionBars свой ActionToolBar у которого открываешь список Items. После этого в Object Inspector-е появятся свойства TActionClients в пункте CaptionOptions которого выбироешь coNone.

Проверено. Работает.



--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
artemiy
Дата 11.6.2007, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Спасибо, идея хорошая. Но проблема в том, что я использую TControlBar, один из TToolBar-ов должен обладать вышеописанными свойствами. Причем кнопка с текстом имеет стиль tbsDropDown, т.е. это не совсем стандартная кнопка, которую можно реализовать с помощью обычных.

Теперь остается вопрос как все это реализовать...

В принципе можно отказаться от картинки на кнопке, но все равно остается вопрос о том, как сделать так, чтобы ширина каждой кнопки на тулбаре была индивидуальной. В хелпе есть следующее:  "In addition, all tool buttons on the toolbar automatically maintain the same height and width.". Так вот есть ли возможность этого избежать?
PM MAIL   Вверх
0LineGate
Дата 13.6.2007, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(former @ 6.6.2007,  16:33)
Цитата(0LineGate @  5.6.2007,  23:36 Найти цитируемый пост)
юзай TImage, TLabel вместо конкретных кнопок, а вместо TToolBar используй TPanel с Align равным alTop 


Зачем городушки городить?

artemiy, Используй ActionManager и ActionToolBar. Закрепляешь ImageList1 за ActionManager, создаёшь Action-ы, для требуемых Action-ов задаёшь иконки, переносишь их на ActionToolBar. Далее в Object Inspector-е в свойствах ActionManager-а выбираешь в списке ActionBars свой ActionToolBar у которого открываешь список Items. После этого в Object Inspector-е появятся свойства TActionClients в пункте CaptionOptions которого выбироешь coNone.

Проверено. Работает.

и кто из нас городушки городит? smile smile smile

2 artemiy что даёт стиль tbsDropDown?
PM MAIL WWW Skype   Вверх
artemiy
Дата 14.6.2007, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Цитата(0LineGate @  13.6.2007,  20:25 Найти цитируемый пост)
что даёт стиль tbsDropDown? 

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

PM MAIL   Вверх
0LineGate
Дата 14.6.2007, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



в чём проблема? в событии OnClick кнопки у которой долна выпадать менюшка пиши
Код

PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);

если надо чтобы по на;атии на кнопку менюшка выпадала с позиции курсора

Код

PopupMenu1.Popup(Form1.Left+Button1.Left+4,Form1.Top+Button1.Top+Button1.Height+29);

а такой код чтобы менюшка выпадала прямо над кнопкой...
 smile 
PM MAIL WWW Skype   Вверх
artemiy
Дата 14.6.2007, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Это не совсем то, что я хотел. Кнопка со стилем tbsDropDown разделена на 2 части: при нажатии на одну - выпадает список, принажатии на другую - происходит событие onclick. В общем это реализовать не сложно, но зачем же изобретать велосипед?
Хотя мне кажется что именно этим мне и придется заняться :(
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.0603 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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