SetToolBarToolTipColor

Синтаксис

sub SetToolBarToolTipColor(ByVal HwndToolBar As Integer, ByVal colorBk As Integer=0, ByVal colorText As Integer=0, ByVal flag As Integer=0)

Описание

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

Параметры

HwndToolBar - ID тулбара

colorBk - значение цвета фона

colorText - значение цвета текста

flag - Флаг, определяющий установку цвета, может быть:
    1 - цвет фона
    2 - цвет текста
    3 - цвети фона и цвет текста

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer hwToolBar
Dim As String a="open",b="Delete",c="Copy"
#Define TBSTYLE_TOOLTIP 256
var hwnd=OpenWindow("",10,10,406,400)
CenterWindow(hwnd)
hwToolBar=CreateToolBar(,TBSTYLE_FLAT Or TBSTYLE_TOOLTIP)
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)
SetToolBarToolTipColor(hwToolBar,0,255,3)
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: iPhone web sites made easy