object StarCalcMainForm: TStarCalcMainForm Left = 140 Top = 111 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False Caption = 'StarCalc 5.6' ClientHeight = 443 ClientWidth = 652 Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Menu = MainMenu Visible = True OnCreate = CreateMainForm OnDestroy = DestroyMainForm OnKeyDown = KeyDownOnMainForm OnResize = ResizeMainForm PixelsPerInch = 96 TextHeight = 11 object EqGridButton: TSpeedButton Left = 2 Top = 406 Width = 24 Height = 17 Hint = 'Equat. grid' AllowAllUp = True GroupIndex = 1 Caption = 'E' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = N27Click end object HzGridButton: TSpeedButton Left = 29 Top = 406 Width = 24 Height = 17 Hint = 'Horiz. grid' AllowAllUp = True GroupIndex = 2 Caption = 'H' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = N26Click end object SkyScrollBox: TPalettedScrollBox Left = 56 Top = 0 Width = 596 Height = 390 AutoScroll = False Color = clWhite Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 object SkyPaintBox: TPalettedPaintBox Left = 0 Top = 0 Width = 592 Height = 386 Align = alClient DragCursor = crDefault OnDblClick = SkyMouseDblClick OnDragDrop = SkyPaintBoxDragDrop OnDragOver = SkyPaintBoxDragOver OnEndDrag = EndRotate OnMouseDown = SkyMouseDown OnMouseMove = SkyMouseMove OnPaint = SkyPaint OnStartDrag = SkyPaintBoxStartDrag end end object Panel1: TPanel Left = 1 Top = 35 Width = 52 Height = 292 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object ZoomIn: TSpeedButton Left = 5 Top = 179 Width = 25 Height = 24 Hint = 'Zoom in / Zoom out' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77770008000077777777777777700070000077777777800008700F0700007777 77700777700000770000777777088888F780777700008888880FFFF87F708777 0000FFFFF0FFFFF877F707770000FFFFF0FEFFF8777707770000FFFFF0FEFFF8 777707770000FFFFF0FEEFF8777707770000FFFFF80FEEEF777087770000FFFF FF08FFF8778077770000FFDFFFF00FF8700777770000FFFDFFFF800008777777 0000FFCFDFFFFFF8777777770000FFCFFDFCCCC8777777770000CCCCCFDFFFF8 777777770000FFCFFFFDFFF8777777770000FFCFFFFFDFF8777777770000} ParentShowHint = False ShowHint = True OnClick = ZoomInClick end object RotateB: TSpeedButton Left = 5 Top = 63 Width = 25 Height = 24 Hint = 'Time back' Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777770000777777000007777777770000777700FF0FF00777777700007770 F0FFFFF0F07777770000770FFFFFFFFFFF07777700007700FFFFFFFFF0077777 000070FFFFFFFFFFFFF07777000070FFFFFF0FFFFFF077770000700FFFFF0FFF FF007777000070FFFF000FFFFFF07777000070FFF0FF0FFFFFF0777700007700 FFFF0FFFF00777770000770FFFFF0FFFFF07777700007770F0FF0FF0F0777777 0000777700FF0FF0077777770000777777000007777777770000777777777777 777777770000777777777777774444470000777777777777777777770000} ParentShowHint = False ShowHint = True OnClick = RotateBClick end object RotateF: TSpeedButton Left = 5 Top = 37 Width = 25 Height = 24 Hint = 'Time forward' Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777770000777777000007777777770000777700FF0FF00777777700007770 F0FFFFF0F07777770000770FFFFFFFFFFF07777700007700FFFFFFFFF0077777 000070FFFFFFFFFFFFF07777000070FFFFFF0FFFFFF077770000700FFFFF0FFF FF007777000070FFFFFF000FFFF07777000070FFFFFF0FF0FFF0777700007700 FFFF0FFFF00777770000770FFFFF0FFFFF07777700007770F0FF0FF0F0777777 0000777700FF0FF0077747770000777777000007777747770000777777777777 774444470000777777777777777747770000777777777777777747770000} ParentShowHint = False ShowHint = True OnClick = RotateFClick end object RotateNow: TSpeedButton Left = 5 Top = 89 Width = 25 Height = 24 Hint = 'Now' Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777770000777777000007777777770000777700FF0FF00777777700007770 F0FFFFF0F07777770000770FFFFFFFFFFF07777700007700FFFFFFFFF0077777 000070FFFFFFFFFFFFF07777000070FFFFFF9FFFFFF077770000700FFFFF9FFF FF007777000070FFFFFF9FFFFFF07777000070FFFFFF9FFFFFF0777700007700 FFFF9FFFF00777770000770FFFFF9FFFFF07777700007770F0FF9FF0F0777777 0000777700FF9FF0077977970000777777000007777979970000777777777777 777997970000777777777777777977970000777777777777777777770000} ParentShowHint = False ShowHint = True OnClick = RotateNowClick end object RegZoom: TSpeedButton Left = 5 Top = 205 Width = 25 Height = 24 Hint = 'Zoom in region' AllowAllUp = True GroupIndex = 1 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777777777777777777700007700077000770007707700007777 7777777777777077000077077777777777777777000077077777777777777777 0000770777777777777770770000777777777777777770770000777777777777 7777707700007707777777777777777700007707777777777777777700007707 7777777777777077000077777777777777777077000077777777777777777077 0000770777777777777777770000770777777777777777770000770770007700 077000770000777777777777777777770000777777777777777777770000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = RegZoomClick end object AzRotate: TSpeedButton Left = 5 Top = 147 Width = 25 Height = 24 Hint = 'Azimuth rotation' AllowAllUp = True GroupIndex = 1 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777F777 777777770000777777FF0FF7777777770000777FFF00000FFF777777000077F0 00FFFFF000F77777000077F0FF77777F00F77777000077F0F77777F0F0F77777 00007F0F77777F0F7F0F777700007F0F7777F0FFFF0F77770000F00F777F0000 0000F77700007F0F777FFFFFFF0F777700007F0F777777777F0F7777000077F0 F7777777F0F77777000077F0FF77777FF0F77777000077F000FFFFF000F77777 0000777FFF00000FFF7000070000777777FF0FF777777007000077777777F777 777707070000777777777777770077070000777777777770007777770000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = AzRotateClick end object ObjSelect: TSpeedButton Left = 5 Top = 121 Width = 25 Height = 24 Hint = 'Object selection' AllowAllUp = True GroupIndex = 1 Down = True Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777770000777777777770007777770000777777777770F077777700007777 7777770FF0777777000077777777770F0777777700007777770770FF07777777 00007777770070F07777777700007777770F0FF07777777700007777770FFFF0 0007777700007777770FFFFFF077777700007777770FFFFF0777777700007777 770FFFF07777777700007777770FFF077777777700007777770FF07777777777 00007777770F0777777777770000777777007777777777770000777777077777 777777770000777777777777777777770000777777777777777777770000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = ObjSelectClick end object TrackingBtn: TSpeedButton Left = 5 Top = 263 Width = 25 Height = 24 Hint = 'Object locking' AllowAllUp = True GroupIndex = 2 Glyph.Data = { 5A010000424D5A01000000000000760000002800000014000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007000777777777777000700007088077000770007080700007000 7777777777770807000077077777666677777777000077077766EEEE66777777 00007707766EEEEEE66770770000777776EEEEEEEE677077000077776EEEEEEE EEE67077000077076EEEEEEEEEE67777000077076EEEEEEEEEE6777700007707 76EEEEEEEE67707700007777766EEEEEE6677077000077777766EEEE66777077 0000770777776666777777770000708077777777777700070000708070007700 077088070000700077777777777700070000777777777777777777770000} ParentShowHint = False ShowHint = True OnClick = TrackingBtnClick end object SetRAngleBtn: TSpeedButton Left = 33 Top = 37 Width = 14 Height = 50 Hint = 'Duration of rotation step' Glyph.Data = { 92000000424D9200000000000000760000002800000007000000070000000100 0400000000001C00000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFF0 FFF0FF000FF0F00000F000000000FFFFFFF0FFFFFFF0} ParentShowHint = False ShowHint = True OnClick = SetRAngleBtnClick end object SpeedButton2: TSpeedButton Left = 33 Top = 147 Width = 14 Height = 24 Hint = 'Azimuth rotation angle' Glyph.Data = { 5A000000424D5A000000000000003E0000002800000007000000070000000100 0100000000001C0000000000000000000000000000000000000000000000FFFF FF00FE000000EE000000C60000008200000000000000FE000000FE000000} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 33 Top = 179 Width = 14 Height = 50 Hint = 'Set Zoom' Glyph.Data = { 5A000000424D5A000000000000003E0000002800000007000000070000000100 0100000000001C0000000000000000000000000000000000000000000000FFFF FF00FE000000EE000000C60000008200000000000000FE000000FE000000} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 33 Top = 89 Width = 14 Height = 24 Hint = 'Set Date and Time' Glyph.Data = { 92000000424D9200000000000000760000002800000007000000070000000100 0400000000001C00000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFF0 FFF0FF000FF0F00000F000000000FFFFFFF0FFFFFFF0} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object AngSepar: TSpeedButton Left = 5 Top = 237 Width = 25 Height = 24 Hint = 'Angular distance'#13'between two points' AllowAllUp = True GroupIndex = 1 Glyph.Data = { F2010000424DF201000000000000760000002800000028000000130000000100 0400000000007C01000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777FFF7777777777777777000777777777777777778887F777777 777777770EEE0777777777777777877787F7777777777770EEEEE07777777777 7778F77F78F7777777777770EE0EE077777777777778F787F8F7777777777770 EEE0E0777777777777787F7878777777777777770EEE077777777777777787FF 87F7777777777770700070777777777777787888787F77777777770777777707 77777777778777777787F777777777777777777077777777777FFF7777787F7F FF7777000777777707000777778887777777878887F777007777777770EEE077 77887F777777787F787F7707077777770E0EEE07778787F777778F87F78F7777 707777770EE0EE077777787F77778F78778F7777770777770EEEEE0777777787 F7F787F7778777777770707770EEE0777777777878F7787FF877777777770077 070007777777777788F787888777777777700070777777777777777888787777 77777777777777777777777777777777777777777777} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = AngSeparClick end object SetLocation: TSpeedButton Left = 5 Top = 5 Width = 25 Height = 25 Hint = 'Location' Glyph.Data = { EE000000424DEE0000000000000076000000280000000F0000000F0000000100 0400000000007800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000077 777077700CCCBC007770770CCFCCBCCC077070CCFCCCBBCCC07070CCCCCBBFBC C0700CFCCCBBBBBCCC000CCCCBCBBCCCCC000BCCCBCCCCCCCB000CCCBBBCCFCC CB000CCCBBBBCFFCCB0070CCBFFBBCCCC07070CBBBBBCCCCC070770BBBBBCCBC 077077700BCCCB0077707777700000777770} ParentShowHint = False ShowHint = True OnClick = SetLocationClick end end object ToolBarPanel: TPanel Left = 56 Top = 392 Width = 596 Height = 32 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 OnMouseMove = ToolBarPopup object StarsOnOff: TSpeedButton Left = 65 Top = 4 Width = 25 Height = 25 Hint = 'Stars' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 56020000424D560200000000000076000000280000003C0000000F0000000100 040000000000E001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777F7F7F7F7F7F7F70000777777777777 777777777777777777777777777777777F79999F7F7F7F7F0000779999777777 7777799997777777777799997777777777999999F7F7F7F70000799999977777 77779999997777777779999997777777799999999F7F7F7F0000999999997777 777999999997777777999999997777777999999997F7F7F70000999999997777 77799999999777777799999999777777799999999F7F7F7F0000999999997777 7779999999977777779999999977777777999999F7F7F7F70000799999977777 777799999977777777799999977777777F79999F7F999F990000779999777999 7997799997779997997799997779997997F7F7F7F9F799F70000777777779779 977777777779779977777777779779977F7F7F7F797F797F0000777777779777 9777777777797779777777777797779777F7F7F7F9F7F9F70000777777779777 977777777779777977777777779777977F7F7F7F797F9F9F0000777777779779 7977777777797797977777777797797977F7F7F7F79997970000777777777999 797777777777999797777777777999797F7F7F7F7F7F7F7F0000777777777777 7777777777777777777777777777777777F7F7F7F7F7F7F70000} NumGlyphs = 4 ParentShowHint = False ShowHint = True Spacing = 2 OnClick = ChVisObjects end object BoundsOnOff: TSpeedButton Left = 121 Top = 4 Width = 25 Height = 25 Hint = 'Constellation boundaries' AllowAllUp = True GroupIndex = 3 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777C777777 777777777C777777777777777C777777777777777C777777777777777CCCCCCC CCCC7777777777C777777777777777C777777777777777C777777777777777C7 777777777777CCCCCCCC77777777C7777777CCCCCCCCC777777777C777777777 777777C777777777777777C777777777777777C7777777777777} ParentShowHint = False ShowHint = True OnClick = ChVisObjects end object NamesOnOff: TSpeedButton Left = 149 Top = 4 Width = 25 Height = 25 Hint = 'Constellation names' AllowAllUp = True GroupIndex = 4 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777787777BB BB77777778777777777777777877777777777777787777777777777778888888 8888777777777787777777777777778777777BBBBBB7778777BB777777777787 7777777777778888888877777777877777778888888887777777778777777777 777777877777777BBBB777877777777777777787777777777777} ParentShowHint = False ShowHint = True OnClick = ChVisObjects end object ObjectsOnOff: TSpeedButton Left = 177 Top = 4 Width = 25 Height = 25 Hint = 'Solar system objects' AllowAllUp = True GroupIndex = 5 Glyph.Data = { 76020000424D7602000000000000760000002800000040000000100000000100 0400000000000002000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777797777777 777777779777777777777777977777777777F7F797F7F7F7F7F7777797777777 7EE77777977777777EE77777977777777EE77F7F9F7F7F7F7EEF999999777777 EE77999999777777EE77999999777777EE77999999F7F7F7EEF779779777777E EE7779779777777EEE7779779777777EEE77797F9F7F7F7EEE7F77979777777E EE7777979777777EEE7777979777777EEE77F79797F7F7FEEEF777979777777E EE7777979777777EEE7777979777777EEE777F9F9F7F7F7EEE7F779777777777 EE77779777777777EE77779777777777EE77F797F7F7F7F7EEF7797777777777 7EE77977777777777EE77977777777777EE7797F7F7F7F7F7EEF777777777777 777777777777777777777777777777777777F7F7F7F7F7F7F7F7777777777777 7777777777777777777777777777777777777F7F7F7F7F7F7F7F777777777777 777777777777777777777777777777777777F7F7F7F7F7F7F7F7777777BBB777 7777777777BBB7777777777777BBB77777777F7F7FBBBF7F7F7F77777BBBBB77 777777777BBBBB77777777777BBBBB777777F7F7FBBBBBF7F7F777777BBBBB77 777777777BBBBB77777777777BBBBB7777777F7F7BBBBB7F7F7F77777BBBBB77 777777777BBBBB77777777777BBBBB777777F7F7FBBBBBF7F7F7777777BBB777 7777777777BBB7777777777777BBB77777777F7F7FBBBF7F7F7F} NumGlyphs = 4 ParentShowHint = False ShowHint = True OnClick = ChVisObjects end object ShowCatForm: TSpeedButton Left = 5 Top = 4 Width = 25 Height = 25 Hint = 'Catalogs and object groups' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 88888888000087777777777777777778000087FFFFFFFFFFFFFFFF78000087FF FFFFFFFFFFFFFF78000087F000000FFF0FF00078000087FFFFFFFFFFFFFFFF78 000087FFFFFFFFFFFFFFFF78000087F000FFFFFF0FF00078000087FFFFFFFFFF FFFFFF78000087FFFFFFFFFFFFFFFF78000087F0000000FF0FF00078000087FF FFFFFFFFFFFFFF78000087FFFFFFFFFFFFFFFF78000087777777777777777778 000087FFFFFFFFFFFFFFFF78000087FFFFFFFFFFFFFFFF78000087FCCCCCCFFC CFFCCC78000087FFFFFFFFFFFFFFFF7800008777777777777777777800008888 88888888888888880000} ParentShowHint = False ShowHint = True OnClick = N21Click end object CLinesOnOff: TSpeedButton Left = 93 Top = 4 Width = 25 Height = 25 Hint = 'Constellation lines' AllowAllUp = True GroupIndex = 2 Glyph.Data = { 56020000424D560200000000000076000000280000003C0000000F0000000100 040000000000E001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777770000799CCCC99777 777799CCCC99777777799CCCC99777777799CCCC997777770000799777799777 777799777799777777799777799777777799777799777777000077777777C777 77777777777C77777777777777C77777777777777C777777000077777777C777 77777777777C77777777777777C77777777777777C77777700007777777C7777 7777777777C77777777777777C77777777777777C777777700007777777C7777 7777777777C77777777777777C77777777777777C7777777000077777799CCCC C9977777799CCCCC9977777799CCCCC9977777799CCCCC990000777777997777 7997777779977777997777779977777997777779977777990000777777777777 7C77777777777777C77777777777777C77777777777777C70000777777777777 C77777777777777C77777777777777C77777777777777C77000077777777777C 77777777777777C77777777777777C77777777777777C77700007777777777C7 7777777777777C77777777777777C77777777777777C77770000777777779977 7777777777799777777777777799777777777777799777770000777777779977 7777777777799777777777777799777777777777799777770000} NumGlyphs = 4 ParentShowHint = False ShowHint = True OnClick = ChVisObjects end object DeepSkyOnOff: TSpeedButton Left = 205 Top = 4 Width = 25 Height = 25 Hint = 'Deep-sky objects' AllowAllUp = True GroupIndex = 6 Glyph.Data = { 56020000424D560200000000000076000000280000003C0000000F0000000100 040000000000E001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777777777777777777777222227777700007777AAAAA777 77777777AAAAA777777777AAAAA7777777777277772277770000777A7777AA77 7777777A7777AA7777777A7777AA77777777277777722777000077A777777AA7 777777A777777AA77777A777777AA777777277777772277700007A7777777AA7 77777A7777777AA7777A7777777AA777777277772222777700007A7777AAAA77 77777A7777AAAA77777A7777AAAA77777777777233327777000077777ABBBA77 777777777ABBBA777777777ABBBA77777777777233327777000077777ABBBA77 777777777ABBBA777777777ABBBA77777777777233327777000077777ABBBA77 777777777ABBBA777777777ABBBA77777777777222277772000077777AAAA777 7A7777777AAAA7777A77777AAAA7777A777777227777777200007777AA777777 7A777777AA7777777A7777AA7777777A777777227777772700007777AA777777 A7777777AA777777A77777AA777777A77777777227777277000077777AA7777A 777777777AA7777A7777777AA7777A7777777777222227770000777777AAAAA7 7777777777AAAAA777777777AAAAA77777777777777777770000777777777777 7777777777777777777777777777777777777777777777770000} NumGlyphs = 4 ParentShowHint = False ShowHint = True OnClick = ChVisObjects end object GroupParamsBtn: TSpeedButton Left = 33 Top = 4 Width = 25 Height = 25 Hint = 'Parameters of object groups' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F0000000120B0000120B00001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888800008888888888888888888800008888887777777777777800008888 88F88888888888780000888888F88888888888780000888888F88088FFFF8878 0000888888F888888888887800008777777777777788887800008F8888888888 87FF887800008F88888888888788887800008F88088FFFF88744447800008F88 888888888744447800008F888888888887FFFFF800008F88008FFFF887888888 00008F88888888888788888800008F44444444444788888800008F4444444444 4788888800008FFFFFFFFFFFFF88888800008888888888888888888800008888 88888888888888880000} ParentShowHint = False ShowHint = True OnClick = GroupParamsBtnClick end object Panel2: TPanel Left = 235 Top = 4 Width = 93 Height = 25 Hint = 'Stars magnitude' BevelInner = bvRaised BevelOuter = bvLowered ParentShowHint = False ShowHint = True TabOrder = 0 object Image1: TImage Left = 3 Top = 7 Width = 33 Height = 12 Picture.Data = {} end object StarDrawVLbl: TLabel Left = 41 Top = 5 Width = 21 Height = 16 Alignment = taRightJustify Caption = '-2.0' Font.Color = clBlue Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object VDraw: TUpDown Left = 64 Top = 3 Width = 24 Height = 19 Min = -20 Max = 70 Increment = 5 Orientation = udHorizontal Position = -20 TabOrder = 0 Wrap = False OnClick = VDrawClick end end object Panel3: TPanel Left = 330 Top = 4 Width = 92 Height = 25 Hint = 'Labeled stars magnitude' BevelInner = bvRaised BevelOuter = bvLowered ParentShowHint = False ShowHint = True TabOrder = 1 object Image2: TImage Left = 3 Top = 5 Width = 33 Height = 17 ParentShowHint = False Picture.Data = {} ShowHint = False end object StarMarkVLbl: TLabel Left = 41 Top = 5 Width = 21 Height = 16 Alignment = taRightJustify Caption = '-2.0' Font.Color = clBlue Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object VMark: TUpDown Left = 63 Top = 3 Width = 24 Height = 19 Min = -20 Max = 70 Increment = 5 Orientation = udHorizontal Position = -20 TabOrder = 0 Wrap = False OnClick = VMarkClick end end object Panel4: TPanel Left = 424 Top = 4 Width = 82 Height = 25 Hint = 'Labels size' BevelInner = bvRaised BevelOuter = bvLowered ParentShowHint = False ShowHint = True TabOrder = 2 object Image3: TImage Left = 2 Top = 8 Width = 33 Height = 12 Picture.Data = {} end object FontRelSizeLbl: TLabel Left = 38 Top = 5 Width = 14 Height = 16 Alignment = taRightJustify Caption = '15' Font.Color = clBlue Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object FontH: TUpDown Left = 53 Top = 3 Width = 24 Height = 19 Min = 1 Max = 10 Orientation = udHorizontal Position = 10 TabOrder = 0 Wrap = False OnClick = FontHClick end end object Panel5: TPanel Left = 508 Top = 4 Width = 85 Height = 25 Hint = 'Number of brightness levels' BevelInner = bvRaised BevelOuter = bvLowered ParentShowHint = False ShowHint = True TabOrder = 3 object Image4: TImage Left = 3 Top = 7 Width = 33 Height = 12 Picture.Data = {} end object StarScaleLbl: TLabel Left = 40 Top = 5 Width = 14 Height = 16 Alignment = taRightJustify Caption = '24' Font.Color = clBlue Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ImageScale: TUpDown Left = 56 Top = 3 Width = 24 Height = 19 Min = 1 Max = 24 Orientation = udHorizontal Position = 24 TabOrder = 0 Wrap = False OnClick = ImageScaleClick end end end object StatusBar: TStatusBar Left = 0 Top = 424 Width = 652 Height = 19 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = < item Text = 'Zoom' Width = 54 end item Text = 'Time' Width = 171 end item Text = 'Location' Width = 135 end item Text = 'Horiz. coordinates' Width = 124 end item Text = 'Equat. coordinates' Width = 50 end> ParentFont = False SimplePanel = False OnMouseMove = ToolBarPopup end object Panel6: TPanel Left = 1 Top = 0 Width = 52 Height = 34 Hint = 'Autorotation mode' BevelInner = bvRaised BevelOuter = bvLowered ParentShowHint = False ShowHint = True TabOrder = 4 object AutoRotate: TSpeedButton Left = 5 Top = 5 Width = 25 Height = 24 AllowAllUp = True GroupIndex = 1 Glyph.Data = { F2010000424DF201000000000000760000002800000028000000130000000100 0400000000007C01000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777777777777777777777777777777777777777777FFFF77777777F FFF7770000777777770000777788887F77777788887F70FFFF07777770FFFF07 78777787F7FF787777870FFFFFF070070FFFFFF08F777778F8878F7777780FFF 9FF070900FFFFFF08F777778F8888F7777780FFF9FF079000FFF9FF08F778778 F8788F7787780FFF9FF079790FFF9FF087F77878787787F7877870FFF9079779 70F9FF07787FF887877778787F87770009779777970900777788887787777F88 8877777779797777979777777777787877777F87777777777979777779977777 777778F8FFFFF887777777777799999999777777777777888888887777777777 77977777797777777777FF7F77FFF877777777700707777C799777777778878F F778F8FFF77777077700777CCCCCC777778F7788F7788888F777770777707777 7777C7777787FFF8777777787777777000077777777777777778888777777777 77777777777777777777777777777777777777777777} NumGlyphs = 2 OnClick = AutoRotateClick end object SetAutoRParamsBtn: TSpeedButton Left = 33 Top = 5 Width = 14 Height = 24 Hint = 'Autorotation parameters' Glyph.Data = { 92000000424D9200000000000000760000002800000007000000070000000100 0400000000001C00000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFF0FFF0 FFF0FF000FF0F00000F000000000FFFFFFF0FFFFFFF0} ParentShowHint = False ShowHint = True OnClick = SetAutoRParamsBtnClick end end object EHPanel: TPanel Left = 2 Top = 400 Width = 52 Height = 2 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 5 end object ShiftPanel: TPanel Left = 2 Top = 328 Width = 52 Height = 54 BevelOuter = bvNone TabOrder = 6 object DownShiftBtn: TSpeedButton Left = 17 Top = 32 Width = 16 Height = 15 Glyph.Data = { 5A000000424D5A000000000000003E0000002800000007000000070000000100 0100000000001C0000000000000000000000000000000000000000000000FFFF FF00FE000000EE000000C60000008200000000000000FE000000FE000000} OnClick = DownShiftBtnClick end object LeftShiftBtn: TSpeedButton Left = 1 Top = 17 Width = 16 Height = 15 Glyph.Data = { 5A000000424D5A000000000000003E0000002800000007000000070000000100 0100000000001C0000000000000000000000000000000000000000000000FFFF FF00F6000000E6000000C600000086000000C6000000E6000000F6000000} OnClick = LeftShiftBtnClick end object UpShiftBtn: TSpeedButton Left = 17 Top = 2 Width = 16 Height = 15 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 5A000000424D5A000000000000003E0000002800000007000000070000000100 0100000000001C0000000000000000000000000000000000000000000000FFFF FF00FE000000FE0000000000000082000000C6000000EE000000FE000000} ParentFont = False OnClick = UpShiftBtnClick end object RightShiftBtn: TSpeedButton Left = 33 Top = 17 Width = 16 Height = 15 Glyph.Data = { 5A000000424D5A000000000000003E0000002800000007000000070000000100 0100000000001C0000000000000000000000000000000000000000000000FFFF FF00DE000000CE000000C6000000C2000000C6000000CE000000DE000000} OnClick = RightShiftBtnClick end object Panel7: TPanel Left = 0 Top = 50 Width = 52 Height = 2 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 0 end end object ToolBarTimer: TTimer Enabled = False Interval = 400 OnTimer = ToolBarTimerTimer Left = 146 Top = 346 end object MainMenu: TMainMenu Left = 72 Top = 344 object N1: TMenuItem Caption = '&View' ShortCut = 16469 object N4: TMenuItem Caption = 'Time &forward' ShortCut = 16454 OnClick = RotateFClick end object N5: TMenuItem Caption = 'Time &back' ShortCut = 16450 OnClick = RotateBClick end object N8: TMenuItem Caption = '&Now' ShortCut = 16462 OnClick = RotateNowClick end object N23: TMenuItem Caption = '-' ShortCut = 0 end object SaveState: TMenuItem Caption = '&Save state' ShortCut = 113 OnClick = SaveStateClick end object RestoreState: TMenuItem Caption = '&Restore state' ShortCut = 114 OnClick = RestoreStateClick end object N19: TMenuItem Caption = '-' ShortCut = 0 end object AutorotationMenuItem: TMenuItem Caption = '&Autorotation mode' ShortCut = 16455 OnClick = AutorotationMenuItemClick end object TrackMenuItem: TMenuItem Caption = 'Object &locking mode' ShortCut = 16460 OnClick = TrackMenuItemClick end object N20: TMenuItem Caption = '-' ShortCut = 0 end object N10: TMenuItem Caption = '&Print' ShortCut = 16464 OnClick = SkyPrint end object FileSaveWork: TMenuItem Caption = 'Sa&ve as file' ShortCut = 16467 OnClick = FileSaveWorkClick end object N9: TMenuItem Caption = '-' ShortCut = 0 end object N7: TMenuItem Caption = '&Exit' ShortCut = 0 OnClick = N7Click end object N22: TMenuItem Caption = 'Test of speed' ShortCut = 24688 Visible = False OnClick = N22Click end end object Operations: TMenuItem Caption = 'Se&rvices' ShortCut = 0 object Find: TMenuItem Caption = '&Find...' ShortCut = 0 end object GotoPoint: TMenuItem Caption = 'Find &point...' ShortCut = 0 object GotoEqu: TMenuItem Caption = 'by its &equat. coordinates' ShortCut = 0 OnClick = GotoPointClick end object GotoHor: TMenuItem Caption = 'by its &horiz. coordinates' ShortCut = 0 OnClick = GotoPointClick end end object N6: TMenuItem Caption = '-' ShortCut = 0 end object InfoAboutObjects: TMenuItem Caption = '&Information about ...' ShortCut = 0 OnClick = InfoAboutObjectsClick object SUNInfo: TMenuItem Caption = '&Sun' ShortCut = 0 OnClick = SUNInfoClick end object MoonInfo: TMenuItem Caption = '&Moon' ShortCut = 0 OnClick = MOONInfoClick end object N40: TMenuItem Caption = '-' ShortCut = 0 end object MERInfo: TMenuItem Caption = 'M&ercury' ShortCut = 0 OnClick = MERInfoClick end object VENInfo: TMenuItem Caption = '&Venus' ShortCut = 0 OnClick = VENInfoClick end object MARInfo: TMenuItem Caption = 'M&ars' ShortCut = 0 OnClick = MARInfoClick end object JUPInfo: TMenuItem Caption = '&Jupiter' ShortCut = 0 OnClick = JUPInfoClick end object SATInfo: TMenuItem Caption = 'Sa&turn' ShortCut = 0 OnClick = SATInfoClick end object URAInfo: TMenuItem Caption = '&Uranus' ShortCut = 0 OnClick = URAInfoClick end object NEPInfo: TMenuItem Caption = '&Neptune' ShortCut = 0 OnClick = NEPInfoClick end object PLUInfo: TMenuItem Caption = '&Pluto' ShortCut = 0 OnClick = PLUInfoClick end object N31: TMenuItem Caption = '-' ShortCut = 0 end object OTHERInfo: TMenuItem Caption = 'se&lected objects' ShortCut = 16457 OnClick = OTHERInfoClick end end object CommonInform: TMenuItem Caption = '&Common information' ShortCut = 0 OnClick = CommonInformClick end end object Service: TMenuItem Caption = '&Parameters' ShortCut = 0 object N21: TMenuItem Caption = 'Catalogs and object &groups' ShortCut = 120 OnClick = N21Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object N17: TMenuItem Caption = '&Date and Time' ShortCut = 16452 OnClick = SpeedButton4Click end object N18: TMenuItem Caption = 'Duration of rotation &step' ShortCut = 16466 OnClick = SetRAngleBtnClick end object N16: TMenuItem Caption = 'Auto&rotation parameters' ShortCut = 16468 OnClick = SetAutoRParamsBtnClick end object N15: TMenuItem Caption = '&Azimuth rotation angle' ShortCut = 16449 OnClick = SpeedButton2Click end object SetZoomWork: TMenuItem Caption = '&Zoom' ShortCut = 16474 OnClick = SpeedButton3Click end object N25: TMenuItem Caption = '-' ShortCut = 0 end object N24: TMenuItem Caption = 'Auto &hide image adjustment toolbar' ShortCut = 0 OnClick = N24Click end object N30: TMenuItem Caption = '-' ShortCut = 0 end object N14: TMenuItem Caption = 'Coordina&te grids' ShortCut = 0 object N26: TMenuItem Caption = '&Horizontal' ShortCut = 16456 OnClick = N26Click end object N27: TMenuItem Caption = '&Equatorial' ShortCut = 16453 OnClick = N27Click end object N29: TMenuItem Caption = '-' ShortCut = 0 end object N28: TMenuItem Caption = '&Grid setup' ShortCut = 0 OnClick = N28Click end end object N13: TMenuItem Caption = '&Colors' ShortCut = 0 OnClick = N13Click end object N12: TMenuItem Caption = '-' ShortCut = 0 end object N11: TMenuItem Caption = '&Options' ShortCut = 0 OnClick = N11Click end end object N3: TMenuItem Caption = '&About' ShortCut = 0 OnClick = N3Click end end object AutoRotateTimer: TTimer Enabled = False Interval = 50 OnTimer = AutoRotateTimerTimer Left = 178 Top = 346 end object BlinkTimer: TTimer Enabled = False Interval = 200 OnTimer = DrawBlinkSelection Left = 210 Top = 346 end object SkyHintTimer: TTimer Enabled = False Interval = 500 OnTimer = ShowObjectHint Left = 242 Top = 346 end object GroupParamPopup: TPopupMenu Left = 282 Top = 346 end end