// // CPT operator / SondeerGame // This source file is (c) by Deltares. // - October 2014 // /// End dialog for Sonderen, after the sondeer result has been cleaned. /// NOT USED!!! class dialogCleanUp extends GeoGUIPage config(GeoUser); var GeoButton btnExecute; function InitComponent(GUIController MyController, GUIComponent MyOwner) { local int i, prepcount; local string item, event; local GeoLabeledCheckBox chkbox; Super.InitComponent(MyController, MyOwner); /// Execute button: btnExecute = GeoButton(Controls[8]); prepcount = int(Localize("CleanUp." $ GeoPC.PlayerLanguage, "cleancount" , ScenarioFile)); for (i = 0; i < prepcount; i++) { /// Get items: item = (Localize("CleanUp." $ GeoPC.PlayerLanguage, "clean" $ i , ScenarioFile)); event = (Localize("CleanUp." $ GeoPC.PlayerLanguage, "cleanevent" $ i , ScenarioFile)); chkbox = GeoLabeledCheckBox(Controls[i+1]); chkbox.bVisible = true; chkbox.WinTop = 0.135 + (i * (chkbox.WinHeight + 0.01)); chkbox.MyCheckBox.OnClick = CheckClick; chkbox.MyLabel.OnClick = CheckClick; chkbox.Checked(false); chkbox.setCaption(item); chkbox.SetValue(event); Log("Clean item: " @ item); } } function InternalOnChange(GUIComponent Sender) { Log("change: " @ Sender); } function bool ButtonClick(GUIComponent Sender) { if (Sender == btnExecute) { /// Go to final end form: Controller.OpenMenu("GeoInterface.MenuEndGame"); Controller.CloseMenu(true); } return true; } function bool CheckClick(GUIComponent Sender) { local string eventname; local string action; //log(Sender); /// Invert checkbox: /// Only when not already checked: if (GeoLabeledCheckBox(Sender.MenuOwner).IsChecked() == false) { GeoLabeledCheckBox(Sender.MenuOwner).Checked( !GeoLabeledCheckBox(Sender.MenuOwner).IsChecked() ); } else { /// REturn return false; } action = GeoLabeledCheckBox(Sender.MenuOwner).getValue(); eventname = "clean1" $ action; GeoPC.TriggerActions( eventname ); Log("Check click: " @ Sender.MenuOwner @ " - Event to trigger: " @ eventname); if (action == "lowerhood") { //GeoPC.playeractions.Clean_LoweredHood = true; GeoPC.lowerhood(); } if (action == "closegates") //GeoPC.playeractions.Clean_ClosedGates = true; if (action == "signoff") //GeoPC.playeractions.Clean_SignedOff = true; if (action == "fillhole") { //GeoPC.playeractions.Clean_FilledHole = true; GeoPC.SetLocState(2); } return true; } defaultproperties { AllowSelect=false bAllowedAsLast=true bDisconnectOnOpen=false bPersistent=false bNeverFocus=true Begin Object Class=GeoFrame name=TDialogBackground WinLeft=0.05 WinTop=0.07 WinWidth=0.4 WinHeight=0.48 End Object Controls(0)=GeoFrame'TDialogBackground' Begin Object class=GeoLabeledCheckBox Name=moCleanupCheck bVisible=false WinLeft=0.1 WinTop=0.45 End Object Controls(1)=GeoLabeledCheckBox'moCleanupCheck' Controls(2)=GeoLabeledCheckBox'moCleanupCheck' Controls(3)=GeoLabeledCheckBox'moCleanupCheck' Controls(4)=GeoLabeledCheckBox'moCleanupCheck' Controls(5)=GeoLabeledCheckBox'moCleanupCheck' Controls(6)=GeoLabeledCheckBox'moCleanupCheck' Controls(7)=GeoLabeledCheckBox'moCleanupCheck' Begin Object Class=GeoButton Name=TExecute OnClick=ButtonClick IniOption="TExecute" WinLeft=0.25 WinTop=0.43 bNeverFocus=true End Object Controls(8)=GeoButton'TExecute' }