AddPanelGadgetItem

Синтаксис

Function AddPanelGadgetItem(ByVal gadget As Long, ByVal Item As Long, ByRef text As String, ByVal ImageID As HBITMAP=0, ByVal flag As Long=0) As HWND

Описание

Позволяет добавлять вкладки в PanelGadget.Функция возвращает хендл окна вкладки. Вы должны понимать, что у каждой вкладки существует свое окно, в которое можно по своему желанию устанавливать гаджеты,делать видимым или невидимым, устанавливать цвет или изображение фона и др. Первоначально после установки всех вкладок, окна этих вкладок невидимы до первого клика по ним. Если нужно отобразить какую то определенную вкладку программным путем, нужно вызвать определенную вкладку функцией PanelGadgetSetCursel и установить видимость окна вкладки функцией HideWindow с параметром 0. При кликах по вкладкам, окна отображаются автоматически. На Windows функция возвращает хендл окна вкладки. На Linux возвращает хендл виджета LayoutContainer

Параметры

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

Item - место вставки вкладки

text - имя вкладки(любая строка)

ImageID - хендл битмапа (может быть получен с помощью Load_image)

flag - может быть: 1 - определяет, что это окно будет родительским сразу после отработки этой функции. 0 - определяет, что это окно не будет родительским сразу после отработки этой функции. Вы в любое время сможете разместить на нем гаджеты, использую функцию UseGadgetList

Платформы

Windows , Linux

Пример

#include once "window9.bi"
Dim As Integer event
Dim As HWND hwnd
Dim pan(20) As HWND
hwnd=OpenWindow("PanelGadget",10,10,500,500) : CenterWindow(hwnd)
PanelGadget(1,0,0)
For a As Integer=0 To 20
  Var b=Str(a)
  pan(a)=AddPanelGadgetItem(1,a,b)
  WindowColor(pan(a), int(Rnd*100000))
Next
HideWindow(pan(0),0)
UseGadgetList(pan(0))
EditorGadget(3,0,0,300,300,"Hello")
UseGadgetList(pan(1))
ButtonGadget(4,320,50,100,30,"1 button")
UseGadgetList(pan(2))
ButtonGadget(5,320,100,100,30,"2 button")
Do
  event=WaitEvent
Loop Until event=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Produce electonic books easily