// // 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 MenuKLICRapport extends GeoGUIPage; var automated GeoImage PaperBackground; var automated GeoImage Map; var automated GeoMultiLineLabel KLICText; var automated GeoButton OKButton; function InitComponent(GUIController MyController, GUIComponent MyOwner) { Super.InitComponent(MyController, MyOwner); KLICText.SetContent( GeoPC.IL8N("KLICText", "GeoInterface.MenuOpdrachtBon", true)); KLICText.BlackText(true); /// Set image depending on scenario: Map.Image = Material(DynamicLoadObject("Sondeermeester.Klicmaps.Klicmap_level" $ GeoPC.GetScenarioNumber(), class'Material')); } function bool ButtonClick(GUIComponent Sender) { if(Sender == OKButton) { GeoPC.playeractions.ConsultedKLIC = true; Controller.CloseMenu(); } return true; } //============================================================================= // Date Id Modification //============================================================================= defaultproperties { Begin Object Class=GeoImage name=TPaperBackground WinWidth=0.56 WinLeft=0.1 WinTop=0.2 WinHeight=0.48 ImageStyle=ISTY_Scaled Image=Material'GeoGUIContent.Stretchable.paper_horizontal' End Object Begin Object class=GeoMultiLineLabel name=TKLICText WinHeight=0.28 WinWidth=0.48 WinTop=0.24 WinLeft=0.14 End Object Begin Object class=GeoButton Name=TCloseButton IniOption="TCloseButton" WinWidth=0.1 WinLeft=0.51 WinTop=0.59 OnClick=ButtonClick End Object Begin Object Class=GeoImage name=TMap WinLeft=0.43 WinTop=0.37 WinWidth=0.18 WinHeight=0.18 ImageStyle=ISTY_Scaled Image=Material'Sondeermeester.Klicmaps.Klicmap_level1' RenderWeight=1.4 End Object PaperBackground = TPaperBackground KLICText = TKLICText OKButton = TCloseButton Map = TMap AllowSelect = true bAllowedAsLast=true bDisconnectOnOpen=false bPersistent=false }