ToolBarToolTip

Синтаксис

sub ToolBarToolTip(ByVal Hwnd As hwnd, ByVal buttonID As Integer, ByRef toolTipS As String)

Описание

Устанавливает ToolTip (подсказку) для тулбара

Параметры

hwnd - хендл родительского окна toolbar

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

toolTipS - Переменная типа string, в которой содержится строка. Данная переменная должна быть всегда доступна пока требуется подсказка, поскольку tooltip периодически черпает информацию из нее. Другими словами, неправильно использовать переменную, которая создана во временной области видимости, лучше использовать глобальную область видимости.

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
Dim As String a="open",b="Delete",c="Copy"
#Ifdef __FB_WIN32__
Var style = TBSTYLE_FLAT Or 256
#Else
Var style = 256
#EndIf
Var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(,style)
ToolBarStandardButton(hwToolBar,1,STD_FILEOPEN,a): ToolBarToolTip(hwnd,1,a)
ToolBarSeparator(hwToolBar)
ToolBarStandardButton(hwToolBar,2,STD_DELETE,b): ToolBarToolTip(hwnd,2,b)
ToolBarStandardButton(hwToolBar,3,STD_COPY,c) : ToolBarToolTip(hwnd,3,c)
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: Create iPhone web-based documentation