// // CPT operator / SondeerGame // This source file is (c) by Deltares. // - October 2014 // //============================================================================= // Date Id Modification // // jln - 27-08-2008 KLIC information, after pressing "Examine" at the assignment screen //============================================================================= class MenuBoorBeschrijving extends GeoGUIPage; var automated GeoFrame DialogBackground; var automated GeoLabel TextOne; var automated GeoLabel TextTwo; var automated GeoButton CloseButton; var automated GeoImage DisplayImage; function InitComponent(GUIController MyController, GUIComponent MyOwner) { local string tex; Super.InitComponent(MyController, MyOwner); TextOne.Caption = Localize("Boorbeschrijving", "diepte1." $ GeoPC.GetLanguage(), GeoPC.GetScenarioFile()); TextTwo.Caption = Localize("Boorbeschrijving", "diepte2." $ GeoPC.GetLanguage(), GeoPC.GetScenarioFile()); /// Default: tex = "sondeermeester.boorbeschrijvingen.boorbeschijving_level1"; if (GeoPC.ScenarioNumber == 2) { tex = "sondeermeester.boorbeschrijvingen.boorbeschijving_level2"; } if (GeoPC.ScenarioNumber == 3 || GeoPC.ScenarioNumber == 4 ) { tex = "sondeermeester.boorbeschrijvingen.boorbeschijving_level3en4"; } /// Set texture: DisplayImage.Image = Material(DynamicLoadObject(tex, class'Material')); } function bool ButtonClick(GUIComponent Sender) { /// jln - 05-09-2008 Close window: if (Sender == CloseButton) { Controller.CloseMenu(); } return true; } //============================================================================= // Date Id Modification //============================================================================= defaultproperties { Begin Object Class=GeoFrame name=TDialogBackground WinWidth=0.6 WinLeft=0.15 WinTop=0.25 WinHeight=0.5 End Object Begin Object class=GeoLabel name=TTextOne WinTop=0.43 WinLeft=0.4 End Object Begin Object class=GeoLabel name=TTextTwo WinTop=0.56 WinLeft=0.4 End Object Begin Object class=GeoImage Name=TDisplayImage ImageStyle=ISTY_Justified ImageAlign=IMGA_LEFT WinHeight=0.3 WinWidth=0.3 WinTop=0.35 WinLeft=0.15 End Object Begin Object class=GeoButton Name=TCloseButton IniOption="TCloseButton" WinWidth=0.13 WinLeft=0.56 WinTop=0.64 OnClick=ButtonClick End Object DialogBackground = TDialogBackground TextOne = TTextOne TextTwo = TTextTwo DisplayImage = TDisplayImage CloseButton = TCloseButton AllowSelect = true bAllowedAsLast=true bDisconnectOnOpen=false bPersistent=false }