SetButtonToolBarState

Синтаксис

Sub SetButtonToolBarState(ByVal hwndToolBar As Integer, ByVal IdButton As Integer, ByVal flag As Long, ByVal State As Long)

Описание

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

Параметры

hwndToolBar - ID тулбара

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

flag - флаг, определяющий установку состояния, может быть:
    1 - Check (state=1 кнопка нажата , state=0 отжата)
    2 - Disable (state=1 кнопка неактивна , state=0 активна)
    3 - Hide (state=1 кнопка спрятана , state=0 не спрятана)

State - новое состояние кнопки, может быть 0 или 1

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var style = TBSTYLE_FLAT
#Else
Var style = 0
#EndIf
Var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
Var hwToolBar=CreateToolBar(,style)
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)
Do
  Var ev=WaitEvent
  If ev=EventClose Then
     End
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily