ToolBarSeparator

Синтаксис

Function ToolBarSeparator(ByVal hwndToolBar As Integer, ByVal IndexButton As Integer=-1 , ByVal iFlagDrawSeparator as Long = 1) As Integer

Описание

Разделитель в тулбаре

Параметры

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

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

iFlagDrawSeparator - (только для Linux) флаг, определяющий рисование черточки разделителя:
    0 - не рисуется
    1 - рисуется

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
#Ifdef __FB_WIN32__
Var style = TBSTYLE_FLAT Or 256
#Else
Var style = 256
#EndIf
Var hwnd=OpenWindow("",10,10,185,100)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(,style)
ToolBarStandardButton(hwToolBar,1,STD_FILEOPEN)
ToolBarStandardButton(hwToolBar,2,STD_CUT)
ToolBarSeparator(hwToolBar)
ToolBarStandardButton(hwToolBar,3,STD_COPY)
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: Free PDF documentation generator