PanelGadget
Function PanelGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long=0, ByVal h As Long=0, ByVal SizeIcon As Long=16, ByVal style As Long=0) As HWND
Гаджет , представляющий собой совокупность вкладок. Обработка сообщений клика по вкладкам происходит в событиях Eventlbdown , Eventrbdown; номер гаджета в событии определяется с помощью EventNumberListView
gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)
x,y,w,h - расположение и размеры
SizeIcon - (только для windows) размер иконки (по умолчанию 16). В Linux размер зависит от размера изображения
style - (только для windows) стиль, может быть:
TCS_BUTTONS - Определяет, что таб. появляются как кнопки и нет границы вокруг дисплейной области.
TCS_FIXEDWIDTH - Определяет, что все таб. одной ширины. Этот стиль не может быть объединен стилем TCS_RIGHTJUSTIFY.
TCS_FOCUSNEVER - Указывает, что панели закладок никогда не получат фокус ввода.
TCS_FOCUSONBUTTONDOWN - Определяет, что таб. получают входной фокус при щелчке.
TCS_FORCEICONLEFT - Выравнивает иконы по левому краю таб.. Этот стиль может только использован стилем TCS_FIXEDWIDTH.
TCS_FORCELABELLEFT - Выравнивает надписи по левому краю таб, отображая надпись свправа от иконки вместо центровки.Этот стиль может только использован со стилем TCS_FIXEDWIDTH, и подразумевает стиль TCS_FORCEICONLEFT.
TCS_MULTILINE - Отображение всех вкладок на нескольких строчках, поэтому все вкладки видны сразу.
TCS_OWNERDRAWFIXED - Определяет, что вы сами должны заботиться об отображении TAB в вашей процедуре, но это дает возможнсть рисовать свои собственные TAB
TCS_RAGGEDRIGHT - Не растягивается каждая строка вкладок, чтобы заполнить всю ширину управления. Этот стиль по умолчанию.
TCS_RIGHTJUSTIFY - Увеличивает ширину каждого таб., если необходимо, чтобы каждая колонка таб. заполняла целую ширину управления таб.. Этот стиль окна проигнорирован если стиль TCS_MULTILINE также не определен.
TCS_SINGLELINE - Отображается только одна строка вкладок. Пользователь имеет прокрутку для просмотра вкладок, если это необходимо. Этот стиль по умолчанию.
TCS_TABS - Указывает, что вкладки отображаются как вкладки и что границы обращается вокруг дисплея. Этот стиль по умолчанию.
TCS_TOOLTIPS - Определяет, что таб. может использовать tooltip.
Так же можно позаимствовать некоторые стили из вкладки OpenWindow.
Windows , Linux
#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,dd,ff
Dim As hBitmap bmp1 , bmp2
bmp1 = Load_image("1.png")
bmp2 = Load_image("2.png")
hwnd=OpenWindow("Привет",10,10,500,500) : CenterWindow(hwnd)
PanelGadget(1,0,0,,,32)
dd=AddPanelGadgetItem(1,0,"1",bmp1,1)
WindowColor(dd,255): HideWindow(dd,0)
CalendarGadget(2,100,100,200,200)
ff=AddPanelGadgetItem(1,1,"2",bmp2,1)
WindowColor(ff,&hff0000)
EditorGadget(3,0,0,300,300,"Hello"):SetGadgetColor(3,&hFFFF,&hD71FE0,3)
ButtonGadget(4,320,50,100,30,"1 button")
ButtonGadget(5,320,100,100,30,"2 button")
Do
event=WaitEvent
Loop Until event=EventClose
Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease