Method CreateTabDialog

source/script_gui.cpp:10359–10398

ResultType GuiType::CreateTabDialog(GuiControlType &aTabControl, GuiControlOptionsType &aOpt)
// Creates a dialog to host controls for a tab control.
{
	HWND tab_dialog;
	struct MYDLG : DLGTEMPLATE
	{
		WORD wNoMenu;
		WORD wStdClass;
		WORD wNoTitle;
	};
	MYDLG dlg;
	ZeroMemory(&dlg, sizeof(dlg));
	dlg.style = WS_VISIBLE | WS_CHILD | DS_CONTROL; // DS_CONTROL enables proper tab navigation and possibly other things.
	//dlg.dwExtendedStyle = WS_EX_CONTROLPARENT; // Redundant; DS_CONTROL causes this to be applied.
	// Create the dialog.
	tab_dialog = CreateDialogIndirect(g_hInstance, &dlg, mHwnd, TabDialogProc);
	if (!tab_dialog)
		return FAIL;
	if (!SetProp(aTabControl.hwnd, _T("ahk_dlg"), tab_dialog))
	{
		DestroyWindow(tab_dialog);
		return FAIL;
	}
	LONG attrib = aTabControl.tab_index;
	if (aOpt.use_theme)
	{
		// Apply a tab control background to the tab dialog.  This also affects
		// the backgrounds of some controls, such as Radio and Groupbox controls.
		EnableThemeDialogTexture(tab_dialog, 6); // ETDT_ENABLETAB = 6
		attrib |= TABDIALOG_ATTRIB_THEMED;
	}
	SetWindowLongPtr(tab_dialog, GWLP_USERDATA, attrib);
	if (!((mExStyle = GetWindowLong(mHwnd, GWL_EXSTYLE)) & WS_EX_CONTROLPARENT))
		// WS_EX_CONTROLPARENT must be applied to the parent window as well as the
		// tab dialog to allow tab navigation to work correctly.  With it applied
		// only to the tab dialog, tabbing out of a multi-line edit control won't
		// work if it is the last control on a tab.
		SetWindowLong(mHwnd, GWL_EXSTYLE, mExStyle |= WS_EX_CONTROLPARENT);
	return OK;
}