ToolTipStatusBar

Синтаксис

Sub ToolTipStatusBar(ByVal gadget As Integer, ByVal NumberField As Integer, ByRef text As String)

Описание

Устанавливает подсказку для областей StatusBar. Для того, чтобы установить подсказку необходимо помнить:
1) должен быть установлен флаг SBT_TOOLTIPS у функции StatusBarGadget
2) подсказка появится только в том случае, если текст в области выходит за ее размеры или если вместо текста установлена иконка.

Параметры

gadget - номер гаджета

NumberField - номер разделяющей области

text - любой текст для подсказки

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HWND hwnd
hwnd=OpenWindow("Test",10,10,500,500)
StatusBarGadget(1,"StatusBarGadget", SBT_TOOLTIPS)
SetStatusBarField(1,0,40,"one field")
SetStatusBarField(1,1,80,"two field")
SetStatusBarField(1,2,-1,"three field")
ToolTipStatusBar(1,0,"one field")
ToolTipStatusBar(1,1,"two field")
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Write eBooks for the Kindle