SetToolBarButtonSize

Синтаксис

sub SetToolBarButtonSize(byval HwndToolBar As Integer, ByVal w As Integer, ByVal h As Integer)

Описание

Устанавливает общий размер кнопок тулбара

Параметры

HwndToolBar - ID тулбара

w - новая ширина

h - новая высота

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(,TBSTYLE_FLAT)
ToolBarStandardButton(hwToolBar,1,STD_FILEOPEN," ")
ToolBarSeparator(hwToolBar)
ToolBarStandardButton(hwToolBar,2,STD_DELETE,"Delete")
ToolBarStandardButton(hwToolBar,3,STD_COPY,"Copy")
SetToolBarButtonSize(hwToolBar,100,100)
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

Результат

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad