object frmMain: TfrmMain Left = 0 Height = 441 Top = 0 Width = 624 Caption = 'frmMain' ClientHeight = 441 ClientWidth = 624 Color = clBtnFace Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' LCLVersion = '4.4.0.0' OnCreate = FormCreate OnDestroy = FormDestroy object PageControl1: TPageControl Left = 0 Height = 441 Top = 0 Width = 624 ActivePage = tshTGlobe4 Align = alClient TabIndex = 0 TabOrder = 0 object tshTGlobe4: TTabSheet Caption = 'TGlobe4' ClientHeight = 413 ClientWidth = 616 ImageIndex = 2 object AdvSplitter1: TSplitter Cursor = crVSplit Left = 0 Height = 3 Top = 242 Width = 616 Align = alBottom ResizeAnchor = akBottom end object pnlTG4Upper: TPanel Left = 0 Height = 242 Top = 0 Width = 616 Align = alClient Caption = 'pnlTG4Upper' ClientHeight = 242 ClientWidth = 616 ParentBackground = False TabOrder = 0 object glbMap: TGlobe4 Left = 1 Height = 240 Top = 1 Width = 614 CacheCapacity = 10240 GlobeOptions = [goCache3DPoints, goDoubleBuffered] MaxTextHeight = 0 Projection.Altitude = 4051 Projection.CenterLatitude = 23.5 Projection.MaxLatitude = 90 Projection.MaxLongitude = 180 Projection.MinLatitude = -90 Projection.MinLongitude = -180 Projection.ProjectionClass = 'TSphericalPrj' Projection.ScaleFactor = 0.000207122991159164 Projection.UseMinMaxLimits = False Projection.XRotation = 23.5 Projection.XOrigin = 298 Projection.YOrigin = 111 Projection.XAxisChanges = xaYOrigin Projection.YAxisChanges = yaCentralMeridian SelectedBrush.Color = clYellow SelectedPen.Color = clRed TransparentBrush.Color = clSilver TransparentPen.Color = clGray OnRender = ima OnObjectSelectChange = glbMapObjectSelectChange GraticulePen.Color = clSilver SaveMetaDataLocation = smdInDataDirectory SurfaceColor = clAqua SurfaceTileDirectory = 'C:\Temp\TileCache\tile.openstreetmap.org' SurfaceTileLocalEnabled = False SurfaceTileURLTemplate = 'https://tile.openstreetmap.org/{z}/{x}/{y}.png' SurfaceTileUserAgent = 'TGlobe4/4.10' Align = alClient TabOrder = 0 TabStop = True OnClick = glbMapClick OnKeyDown = glbMapKeyDown OnMouseDown = glbMapMouseDown OnMouseMove = glbMapMouseMove OnMouseUp = glbMapMouseUp OnMouseWheelDown = glbMapMouseWheelDown OnMouseWheelUp = glbMapMouseWheelUp end end object pnlTG4Lower: TPanel Left = 0 Height = 168 Top = 245 Width = 616 Align = alBottom Caption = 'pnlTG4Lower' ClientHeight = 168 ClientWidth = 616 ParentBackground = False TabOrder = 1 object lblGameTime: TLabel Left = 456 Height = 15 Top = 4 Width = 145 Alignment = taRightJustify Anchors = [akTop, akRight] AutoSize = False Caption = 'Gametime:' end object pnlPosition: TPanel Left = 1 Height = 17 Top = 149 Width = 240 Anchors = [akLeft, akBottom] Caption = 'pnlPosition' ParentBackground = False TabOrder = 0 end object pnlDistance: TPanel Left = 376 Height = 17 Top = 149 Width = 240 Anchors = [akRight, akBottom] Caption = 'pnlDistance' ParentBackground = False TabOrder = 1 end object btnZoomIn: TButton Left = 4 Height = 25 Top = 4 Width = 75 Caption = 'Zoom In' TabOrder = 2 OnClick = btnZoomInClick end object btnZoomOut: TButton Left = 85 Height = 25 Top = 4 Width = 75 Caption = 'Zoom Out' TabOrder = 3 OnClick = btnZoomOutClick end object pnlVisibility: TPanel Left = 166 Height = 51 Top = 6 Width = 195 Alignment = taLeftJustify ClientHeight = 51 ClientWidth = 195 ParentBackground = False TabOrder = 4 object rgVisibility: TRadioGroup Left = 2 Height = 41 Top = 2 Width = 185 AutoFill = True Caption = 'Visibility' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 21 ClientWidth = 181 Columns = 2 Items.Strings = ( 'Player' 'God' ) ParentBackground = False TabOrder = 0 OnClick = rgVisibilityClick end end object pnlSelected: TPanel Left = 248 Height = 18 Top = 149 Width = 120 Anchors = [akLeft, akRight, akBottom] Caption = 'pnlSelected' ParentBackground = False TabOrder = 5 end object btnSettings: TButton Left = 4 Height = 25 Top = 62 Width = 120 Caption = 'Settings...' TabOrder = 6 OnClick = btnSettingsClick end end end end object icons: TImageList Left = 452 Top = 354 end object pmGlobe: TPopupMenu Left = 500 Top = 354 object miAddCoursepoint: TMenuItem Caption = 'Append Course Point' OnClick = miAddCoursepointClick end object miInsertCoursepoint: TMenuItem Caption = 'Insert Course Point' OnClick = miInsertCoursepointClick Visible = False end object miDeleteCoursepoint: TMenuItem Caption = 'Delete Course Point' OnClick = miDeleteCoursepointClick Visible = False end object miClearCourse: TMenuItem Caption = 'Clear Course' OnClick = miClearCourseClick Visible = False end object miEditFormation: TMenuItem Caption = 'Edit Formation'#8230 OnClick = miEditFormationClick Visible = False end end end