purebasic.info

PureBasic forum
Текущее время: Вт июл 23, 2019 6:04 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: ToolBar (Панель инструментов)
СообщениеДобавлено: Ср июл 03, 2019 8:51 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 849
Благодарил (а): 87 раз.
Поблагодарили: 24 раз.
Пункты репутации: 5
Цитата:
Панели инструментов (ToolBar) предоставляют возможность быстрого доступа к некоторым функциям приложения с помощью маленьких значков. Часто это альтернатива для элементов меню. PureBasic позволяет создавать любое количество панелей инструментов и управлять ими как если бы это было меню.

в справке написано можно создать несколько, а как?
так неполучается
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  If OpenWindow(0, 0, 0, 250, 125, "Панель инструментов", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateToolBar(0, WindowID(0))
      ToolBarStandardButton(0, #PB_ToolBarIcon_New)
      ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
      ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
    EndIf
    If CreateToolBar(1, WindowID(0))
      ToolBarStandardButton(3, #PB_ToolBarIcon_Replace)
      ToolBarStandardButton(4, #PB_ToolBarIcon_Undo)
      ToolBarStandardButton(5, #PB_ToolBarIcon_Redo)
    EndIf
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Menu
        Debug "Идентификатор Панели инструментов: "+Str(EventMenu())
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: ToolBar (Панель инструментов)
СообщениеДобавлено: Ср июл 03, 2019 10:38 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6525
Благодарил (а): 28 раз.
Поблагодарили: 220 раз.
Пункты репутации: 57
Создается оба, подвинуть второй в нужную позицию
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
If OpenWindow(0, 0, 0, 250, 125, "Панель инструментов", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateToolBar(0, WindowID(0))
      ToolBarStandardButton(0, #PB_ToolBarIcon_New)
      ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
      ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
    EndIf
    If CreateToolBar(1, WindowID(0))
      ToolBarStandardButton(3, #PB_ToolBarIcon_Replace)
      ToolBarStandardButton(4, #PB_ToolBarIcon_Undo)
      ToolBarStandardButton(5, #PB_ToolBarIcon_Redo)
    EndIf
     SetWindowLongPtr_(ToolBarID(1),#GWL_STYLE,#WS_CHILD | #WS_VISIBLE | #CCS_NORESIZE | #CCS_NODIVIDER | #TBSTYLE_WRAPABLE)
     MoveWindow_(ToolBarID(1),0,30,400,45,1)
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Menu
        Debug "Идентификатор Панели инструментов: "+Str(EventMenu())
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf


_________________
read-only ¯\_(ツ)_/¯


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: ToolBar (Панель инструментов)
СообщениеДобавлено: Чт июл 04, 2019 8:02 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 849
Благодарил (а): 87 раз.
Поблагодарили: 24 раз.
Пункты репутации: 5
странно это, сказать что можно и не сказать как это сделать
не имея ширины нельзя по горизонтали поставить

недоделал эту библиотеку Федя

а ToolBar который можно мышкой перетаскивать, это ToolBar или Dialog ?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: ToolBar (Панель инструментов)
СообщениеДобавлено: Пт июл 05, 2019 6:51 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 849
Благодарил (а): 87 раз.
Поблагодарили: 24 раз.
Пункты репутации: 5
при получении ширины всегда получаю ширину окна, окно изменил, размер изменился
можно попробовать по иконкам считать, если с текстом, то по тексту считать, вроде можно вывернуться

вчера работал с прогой у которой иконки 32х32, в настройках переключается на 24х24
как 32х32 сделать?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: ToolBar (Панель инструментов)
СообщениеДобавлено: Пт июл 05, 2019 7:47 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6525
Благодарил (а): 28 раз.
Поблагодарили: 220 раз.
Пункты репутации: 57
Попробуй вот такую штуку, я пользуюсь, мне нравится


Вложения:
IconBarGadget_1.2.zip [25.54 KiB]
Скачиваний: 35

_________________
read-only ¯\_(ツ)_/¯
Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB