Поиск по форумам ни чего не дал или искал не по тем словам.
В примрах нашёл единственный древний пример, но там кода 5 кил, я то думал есть флаг.
Это что, дествительно так сложно?
Проще контейнерами сделать и кнопками, коду меньше будет.
PanelGadget с вертикальными табами
Страница: 1
Сообщений 1 страница 3 из 3
Поделиться104.05.2016 06:44:58
Поделиться204.05.2016 12:40:58
Код:
OpenWindow(0, 300, 300, 300, 300, "Tab test", #PB_Window_SystemMenu, 0) PanelGadget(0, 0, 0, 300, 300) SetWindowLong_(GadgetID(0), #GWL_EXSTYLE, #WS_EX_LEFT | #WS_EX_LTRREADING | #WS_EX_RIGHTSCROLLBAR) SetWindowLong_(GadgetID(0), #GWL_STYLE, #WS_OVERLAPPED | #WS_CHILD | #WS_VISIBLE | #WS_CLIPSIBLINGS | #WS_GROUP | #WS_TABSTOP | #TCS_TABS | #TCS_MULTILINE|#TCS_VERTICAL) For i = 1 To 4;9 AddGadgetItem(0, i - 1, "Onglet " + Str(i)) ButtonGadget(#PB_Any, 10, 10, 70, 24, Str(i)) Next CloseGadgetList() Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
Поделиться306.05.2016 06:37:46
Спасибо, работает, только текст остался горизонтально.
Страница: 1