ToolBarImageButton

Синтаксис

Function ToolBarImageButton(ByVal hwndToolBar As Integer, ByVal buttonID As Integer, ByVal ImageID As Integer, ByRef text As String="", ByVal PositionButton As Integer=-1, ByVal State As Integer=TBSTATE_ENABLED, ByVal Style As Integer=0, ByVal SizeIcon As Integer=16) As Integer

Описание

Создает кнопки с любыми битмапами(изображениями). На Linux , при установке стиля TBSTATE_CHECKED , создаваемые кнопки с этим стилем, посылают событие нажатия при создании.

Параметры

hwndToolBar - ID тулбара (может быть получен с помощью CreateToolBar)

buttonID - идентификатор кнопки тулбара (не может быть 0)

ImageID - ID битмапа (может быть получен с помощью Load_Image, Extract_Icon, или API функций: LoadBitmap,LoadImage и другим способом)

text - любой текст(по умолчанию нет)

PositionButton - позиция вставки (по умолчанию вставляется в конец)

State - состояние кнопки, может быть:

Для Windows и Linux:
TBSTATE_CHECKED - кнопка изображается в нажатом состоянии. Этот флаг используется для кнопок с фиксацией
TBSTATE_HIDDEN - скрытая кнопка, не отображается
TBSTATE_INDETERMINATE - кнопка отображается серым цветом

Только для Windows:
TBSTATE_ENABLED - кнопка находится в разблокированном состоянии. Если этот флаг не установлен, кнопка заблокирована и отображается серым цветом
TBSTATE_PRESSED - кнопка изображается в нажатом состоянии
TBSTATE_WRAP - кнопки, расположенные после той, что имеет флаг TBSTATE_WRAP, отображаются на новой строке. Таким образом, вы можете создать многострочный Toolbar . Этот флаг можно указывать только тогда, когда установлен флаг TBSTATE_ENABLED

Style - стиль , может быть:

Для Windows и Linux:
TBSTYLE_BUTTON - стандартная кнопка
TBSTYLE_CHECK - кнопка с фиксацией. Эта кнопка "залипает", когда пользователь нажимает на нее. Для того чтобы вернуть кнопку в исходное состояние, необходимо нажать на нее еще раз

Только для Windows:
TBSTYLE_CHECKGROUP - кнопка с фиксацией, которая остается нажатой до тех пор, пока нажата другая кнопка из этой же группы
TBSTYLE_GROUP - стандартная кнопка, которая остается нажатой до тех пор, пока нажата другая кнопка из этой же группы

SizeIcon - (только для windows) Размер иконки на кнопке, влияет на общий размер кнопки тулбара.

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
Dim As String sArray(10)
var hwnd=OpenWindow("",10,10,150,100)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(, 256)
For m As Integer=0 To 2
  ToolBarImageButton(hwToolBar,m+1,Cast(Integer,resize_image(Load_image(m+1 & ".png"),16,16)))
  sArray(m) = "button " & Str(m+1)
  ToolBarToolTip(hwnd,m+1,sArray(m))
Next
Do
  Var ev=WaitEvent
  If ev=EventClose Then
     End
  ElseIf ev=EventGadget Then
     Select Case EventNumberToolBar
        Case 1 To 12
           MessBox("","Button Number   " & EventNumberToolBar)
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation