ToolBarStandardButton
Язык программирования FreeBasic |
ToolBarStandardButton
ToolBarStandardButton( hwndToolBar, ButtonID, IndexImage, [String =""], [PositionButton=-1], [Style=TBSTATE_ENABLED ] [Style2=0] )
Создает стандартные кнопки для тулбара.
hwndToolBar - ID тулбара, возвращенный функцией CreateToolBar
ButtonID - идентификатор кнопки тулбара
IndexImage - индекс изображения в списке стандартных изображений (см. ниже)
String - любая строка для кнопки (по умолчанию нет)
PositionButton - Позиция кнопки (по умолчанию добавляются в конец)
Style - Возможные:
TBSTATE_ENABLED Кнопка находится в разблокированном состоянии. Если этот флаг не установлен, кнопка заблокирована и отображается серым цветом
TBSTATE_CHECKED Кнопка изображается в нажатом состоянии. Этот флаг используется для кнопок с фиксацией
TBSTATE_HIDDEN Скрытая кнопка, не отображается
TBSTATE_INDETERMINATE Кнопка отображается серым цветом
TBSTATE_PRESSED Кнопка изображается в нажатом состоянии
TBSTATE_WRAP Кнопки, расположенные после той, что имеет флаг TBSTATE_WRAP, отображаются на новой строке. Таким образом, вы можете создать многострочный Toolbar . Этот флаг можно указывать только тогда, когда установлен флаг TBSTATE_ENABLED
Style2 - стили :
TBSTYLE_BUTTON Стандартная кнопка
TBSTYLE_CHECK Кнопка с фиксацией. Эта кнопка "залипает", когда пользователь нажимает на нее. Для того чтобы вернуть кнопку в исходное состояние, необходимо нажать на нее еще раз
TBSTYLE_CHECKGROUP Кнопка с фиксацией, которая остается нажатой до тех пор, пока нажата другая кнопка из этой же группы
TBSTYLE_GROUP Стандартная кнопка, которая остается нажатой до тех пор, пока нажата другая кнопка из этой же группы
индекс изображения в списке стандартных изображений :
IDB_HIST_SMALL_COLOR или IDB_HIST_LARGE_COLOR
(0) HIST_BACK (назад)
(1) HIST_FORWARD (вперед)
(2) HIST_FAVORITES (Открыть папку "Избранное")
(3) HIST_ADDTOFAVORITES (Добавить в избранное)
(4) HIST_VIEWTREE (Просмотр каталога(дерева))
IDB_STD_SMALL_COLOR или IDB_STD_LARGE_COLOR
(0)STD_CUT Cut operation. (вырезать)
(1)STD_COPY Copy operation (копировать)
(2)STD_PASTE Paste operation.(Вставить)
(3)STD_UNDO Undo operation. (Отменить)
(4)STD_REDOW Redo operation. (Вернуть)
(5)STD_DELETE Delete operation. (Удалить)
(6)STD_FILENEW New file operation. (Новый файл)
(7)STD_FILEOPEN Open file operation. (Открыть файл)
(8)STD_FILESAVE Save file operation. (Сохранить файл)
(9)STD_PRINTPRE Print preview operation. (Версия для печати)
(10)STD_PROPERTIES Properties operation. (Свойства)
(11)STD_HELP Help operation. (Помощь)
(12)STD_FIND Find operation. (Поиск)
(13)STD_REPLACE Replace operation. (Замена)
(14)STD_PRINT Print operation. (Печать)
IDB_VIEW_LARGE_COLOR или IDB_VIEW_SMALL_COLOR
(0) VIEW_LARGEICONS Просмотр больших иконок
(1) VIEW_SMALLICONS Просмотр маленьких иконок
(2) VIEW_LIST Просмотр списка
(3) VIEW_DETAILS Информация о просмотре
(4) VIEW_SORTNAME Сортировка по имени
(5) VIEW_SORTSIZE Сортировка по размеру
(6) VIEW_SORTDATE Сортировка по дате
(7) VIEW_SORTTYPE Сортировка по типу
(8) VIEW_PARENTFOLDER Перейти в родительскую папку
(9) VIEW_NETCONNECT Подключение к сетевому диску
(10) VIEW_NETDISCONNECT Отключение от сетевого диска
(11) VIEW_NEWFOLDER Перейти в новую папку
Пример:
#Include "window9.bi"
Dim As Integer hwToolBar
var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(,TBSTYLE_FLAT)
ToolBarStandardButton(hwToolBar,1,1)
ToolBarSeparator(hwToolBar)
ToolBarStandardButton(hwToolBar,2,4)
ToolBarStandardButton(hwToolBar,3,6)
Do
Var ev=WaitEvent
If ev=EventClose Then
End
ElseIf ev=EventGadget Then
Select Case EventNumberToolBar
Case 1 To 3
MessBox("","Кнопка номер " & EventNumberToolBar)
End Select
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites