DeleteButtonToolBar

Синтаксис

Sub DeleteButtonToolBar(ByVal hwndToolBar As Integer, ByVal IndexButton As long)

Описание

Удаляет кнопку из тулбара

Параметры

hwndToolBar - ID тулбара

IndexButton - положение кнопки в тулбаре. Важно учитывать, что индексы тулбара начинаются с нуля

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
Dim As HWND hwnd
hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
#Ifdef __FB_WIN32__
Dim As Long iStyle = TBSTYLE_FLAT
#Else
Dim As Long iStyle
#EndIf
hwToolBar=CreateToolBar(,iStyle)
ToolBarStandardButton(hwToolBar,1,1)
ToolBarSeparator(hwToolBar)
ToolBarStandardButton(hwToolBar,2,4)
ToolBarStandardButton(hwToolBar,3,6)
DeleteButtonToolBar(hwToolBar,2)
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: Full featured Help generator