DeleteToolBar

Синтаксис

sub DeleteToolBar(ByVal hwndToolBar As Integer)

Описание

Удаляет тулбар

Параметры

hwndToolBar - хендл тулбара

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
Var hwnd=OpenWindow("",10,10,100,100)
CenterWindow(hwnd)
#Ifdef __FB_WIN32__
Var iStyle = TBSTYLE_FLAT
#Else
Var iStyle = 0
#EndIf
hwToolBar=CreateToolBar(,iStyle)
ToolBarStandardButton(hwToolBar,1,STD_DELETE)
Do
  Var ev=WaitEvent
  If ev=EventClose Then
     Exit Do
  ElseIf ev=EventGadget Then
     Select Case EventNumberToolBar
        Case 1
           DeleteToolBar(hwToolBar)
     End Select
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Easily create Help documents