StatusBarGadget

Синтаксис

Function StatusBarGadget(ByVal gadget As long, ByRef singleText As String="", ByVal style As integer=0, ByVal style2 As integer=0) As HWND

Описание

Гаджет-строка состояния. В Linux поддерживается только с подсистемой GTK2.

Установить цвет в гаджет можно функцией SetGadgetColor (только фон и только для Windows)
Получить цвет из гаджета можно функцией GetGadgetColor (только фон и только для Windows)
Установить шрифт в гаджет можно функцией SetGadgetFont
Если гаджет не разделен на колонки, то можно установить\изменить текст с помощью SetGadgetText
 
Для данного гаджета в windows дополнительную информацию можно взять здесь

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

singleText - начальный текст. Используется для гаджета, если в нем будет всего одна неразделенная колонка

style - стиль , может быть:
    SBT_TOOLTIPS - стиль, позволяюший использовать ToolTip (подсказки) при помощи функции ToolTipStatusBar

style2 - (только для windows) расширенные стили Createwindow(API) или OpenWindow. Не знаю зачем, но на всякий случай поставил в параметры

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HWND hwnd
hwnd=OpenWindow("Test",10,10,500,500) : CenterWindow(hwnd)
StatusBarGadget(1,"StatusBarGadget")
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

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