Что нового

Окно с скроллом в вкладке

xomico

Новичок
Сообщения
1
Репутация
0
Всем привет, не получается создать окно внутри вкладки, нагуглить примеров не вышло. Помогите пожалуйста)
Нужно в вкладке 1 под группой создать окно с вертикальным скроллингом. Но застопорился просто на банальном создание окна во вкладке, не выходит.
Код:
$GUI = GUICreate("Test", 300, 300, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
GUISetCursor(2)
GUISetBkColor(0x000000)
$Tabs = GUICtrlCreateTab(0, 0, 483, 313, $TCS_FIXEDWIDTH)
GUICtrlSetFont(-1, 12, 800, 2, "Arial Black")
;====================================================Начало раздела "Miner"
$tab1 = GUICtrlCreateTabItem("tab1")
$group = GUICtrlCreateGroup("Group", 8, 40, 290, 57, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$tab2 = GUICtrlCreateTabItem("tab2")

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Сообщение автоматически объединено:

Сам же и отвечаю на свой вопрос...
Код:
#include <GuiTab.au3>
#include <WindowsConstants.au3>

Global $xTab = 10, $yTab = 10

$hMain = GUICreate('Test', 420, 400)
$cTab = GUICtrlCreateTab($xTab, $yTab, 400, 300)
$hTab = GUICtrlGetHandle($cTab)
$cTabItem1 = GUICtrlCreateTabItem('Item_1')
$cTabItem2 = GUICtrlCreateTabItem('Item_2')

$aTabDisp = _GUICtrlTab_GetDisplayRect($hTab)
$hChild = GUICreate('Child', $aTabDisp[2]-$aTabDisp[0], $aTabDisp[3]-$aTabDisp[1], $aTabDisp[0]+$xTab, $aTabDisp[1]+$yTab, $WS_POPUP, $WS_EX_MDICHILD, $hMain)
GUICtrlCreateLabel('Das ist ein Child-GUI', 100, 50)
GUICtrlCreateLabel('Aber genausogut lassen sich Controls direkt auf dem TAB platzieren. :P', 25, 100)


GUISetState(@SW_SHOW, $hMain)

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $cTab
If GUICtrlRead($cTab) = 1 Then
GUISetState(@SW_SHOWNA, $hChild)
Else
GUISetState(@SW_HIDE, $hChild)
EndIf
EndSwitch
WEnd
 
Последнее редактирование:
Верх