//
// CPT operator / SondeerGame 
// This source file is (c) by Deltares.
// - October 2014
//
// ************************************************************************************************
//   This menu is separated so it can be used as ingame Settings Menu as well as in the Main Menu
//
//
// ************************************************************************************************

class MenuHandbook extends GeoGUIPage;

#exec OBJ LOAD FILE=GUIContent.utx

var bool bIgnoreEsc;

var GeoGUITabControl TabC;

var float               ButtonWidth,
                        ButtonHeight,
                        ButtonHGap,
                        ButtonVGapSmall,
                        ButtonVGapLarge,
                        BarHeight,
                        BarVPos,
                        SButtonSize,
                        SButtonVGap,
                        SButtonHGap,
                        TitleLeftGap,
                        TabWidth,
                        TabHeight,
                        TabLeft,
                        TabTop;

var GeoLabel            TitleBar;

var string Title;

var Automated GeoFrame Background;
var Automated GeoButton QuitButton;
var Automated GeoTitle MenuTitle;
var Automated GeoGUITabControl SettingTabs;

function InitComponent(GUIController MyController, GUIComponent MyOwner)
{

	local int i, tabs;
	local string stab, sclass,file;

	Super.InitComponent(MyController, MyOwner);

	OnKeyEvent = InternalOnKeyEvent;
	OnClose = InternalOnClose;
	OnOpen = InternalOnOpen;


	MyOpenPage();

	TabC = SettingTabs;

	TabWidth =  TabC.WinWidth;
	TabHeight = TabC.WinHeight;
	TabLeft = TabC.WinLeft;
	TabTop = TabC.WinTop;

	//TabC.AddTab("Signals","GeoSimulator.MenuHandBookTabSignals",,, false);

	file = "Handbook_" $ GeoPlayerController(PlayerOwner()).GetLanguage();
	tabs = int(Localize("MenuHandBook", "tabs", file));
	
	Log("Tabs: " @ tabs);

	for (i = 0; i < tabs; i++)
	{
		stab	= Localize("MenuHandBook", "tab" $ i, file);
		sclass	= "GeoInterface." $ Localize("MenuHandBook", "tabclass" $ i, file);
		TabC.AddTab(stab, sclass,,, false);

	}
//	TabC.AddTab("About","GeoInterface.MenuHandBookTabAbout",,, false);
//	TabC.AddTab("General3","GeoInterface.MenuHandBookTabGeneral",,, false);


/*
	for(i = 0; i<TabC.TabStack.Length;i++)
	{
		//TabC.TabStack[i].bVisible=false;
	}
*/

}

function MyOpenPage()
{
	UpdateLanguage();
}


function UpdateLanguage()
{
	MenuTitle.Caption  = IL8N("Title");
	QuitButton.Caption  = IL8N("Close");
}

event NotifyLevelChange()
{
    Controller.CloseMenu(true);
}


function TabChange(GUIComponent Sender)
{
    if (GUITabButton(Sender)==none)
        return;
}

event InternalOnOpen ()
{
    bVisible = true;
}

function bool InternalOnClick(GUIComponent Sender)
{
	if (Sender == QuitButton)
	{
		Controller.CloseMenu(false);

		return true;
	}

	return true;
}

function bool InternalOnKeyEvent(out byte Key,out byte State,float delta)
{
	/// Should not swallow

	if(bIgnoreEsc && Key == 0x1B)
	{
		Controller.CloseMenu();
		return true;
	}

	return true;
}

function TitleOnChange(GUIComponent Sender)
{
	TitleBar.TextAlign = TXTA_Center;
}

//=============================================================================
// Date       Id   Modification
// 2006-09-04 The  Created this header
//=============================================================================
function InternalOnClose(optional Bool bCanceled)
{
	Super.OnClose(bCanceled);
}

defaultproperties
{

	Begin Object Class=GeoFrame name=TBackground
		WinLeft = 0.05
		WinTop	= 0.1
		WinWidth = 0.9
		WinHeight = 0.8
	End Object
	Background = TBackground


	Begin Object Class=GeoButton Name=TQuitButton
		IniOption="Close"
		Caption="Close"
		OnClick=InternalOnClick
		WinLeft = 0.1
		WinTop = 0.78
		WinWidth = 0.125
		WinHeight = 0.05
	End Object
	QuitButton = TQuitButton

	Begin Object class=GeoTitle Name=TMenuTitle
		TextAlign=TXTA_Center
		OnChange=TitleOnChange
		WinLeft = 0.3
		WinTop = 0.165
		WinWidth = 0.6
	End Object
	MenuTitle = TMenuTitle

	Begin Object Class=GeoGUITabControl Name=TSettingTabs
		OnChange=TabChange
		bAcceptsInput=true
		bDockPanels=true
		WinLeft = 0.1
		WinTop = 0.2
		WinWidth = 0.8
		WinHeight = 0.75
		BackgroundStyleName="STY_GeoListBox"
	End Object

	SettingTabs = TSettingTabs

	bIgnoreEsc = true
    bAllowedAsLast=true
    bDisconnectOnOpen=false
}