GetButtonToolBarState

Синтаксис

Function GetButtonToolBarState(ByVal hwndToolBar As Integer, ByVal IdButton As Integer, ByVal flag As long) As integer

Описание

Получает состояние кнопки(нажатие, активность, видимость)

Параметры

hwndToolBar - ID тулбара

IdButton - Идентификатор кнопки

flag - флаг, может быть:

1 - Check (если 1 кнопка нажата,если 0 отжата)
2 - Disable (если 1 кнопка неактивна,если 0 активна)
3 - Hide (если 1 кнопка спрятана,если 0 видима)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
#Ifdef __FB_WIN32__
Var iStyle = TBSTYLE_FLAT
#Else
Var iStyle = 0
#EndIf
hwToolBar=CreateToolBar(,iStyle)
ToolBarStandardButton(hwToolBar,1,1,,,,TBSTYLE_CHECK)
ToolBarSeparator(hwToolBar)
ToolBarStandardButton(hwToolBar,2,4)
ToolBarStandardButton(hwToolBar,3,6)
SetButtonToolBarState(hwToolBar,1,1,1)
SetButtonToolBarState(hwToolBar,2,2,1)
? "Button 1 Check= " & GetButtonToolBarState(hwToolBar,1,1)
? "Button 2 Disable= " & GetButtonToolBarState(hwToolBar,2,2)
Do
  Var ev=WaitEvent
  If ev=EventClose Then
     End
  ElseIf ev=EventGadget Then
     Select Case EventNumberToolBar
        Case 1 To 3
           MessBox("","Button Number  " & EventNumberToolBar)
     End Select
  EndIf
Loop

Результат

Button 1 Check= 1
Button 2 Disable= 1

Created with the Personal Edition of HelpNDoc: Free Kindle producer