SetStatusBarField

Синтаксис

sub SetStatusBarField(ByVal gadget As Long ,ByVal NField As long, ByVal Width As Long, ByRef Text As String)

Описание

Устанавливает, точнее разделяет StatusBarGadget на области. В дальнейшем этой же функцией можно менять размеры и текст.
Примечание для windows: Если нужна загрузка иконок в StatusBar, то можно прочесть дополнительную информацию на сайте

Параметры

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

NField - номер разделяющей области. Первая должна начинаться с 0, а остальные должны следовать по порядку 1,2,3 и т.д.

Width - ширина области, начиная от левого края клиентской области окна. Если будет -1, то до правой части клиентской области окна.

Text - любой текст для области

Платформы

Windows , Linux

Пример

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

Результат

Created with the Personal Edition of HelpNDoc: Free EPub producer