home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Sharewar / STELLA / _SETUP.1 / Stella.exe / 0 / RCDATA / TSKYFORM / TSKYFORM.txt < prev   
Text File  |  1998-01-06  |  40KB  |  1,576 lines
  1. object SkyForm: TSkyForm
  2.   Left = 285
  3.   Top = 163
  4.   Width = 648
  5.   Height = 512
  6.   Caption = 'Coeli Sky'
  7.   Color = 4194304
  8.   Font.Color = clBlue
  9.   Font.Height = -12
  10.   Font.Name = 'Small Fonts'
  11.   Font.Style = [fsBold]
  12.   PopupMenu = PopupMenu1
  13.   ShowHint = True
  14.   OnClick = FormClick
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   OnDragOver = FormDragOver
  18.   OnKeyPress = FormKeyPress
  19.   OnMouseDown = FormMouseDown
  20.   OnPaint = FormPaint
  21.   OnResize = FormResize
  22.   OnShow = FormShow
  23.   PixelsPerInch = 125
  24.   TextHeight = 13
  25.   object GreekPanel: TPanel
  26.     Left = 32
  27.     Top = 8
  28.     Width = 30
  29.     Height = 25
  30.     Font.Color = clMaroon
  31.     Font.Height = -16
  32.     Font.Name = 'Symbol'
  33.     Font.Style = [fsBold]
  34.     ParentColor = True
  35.     ParentFont = False
  36.     TabOrder = 0
  37.   end
  38.   object IAUAbbrPanel: TPanel
  39.     Left = 64
  40.     Top = 8
  41.     Width = 59
  42.     Height = 25
  43.     Font.Color = clMaroon
  44.     Font.Height = -12
  45.     Font.Name = 'MS Sans Serif'
  46.     Font.Style = [fsBold]
  47.     ParentColor = True
  48.     ParentFont = False
  49.     TabOrder = 1
  50.   end
  51.   object FlamPanel: TPanel
  52.     Left = 0
  53.     Top = 8
  54.     Width = 30
  55.     Height = 25
  56.     Font.Color = clMaroon
  57.     Font.Height = -3
  58.     Font.Name = 'MS Sans Serif'
  59.     Font.Style = [fsBold]
  60.     ParentColor = True
  61.     ParentFont = False
  62.     TabOrder = 2
  63.   end
  64.   object StarNamePanel: TPanel
  65.     Left = 0
  66.     Top = 40
  67.     Width = 123
  68.     Height = 25
  69.     Font.Color = clMaroon
  70.     Font.Height = -10
  71.     Font.Name = 'MS Sans Serif'
  72.     Font.Style = [fsBold]
  73.     ParentColor = True
  74.     ParentFont = False
  75.     TabOrder = 3
  76.   end
  77.   object AlsoNamedPanel: TPanel
  78.     Left = 0
  79.     Top = 72
  80.     Width = 123
  81.     Height = 25
  82.     Font.Color = clMaroon
  83.     Font.Height = -10
  84.     Font.Name = 'MS Sans Serif'
  85.     Font.Style = [fsBold]
  86.     ParentColor = True
  87.     ParentFont = False
  88.     TabOrder = 4
  89.   end
  90.   object YalePanel: TPanel
  91.     Left = 0
  92.     Top = 0
  93.     Width = 113
  94.     Height = 25
  95.     Font.Color = clMaroon
  96.     Font.Height = -10
  97.     Font.Name = 'MS Sans Serif'
  98.     Font.Style = [fsBold]
  99.     ParentColor = True
  100.     ParentFont = False
  101.     TabOrder = 5
  102.   end
  103.   object TimePanel1: TPanel
  104.     Left = 0
  105.     Top = 447
  106.     Width = 640
  107.     Height = 33
  108.     Align = alBottom
  109.     BevelOuter = bvLowered
  110.     TabOrder = 6
  111.     Visible = False
  112.     object TimeButtonPanel1: TPanel
  113.       Left = 200
  114.       Top = 3
  115.       Width = 437
  116.       Height = 28
  117.       BevelOuter = bvLowered
  118.       TabOrder = 0
  119.       object YearBackButton: TButton
  120.         Left = 4
  121.         Top = 2
  122.         Width = 37
  123.         Height = 24
  124.         Hint = 'Back x years'
  125.         Caption = '<< Y'
  126.         TabOrder = 0
  127.         OnClick = YearBackButtonClick
  128.       end
  129.       object YearForwardButton: TButton
  130.         Left = 398
  131.         Top = 2
  132.         Width = 37
  133.         Height = 24
  134.         Hint = 'Forward x years'
  135.         Caption = 'Y >>'
  136.         TabOrder = 1
  137.         OnClick = YearForwardButtonClick
  138.       end
  139.       object MonthBackButton: TButton
  140.         Left = 42
  141.         Top = 2
  142.         Width = 37
  143.         Height = 24
  144.         Hint = 'Back x months'
  145.         Caption = '<< M'
  146.         TabOrder = 2
  147.         OnClick = MonthBackButtonClick
  148.       end
  149.       object MonthForwardButton: TButton
  150.         Left = 360
  151.         Top = 2
  152.         Width = 37
  153.         Height = 24
  154.         Hint = 'Forward x months'
  155.         Caption = 'M >>'
  156.         TabOrder = 3
  157.         OnClick = MonthForwardButtonClick
  158.       end
  159.       object DayBackButton: TButton
  160.         Left = 80
  161.         Top = 2
  162.         Width = 37
  163.         Height = 24
  164.         Hint = 'Back x days'
  165.         Caption = '<< D'
  166.         TabOrder = 4
  167.         OnClick = DayBackButtonClick
  168.       end
  169.       object HourBackButton: TButton
  170.         Left = 118
  171.         Top = 2
  172.         Width = 37
  173.         Height = 24
  174.         Hint = 'Back x hours'
  175.         Caption = '<< h'
  176.         TabOrder = 5
  177.         OnClick = HourBackButtonClick
  178.       end
  179.       object DayForwardButton: TButton
  180.         Left = 322
  181.         Top = 2
  182.         Width = 37
  183.         Height = 24
  184.         Hint = 'Forward x days'
  185.         Caption = 'D >>'
  186.         TabOrder = 6
  187.         OnClick = DayForwardButtonClick
  188.       end
  189.       object MinuteBackButton: TButton
  190.         Left = 155
  191.         Top = 2
  192.         Width = 37
  193.         Height = 24
  194.         Hint = 'Back x minutes'
  195.         Caption = '<< m'
  196.         TabOrder = 7
  197.         OnClick = MinuteBackButtonClick
  198.       end
  199.       object HourForwardButton: TButton
  200.         Left = 284
  201.         Top = 2
  202.         Width = 37
  203.         Height = 24
  204.         Hint = 'Forward x hours'
  205.         Caption = 'h >>'
  206.         TabOrder = 8
  207.         OnClick = HourForwardButtonClick
  208.       end
  209.       object MinuteForwardButton: TButton
  210.         Left = 245
  211.         Top = 2
  212.         Width = 37
  213.         Height = 24
  214.         Hint = 'Forward x minutes'
  215.         Caption = 'm >>'
  216.         TabOrder = 9
  217.         OnClick = MinuteForwardButtonClick
  218.       end
  219.       object TimeIncSpinButton: TSpinButton
  220.         Left = 195
  221.         Top = 3
  222.         Width = 20
  223.         Height = 21
  224.         Hint = 'Set x increment'
  225.         DownGlyph.Data = {
  226.           DE000000424DDE00000000000000360000002800000009000000060000000100
  227.           180000000000A800000000000000000000000000000000000000007F7F007F7F
  228.           007F7F007F7F007F7F007F7F007F7F007F7F00FE7F67007F7F007F7F007F7F00
  229.           7F7F000000007F7F007F7F007F7F00FE7F6C007F7F007F7F007F7F0000000000
  230.           00000000007F7F007F7F00FE7F46007F7F007F7F000000000000000000000000
  231.           000000007F7F00FE7F6C007F7F00000000000000000000000000000000000000
  232.           000000FE7F09007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FE
  233.           7F63}
  234.         TabOrder = 10
  235.         UpGlyph.Data = {
  236.           DE000000424DDE00000000000000360000002800000009000000060000000100
  237.           180000000000A800000000000000000000000000000000000000007F7F007F7F
  238.           007F7F007F7F007F7F007F7F007F7F007F7F00FE7F00007F7F00000000000000
  239.           000000000000000000000000000000FE7F00007F7F007F7F0000000000000000
  240.           00000000000000007F7F00FE7F00007F7F007F7F007F7F000000000000000000
  241.           007F7F007F7F00FE7F00007F7F007F7F007F7F007F7F000000007F7F007F7F00
  242.           7F7F00FE7F44007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FE
  243.           7F00}
  244.         OnDownClick = TimeIncSpinButtonDownClick
  245.         OnUpClick = TimeIncSpinButtonUpClick
  246.       end
  247.       object IncrementDisplayPanel: TPanel
  248.         Left = 218
  249.         Top = 3
  250.         Width = 26
  251.         Height = 21
  252.         BevelOuter = bvNone
  253.         Caption = 'x1'
  254.         Font.Color = clMaroon
  255.         Font.Height = -12
  256.         Font.Name = 'MS Sans Serif'
  257.         Font.Style = [fsBold]
  258.         ParentFont = False
  259.         TabOrder = 11
  260.       end
  261.     end
  262.     object ClockPanel1: TPanel
  263.       Left = 3
  264.       Top = 3
  265.       Width = 192
  266.       Height = 28
  267.       Hint = 'The simulated time and date'
  268.       BevelOuter = bvLowered
  269.       Caption = 'ClockPanel1'
  270.       Font.Color = clMaroon
  271.       Font.Height = -21
  272.       Font.Name = 'Times New Roman'
  273.       Font.Style = []
  274.       ParentFont = False
  275.       TabOrder = 1
  276.     end
  277.     object RedrawButton1: TButton
  278.       Left = 862
  279.       Top = 4
  280.       Width = 75
  281.       Height = 25
  282.       Caption = 'Redraw'
  283.       TabOrder = 2
  284.       OnClick = RedrawButton1Click
  285.     end
  286.     object ClockPanelCloseButton: TButton
  287.       Left = 944
  288.       Top = 4
  289.       Width = 75
  290.       Height = 25
  291.       Caption = 'Close'
  292.       TabOrder = 3
  293.       OnClick = ClockPanelCloseButtonClick
  294.     end
  295.     object ClockResetButton: TButton
  296.       Left = 780
  297.       Top = 4
  298.       Width = 75
  299.       Height = 25
  300.       Caption = 'Reset'
  301.       TabOrder = 4
  302.       OnClick = ClockResetButtonClick
  303.     end
  304.     object SiderealCheckBox1: TCheckBox
  305.       Left = 647
  306.       Top = 9
  307.       Width = 97
  308.       Height = 17
  309.       Hint = 'Move by sidereal units'
  310.       Caption = 'Sidereal'
  311.       Enabled = False
  312.       Font.Color = clBlack
  313.       Font.Height = -12
  314.       Font.Name = 'MS Sans Serif'
  315.       Font.Style = []
  316.       ParentFont = False
  317.       ParentShowHint = False
  318.       ShowHint = True
  319.       TabOrder = 5
  320.     end
  321.     object AnimateButton: TBitBtn
  322.       Left = 730
  323.       Top = 4
  324.       Width = 37
  325.       Height = 25
  326.       Caption = '>>>'
  327.       Font.Color = clRed
  328.       Font.Height = -12
  329.       Font.Name = 'Small Fonts'
  330.       Font.Style = [fsBold]
  331.       ParentFont = False
  332.       TabOrder = 6
  333.       OnClick = AnimateButtonClick
  334.     end
  335.   end
  336.   object SliderPanel: TPanel
  337.     Left = 400
  338.     Top = 217
  339.     Width = 229
  340.     Height = 227
  341.     BevelInner = bvLowered
  342.     BevelWidth = 2
  343.     DragMode = dmAutomatic
  344.     Font.Color = clBlack
  345.     Font.Height = -12
  346.     Font.Name = 'MS Sans Serif'
  347.     Font.Style = []
  348.     ParentFont = False
  349.     TabOrder = 7
  350.     Visible = False
  351.     object Bevel1: TBevel
  352.       Left = 22
  353.       Top = 124
  354.       Width = 181
  355.       Height = 2
  356.     end
  357.     object TraverseBar: TTrackBar
  358.       Left = 8
  359.       Top = 152
  360.       Width = 209
  361.       Height = 43
  362.       Hint = 'Adjust line of sight traverse'
  363.       Ctl3D = True
  364.       Max = 360
  365.       Orientation = trHorizontal
  366.       ParentCtl3D = False
  367.       PageSize = 45
  368.       Frequency = 20
  369.       Position = 0
  370.       SelEnd = 0
  371.       SelStart = 0
  372.       TabOrder = 0
  373.       TickMarks = tmTopLeft
  374.       TickStyle = tsAuto
  375.       OnChange = TraverseBarChange
  376.     end
  377.     object ElevationBar: TTrackBar
  378.       Left = 95
  379.       Top = 4
  380.       Width = 38
  381.       Height = 127
  382.       Hint = 'Adjust line of sight elevation'
  383.       Ctl3D = True
  384.       Max = 90
  385.       Orientation = trVertical
  386.       ParentCtl3D = False
  387.       PageSize = 45
  388.       Frequency = 10
  389.       Position = 0
  390.       SelEnd = 0
  391.       SelStart = 0
  392.       TabOrder = 1
  393.       TickMarks = tmBottomRight
  394.       TickStyle = tsAuto
  395.       OnChange = ElevationBarChange
  396.     end
  397.     object ReadoutPanel: TPanel
  398.       Left = 19
  399.       Top = 197
  400.       Width = 188
  401.       Height = 21
  402.       Caption = 'Readout'
  403.       Color = clGray
  404.       Font.Color = clLime
  405.       Font.Height = -12
  406.       Font.Name = 'MS Sans Serif'
  407.       Font.Style = [fsBold]
  408.       ParentFont = False
  409.       TabOrder = 2
  410.     end
  411.     object CloseSliderPanelButton: TButton
  412.       Left = 201
  413.       Top = 5
  414.       Width = 23
  415.       Height = 16
  416.       Hint = 'Close panel'
  417.       Caption = 'X'
  418.       Font.Color = clBlack
  419.       Font.Height = -12
  420.       Font.Name = 'MS Sans Serif'
  421.       Font.Style = [fsBold]
  422.       ParentFont = False
  423.       ParentShowHint = False
  424.       ShowHint = True
  425.       TabOrder = 3
  426.       OnClick = CloseSliderPanelButtonClick
  427.     end
  428.     object SetViewpointButton: TButton
  429.       Left = 147
  430.       Top = 56
  431.       Width = 55
  432.       Height = 24
  433.       Hint = 'Center projection'
  434.       Caption = 'Set'
  435.       Font.Color = clNavy
  436.       Font.Height = -12
  437.       Font.Name = 'MS Sans Serif'
  438.       Font.Style = []
  439.       ParentFont = False
  440.       TabOrder = 4
  441.       OnClick = SetViewpointButtonClick
  442.     end
  443.     object Panel1: TPanel
  444.       Left = 13
  445.       Top = 130
  446.       Width = 20
  447.       Height = 20
  448.       BevelOuter = bvNone
  449.       Caption = 'N'
  450.       Font.Color = clGray
  451.       Font.Height = -12
  452.       Font.Name = 'MS Sans Serif'
  453.       Font.Style = []
  454.       ParentFont = False
  455.       TabOrder = 5
  456.     end
  457.     object Panel2: TPanel
  458.       Left = 134
  459.       Top = 102
  460.       Width = 56
  461.       Height = 22
  462.       BevelOuter = bvNone
  463.       Caption = 'Horizon'
  464.       Font.Color = clGray
  465.       Font.Height = -12
  466.       Font.Name = 'MS Sans Serif'
  467.       Font.Style = []
  468.       ParentFont = False
  469.       TabOrder = 6
  470.     end
  471.     object Panel3: TPanel
  472.       Left = 134
  473.       Top = 13
  474.       Width = 48
  475.       Height = 22
  476.       BevelOuter = bvNone
  477.       Caption = 'Zenith'
  478.       Font.Color = clGray
  479.       Font.Height = -12
  480.       Font.Name = 'MS Sans Serif'
  481.       Font.Style = []
  482.       ParentFont = False
  483.       TabOrder = 7
  484.     end
  485.     object Panel4: TPanel
  486.       Left = 103
  487.       Top = 130
  488.       Width = 20
  489.       Height = 20
  490.       BevelOuter = bvNone
  491.       Caption = 'S'
  492.       Font.Color = clGray
  493.       Font.Height = -12
  494.       Font.Name = 'MS Sans Serif'
  495.       Font.Style = []
  496.       ParentFont = False
  497.       TabOrder = 8
  498.     end
  499.     object Panel5: TPanel
  500.       Left = 189
  501.       Top = 130
  502.       Width = 20
  503.       Height = 20
  504.       BevelOuter = bvNone
  505.       Caption = 'N'
  506.       Font.Color = clGray
  507.       Font.Height = -12
  508.       Font.Name = 'MS Sans Serif'
  509.       Font.Style = []
  510.       ParentFont = False
  511.       TabOrder = 9
  512.     end
  513.     object Panel6: TPanel
  514.       Left = 58
  515.       Top = 130
  516.       Width = 20
  517.       Height = 20
  518.       BevelOuter = bvNone
  519.       Caption = 'E'
  520.       Font.Color = clGray
  521.       Font.Height = -12
  522.       Font.Name = 'MS Sans Serif'
  523.       Font.Style = []
  524.       ParentFont = False
  525.       TabOrder = 10
  526.     end
  527.     object Panel7: TPanel
  528.       Left = 146
  529.       Top = 130
  530.       Width = 20
  531.       Height = 20
  532.       BevelOuter = bvNone
  533.       Caption = 'W'
  534.       Font.Color = clGray
  535.       Font.Height = -12
  536.       Font.Name = 'MS Sans Serif'
  537.       Font.Style = []
  538.       ParentFont = False
  539.       TabOrder = 11
  540.     end
  541.     object IconPanel: TPanel
  542.       Left = 6
  543.       Top = 6
  544.       Width = 70
  545.       Height = 70
  546.       Caption = 'IconPanel'
  547.       TabOrder = 12
  548.       object Image1: TImage
  549.         Left = 3
  550.         Top = 2
  551.         Width = 64
  552.         Height = 64
  553.         AutoSize = True
  554.         Picture.Data = {<image000.bmp>}
  555.         Stretch = True
  556.       end
  557.     end
  558.   end
  559.   object MsgPanel: TPanel
  560.     Left = 156
  561.     Top = 5
  562.     Width = 296
  563.     Height = 26
  564.     BevelOuter = bvLowered
  565.     BevelWidth = 3
  566.     Caption = 'MsgPanel'
  567.     Font.Color = clNavy
  568.     Font.Height = -12
  569.     Font.Name = 'MS Sans Serif'
  570.     Font.Style = [fsBold]
  571.     ParentFont = False
  572.     TabOrder = 8
  573.     Visible = False
  574.   end
  575.   object UnregisteredPanel1: TPanel
  576.     Left = 11
  577.     Top = 363
  578.     Width = 331
  579.     Height = 35
  580.     BevelWidth = 2
  581.     TabOrder = 9
  582.     Visible = False
  583.     object UnregisteredMess1: TPanel
  584.       Left = 7
  585.       Top = 6
  586.       Width = 317
  587.       Height = 23
  588.       BevelInner = bvRaised
  589.       BevelOuter = bvLowered
  590.       Caption = 'Only unregistered copies are branded!'
  591.       Color = clWhite
  592.       Font.Color = clBlack
  593.       Font.Height = -17
  594.       Font.Name = 'Times New Roman'
  595.       Font.Style = [fsBold]
  596.       ParentFont = False
  597.       TabOrder = 0
  598.       OnClick = UnregisteredMess1Click
  599.     end
  600.   end
  601.   object UnregisteredPanel2: TPanel
  602.     Left = 0
  603.     Top = 412
  604.     Width = 640
  605.     Height = 35
  606.     Align = alBottom
  607.     BevelWidth = 2
  608.     Caption = 'UnregisteredPanel2'
  609.     TabOrder = 10
  610.     Visible = False
  611.     object Unregistered2Text: TPanel
  612.       Left = 7
  613.       Top = 5
  614.       Width = 627
  615.       Height = 24
  616.       BevelInner = bvRaised
  617.       BevelOuter = bvLowered
  618.       Caption = 
  619.         'Your shareware evaluation license has expired. Please register o' +
  620.         'r remove program.'
  621.       Color = clRed
  622.       Font.Color = clWhite
  623.       Font.Height = -17
  624.       Font.Name = 'Times New Roman'
  625.       Font.Style = [fsBold]
  626.       ParentFont = False
  627.       TabOrder = 0
  628.       OnClick = UnregisteredMess1Click
  629.     end
  630.     object OrderOnlinePanel: TPanel
  631.       Left = 642
  632.       Top = 6
  633.       Width = 137
  634.       Height = 22
  635.       BevelWidth = 2
  636.       Caption = 'Order online!'
  637.       Font.Color = clBlack
  638.       Font.Height = -12
  639.       Font.Name = 'Small Fonts'
  640.       Font.Style = [fsBold]
  641.       ParentFont = False
  642.       TabOrder = 1
  643.       OnClick = OrderOnlinePanelClick
  644.     end
  645.     object FillFormPanel: TPanel
  646.       Left = 791
  647.       Top = 6
  648.       Width = 137
  649.       Height = 22
  650.       BevelWidth = 2
  651.       Caption = 'Fill Form'
  652.       Font.Color = clBlack
  653.       Font.Height = -12
  654.       Font.Name = 'Small Fonts'
  655.       Font.Style = [fsBold]
  656.       ParentFont = False
  657.       TabOrder = 2
  658.       OnClick = FillFormPanelClick
  659.     end
  660.     object ExitPanel: TPanel
  661.       Left = 943
  662.       Top = 6
  663.       Width = 75
  664.       Height = 22
  665.       BevelWidth = 2
  666.       Caption = 'Exit'
  667.       Font.Color = clBlack
  668.       Font.Height = -12
  669.       Font.Name = 'Small Fonts'
  670.       Font.Style = [fsBold]
  671.       ParentFont = False
  672.       TabOrder = 3
  673.       OnClick = ExitPanelClick
  674.     end
  675.   end
  676.   object GenNamePanel: TPanel
  677.     Left = 0
  678.     Top = 8
  679.     Width = 123
  680.     Height = 25
  681.     Font.Color = clMaroon
  682.     Font.Height = -10
  683.     Font.Name = 'MS Sans Serif'
  684.     Font.Style = [fsBold]
  685.     ParentColor = True
  686.     ParentFont = False
  687.     TabOrder = 11
  688.     Visible = False
  689.   end
  690.   object PopupMenu1: TPopupMenu
  691.     Left = 335
  692.     Top = 79
  693.     object Field1: TMenuItem
  694.       Caption = 'Field'
  695.       ShortCut = 0
  696.       object Centre1: TMenuItem
  697.         Caption = '&Centre'
  698.         ShortCut = 0
  699.         OnClick = Centre1Click
  700.       end
  701.       object Zoom1: TMenuItem
  702.         Caption = '&Zoom'
  703.         ShortCut = 0
  704.         OnClick = Zoom1Click
  705.       end
  706.       object Unzoom1: TMenuItem
  707.         Caption = '&Unzoom'
  708.         ShortCut = 0
  709.         OnClick = Unzoom1Click
  710.       end
  711.       object Reset1: TMenuItem
  712.         Caption = '&Reset'
  713.         ShortCut = 0
  714.         OnClick = Reset1Click
  715.       end
  716.     end
  717.     object Viewpoint1: TMenuItem
  718.       Caption = 'Viewpoint'
  719.       ShortCut = 0
  720.       object Direction1: TMenuItem
  721.         Caption = '&Direction'
  722.         ShortCut = 0
  723.         object North1: TMenuItem
  724.           Caption = '&North'
  725.           GroupIndex = 10
  726.           ShortCut = 0
  727.           OnClick = North1Click
  728.         end
  729.         object South1: TMenuItem
  730.           Caption = '&South'
  731.           Checked = True
  732.           Default = True
  733.           GroupIndex = 10
  734.           ShortCut = 0
  735.           OnClick = South1Click
  736.         end
  737.         object East1: TMenuItem
  738.           Caption = '&East'
  739.           GroupIndex = 10
  740.           ShortCut = 0
  741.           OnClick = East1Click
  742.         end
  743.         object West1: TMenuItem
  744.           Caption = '&West'
  745.           GroupIndex = 10
  746.           ShortCut = 0
  747.           OnClick = West1Click
  748.         end
  749.         object DirectionSet: TMenuItem
  750.           Caption = 'Se&t'
  751.           GroupIndex = 10
  752.           ShortCut = 16452
  753.           OnClick = DirectionSetClick
  754.         end
  755.       end
  756.       object Elevation1: TMenuItem
  757.         Caption = '&Elevation'
  758.         ShortCut = 0
  759.         object Horizon2: TMenuItem
  760.           Caption = '&Horizon'
  761.           ShortCut = 0
  762.           OnClick = Horizon2Click
  763.         end
  764.         object Zenith1: TMenuItem
  765.           Caption = '&Zenith'
  766.           ShortCut = 0
  767.           OnClick = Zenith1Click
  768.         end
  769.         object Intermediate1: TMenuItem
  770.           Caption = '&Intermediate'
  771.           ShortCut = 45
  772.           OnClick = Intermediate1Click
  773.         end
  774.         object ElevationSet: TMenuItem
  775.           Caption = '&Set'
  776.           ShortCut = 16453
  777.           OnClick = ElevationSetClick
  778.         end
  779.       end
  780.       object Projection1: TMenuItem
  781.         Caption = '&Projection'
  782.         ShortCut = 0
  783.         object Equidistant1: TMenuItem
  784.           Caption = 'Equi&distant'
  785.           ShortCut = 113
  786.           OnClick = Equidistant1Click
  787.         end
  788.         object EqualArea1: TMenuItem
  789.           Caption = 'Equal &Area'
  790.           Checked = True
  791.           ShortCut = 114
  792.           OnClick = EqualArea1Click
  793.         end
  794.         object Stereographic1: TMenuItem
  795.           Caption = '&Stereographic'
  796.           ShortCut = 115
  797.           OnClick = Stereographic1Click
  798.         end
  799.         object Orthographic1: TMenuItem
  800.           Caption = '&Orthographic'
  801.           ShortCut = 116
  802.           OnClick = Orthographic1Click
  803.         end
  804.         object N4: TMenuItem
  805.           Caption = '-'
  806.           ShortCut = 0
  807.         end
  808.         object CentralizeProjection1: TMenuItem
  809.           Caption = '&Center on star'
  810.           ShortCut = 16451
  811.           OnClick = CentralizeProjection1Click
  812.         end
  813.         object Autocenter1: TMenuItem
  814.           Caption = '&Auto-center'
  815.           ShortCut = 16449
  816.           OnClick = Autocenter1Click
  817.         end
  818.       end
  819.       object Location1: TMenuItem
  820.         Caption = '&Location'
  821.         ShortCut = 0
  822.         object WorldMap1: TMenuItem
  823.           Caption = '&World Map'
  824.           Checked = True
  825.           ShortCut = 0
  826.           OnClick = WorldMap1Click
  827.         end
  828.         object LocationSet1: TMenuItem
  829.           Caption = '&Set'
  830.           ShortCut = 0
  831.           OnClick = LocationSet1Click
  832.         end
  833.         object Database1: TMenuItem
  834.           Caption = '&Database'
  835.           Enabled = False
  836.           ShortCut = 0
  837.         end
  838.       end
  839.     end
  840.     object Clock1: TMenuItem
  841.       Caption = 'Clock'
  842.       ShortCut = 0
  843.       object Running1: TMenuItem
  844.         Caption = '&Running'
  845.         Checked = True
  846.         ShortCut = 0
  847.         OnClick = Running1Click
  848.       end
  849.       object Stopped1: TMenuItem
  850.         Caption = '&Stopped'
  851.         ShortCut = 0
  852.         OnClick = Stopped1Click
  853.       end
  854.       object Animate1: TMenuItem
  855.         Caption = '&Animate'
  856.         ShortCut = 0
  857.         OnClick = Animate1Click
  858.       end
  859.       object TimeBar1: TMenuItem
  860.         Caption = '&Bar'
  861.         ShortCut = 0
  862.         OnClick = TimeBar1Click
  863.       end
  864.       object N5: TMenuItem
  865.         Caption = '-'
  866.         ShortCut = 0
  867.       end
  868.       object ClockForward1: TMenuItem
  869.         Caption = '&Forward'
  870.         ShortCut = 0
  871.         object ForwardMinute1: TMenuItem
  872.           Caption = '&Minute'
  873.           ShortCut = 0
  874.           OnClick = ForwardMinute1Click
  875.         end
  876.         object ForwardHour1: TMenuItem
  877.           Caption = '&Hour'
  878.           ShortCut = 0
  879.           OnClick = ForwardHour1Click
  880.         end
  881.         object ForwardDay1: TMenuItem
  882.           Caption = '&Day'
  883.           ShortCut = 0
  884.           OnClick = ForwardDay1Click
  885.         end
  886.         object ForwardMonth1: TMenuItem
  887.           Caption = 'Mo&nth'
  888.           ShortCut = 0
  889.           OnClick = ForwardMonth1Click
  890.         end
  891.         object ForwardYear1: TMenuItem
  892.           Caption = '&Year'
  893.           ShortCut = 0
  894.           OnClick = ForwardYear1Click
  895.         end
  896.       end
  897.       object ClockBack1: TMenuItem
  898.         Caption = '&Back'
  899.         ShortCut = 0
  900.         object BackMinute1: TMenuItem
  901.           Caption = '&Minute'
  902.           ShortCut = 0
  903.           OnClick = BackMinute1Click
  904.         end
  905.         object BackHour1: TMenuItem
  906.           Caption = '&Hour'
  907.           ShortCut = 0
  908.           OnClick = BackHour1Click
  909.         end
  910.         object BackDay1: TMenuItem
  911.           Caption = '&Day'
  912.           ShortCut = 0
  913.           OnClick = BackDay1Click
  914.         end
  915.         object BackMonth1: TMenuItem
  916.           Caption = 'Mo&nth'
  917.           ShortCut = 0
  918.           OnClick = BackMonth1Click
  919.         end
  920.         object BackYear1: TMenuItem
  921.           Caption = '&Year'
  922.           ShortCut = 0
  923.           OnClick = BackYear1Click
  924.         end
  925.       end
  926.       object ClockRese1: TMenuItem
  927.         Caption = 'R&eset'
  928.         ShortCut = 0
  929.         OnClick = ClockRese1Click
  930.       end
  931.       object ClockSet: TMenuItem
  932.         Caption = 'Se&t'
  933.         ShortCut = 0
  934.         OnClick = ClockSetClick
  935.       end
  936.     end
  937.     object Find1: TMenuItem
  938.       Caption = 'Find'
  939.       ShortCut = 0
  940.       OnClick = Find1Click
  941.     end
  942.     object N1: TMenuItem
  943.       Caption = '-'
  944.       ShortCut = 0
  945.     end
  946.     object Data1: TMenuItem
  947.       Caption = '&Data'
  948.       ShortCut = 0
  949.       object DataPanels1: TMenuItem
  950.         Caption = '&Panel'
  951.         Enabled = False
  952.         ShortCut = 0
  953.       end
  954.       object DataReport1: TMenuItem
  955.         Caption = '&Report'
  956.         ShortCut = 0
  957.         object ReportShowHide1: TMenuItem
  958.           Caption = '&Show/Hide'
  959.           ShortCut = 0
  960.           OnClick = ReportShowHide1Click
  961.         end
  962.         object ReportTailor1: TMenuItem
  963.           Caption = '&Tailor'
  964.           ShortCut = 0
  965.           OnClick = ReportTailor1Click
  966.         end
  967.       end
  968.       object Readout1: TMenuItem
  969.         Caption = 'Read&out'
  970.         Enabled = False
  971.         ShortCut = 0
  972.       end
  973.     end
  974.     object Lines1: TMenuItem
  975.       Caption = 'Lines'
  976.       ShortCut = 0
  977.       object Horizon1: TMenuItem
  978.         Caption = '&Horizon'
  979.         Checked = True
  980.         ShortCut = 0
  981.         object HorizonSet1: TMenuItem
  982.           Caption = '&Set on/off'
  983.           ShortCut = 0
  984.           OnClick = HorizonSet1Click
  985.         end
  986.         object HorizonLegend1: TMenuItem
  987.           Caption = '&Legend'
  988.           Checked = True
  989.           ShortCut = 0
  990.           OnClick = HorizonLegend1Click
  991.         end
  992.         object HorizonColour1: TMenuItem
  993.           Caption = '&Colour'
  994.           ShortCut = 0
  995.           OnClick = HorizonColour1Click
  996.         end
  997.       end
  998.       object Aequator1: TMenuItem
  999.         Caption = '&Aequator'
  1000.         Checked = True
  1001.         ShortCut = 0
  1002.         object AequatorSet1: TMenuItem
  1003.           Caption = '&Set on/off'
  1004.           ShortCut = 0
  1005.           OnClick = AequatorSet1Click
  1006.         end
  1007.         object AequatorColour1: TMenuItem
  1008.           Caption = '&Colour'
  1009.           ShortCut = 0
  1010.           OnClick = AequatorColour1Click
  1011.         end
  1012.       end
  1013.       object Ecliptic1: TMenuItem
  1014.         Caption = '&Ecliptic'
  1015.         Checked = True
  1016.         ShortCut = 0
  1017.         object EclipticSet1: TMenuItem
  1018.           Caption = '&Set on/off'
  1019.           ShortCut = 0
  1020.           OnClick = EclipticSet1Click
  1021.         end
  1022.         object EclipticColour1: TMenuItem
  1023.           Caption = '&Colour'
  1024.           ShortCut = 0
  1025.           OnClick = EclipticColour1Click
  1026.         end
  1027.       end
  1028.       object Constel1: TMenuItem
  1029.         Caption = '&Constel'
  1030.         ShortCut = 0
  1031.         object ConLineSet: TMenuItem
  1032.           Caption = '&Set on/off'
  1033.           ShortCut = 0
  1034.           OnClick = ConLineSetClick
  1035.         end
  1036.         object ConBounds1: TMenuItem
  1037.           Caption = '&Boundaries'
  1038.           ShortCut = 0
  1039.           object ConBoundSet: TMenuItem
  1040.             Caption = '&Set on/off'
  1041.             ShortCut = 16450
  1042.             OnClick = ConBoundSetClick
  1043.           end
  1044.           object ConBoundColour1: TMenuItem
  1045.             Caption = '&Colour'
  1046.             ShortCut = 0
  1047.             OnClick = ConBoundColour1Click
  1048.           end
  1049.         end
  1050.         object ConstelNames1: TMenuItem
  1051.           Caption = '&Names'
  1052.           ShortCut = 0
  1053.           OnClick = ConstelNames1Click
  1054.         end
  1055.         object ConLineColour1: TMenuItem
  1056.           Caption = '&Colour'
  1057.           ShortCut = 0
  1058.           OnClick = ConLineColour1Click
  1059.         end
  1060.       end
  1061.     end
  1062.     object Grids1: TMenuItem
  1063.       Caption = 'Grids'
  1064.       ShortCut = 0
  1065.       object EquatorialGrid1: TMenuItem
  1066.         Caption = '&Equatorial  RA/Dec'
  1067.         ShortCut = 0
  1068.         object EquatorialGridSetonoff: TMenuItem
  1069.           Caption = '&Set on/off'
  1070.           ShortCut = 0
  1071.           OnClick = EquatorialGridSetonoffClick
  1072.         end
  1073.         object EquatorialGridColour1: TMenuItem
  1074.           Caption = '&Colour'
  1075.           ShortCut = 0
  1076.           OnClick = EquatorialGridColour1Click
  1077.         end
  1078.       end
  1079.       object HorizonGrid1: TMenuItem
  1080.         Caption = '&Horizon  Alt/Az'
  1081.         ShortCut = 0
  1082.         object HorizonGridSetOnOff: TMenuItem
  1083.           Caption = '&Set on/off'
  1084.           ShortCut = 0
  1085.           OnClick = HorizonGridSetOnOffClick
  1086.         end
  1087.         object HorizonGridColour1: TMenuItem
  1088.           Caption = '&Colour'
  1089.           ShortCut = 0
  1090.           OnClick = HorizonGridColour1Click
  1091.         end
  1092.       end
  1093.       object Eclipticlambdabeta1: TMenuItem
  1094.         Caption = '&Ecliptic  lambda/beta'
  1095.         Enabled = False
  1096.         ShortCut = 0
  1097.         object Draw5: TMenuItem
  1098.           Caption = '&Draw'
  1099.           ShortCut = 0
  1100.         end
  1101.         object Setonoff4: TMenuItem
  1102.           Caption = '&Set on/off'
  1103.           ShortCut = 0
  1104.         end
  1105.       end
  1106.     end
  1107.     object Objects1: TMenuItem
  1108.       Caption = 'Objects'
  1109.       ShortCut = 0
  1110.       object Stars1: TMenuItem
  1111.         Caption = '&Stars'
  1112.         Checked = True
  1113.         ShortCut = 0
  1114.         object More1: TMenuItem
  1115.           Caption = '&More'
  1116.           ShortCut = 0
  1117.           OnClick = More1Click
  1118.         end
  1119.         object Fewer1: TMenuItem
  1120.           Caption = '&Fewer'
  1121.           ShortCut = 0
  1122.           OnClick = Fewer1Click
  1123.         end
  1124.         object Autoresolve1: TMenuItem
  1125.           Caption = '&Autoresolve'
  1126.           Checked = True
  1127.           Default = True
  1128.           ShortCut = 0
  1129.           OnClick = Autoresolve1Click
  1130.         end
  1131.         object StarNames1: TMenuItem
  1132.           Caption = '&Names'
  1133.           Checked = True
  1134.           ShortCut = 0
  1135.           OnClick = StarNames1Click
  1136.         end
  1137.         object DesignationsLabel1: TMenuItem
  1138.           Caption = '&Designations'
  1139.           ShortCut = 0
  1140.           OnClick = DesignationsLabel1Click
  1141.         end
  1142.         object N7: TMenuItem
  1143.           Caption = '-'
  1144.           ShortCut = 0
  1145.         end
  1146.         object Style1: TMenuItem
  1147.           Caption = '&Style'
  1148.           ShortCut = 0
  1149.           object StarStyleRealistic: TMenuItem
  1150.             Caption = '&Realistic'
  1151.             Checked = True
  1152.             GroupIndex = 2
  1153.             RadioItem = True
  1154.             ShortCut = 121
  1155.             OnClick = StarStyleRealisticClick
  1156.           end
  1157.           object StarStylePhotoplate: TMenuItem
  1158.             Caption = '&Photoplate'
  1159.             GroupIndex = 2
  1160.             RadioItem = True
  1161.             ShortCut = 8313
  1162.             OnClick = StarStylePhotoplateClick
  1163.           end
  1164.           object Adjust1: TMenuItem
  1165.             Caption = '&Adjust'
  1166.             GroupIndex = 2
  1167.             ShortCut = 0
  1168.             OnClick = Adjust1Click
  1169.           end
  1170.         end
  1171.       end
  1172.       object Planets1: TMenuItem
  1173.         Caption = '&Planets'
  1174.         Checked = True
  1175.         ShortCut = 0
  1176.         object PlanetsSet: TMenuItem
  1177.           Caption = '&Set on/off'
  1178.           ShortCut = 0
  1179.           OnClick = PlanetsSetClick
  1180.         end
  1181.         object PlanetNames1: TMenuItem
  1182.           Caption = '&Names'
  1183.           Checked = True
  1184.           ShortCut = 0
  1185.           OnClick = PlanetNames1Click
  1186.         end
  1187.       end
  1188.       object Messier1: TMenuItem
  1189.         Caption = '&Messier'
  1190.         ShortCut = 0
  1191.         object MessierSet: TMenuItem
  1192.           Caption = '&Set on/off'
  1193.           ShortCut = 16461
  1194.           OnClick = MessierSetClick
  1195.         end
  1196.         object MessierCatalog: TMenuItem
  1197.           Caption = '&Catalog'
  1198.           Checked = True
  1199.           ShortCut = 0
  1200.           OnClick = MessierCatalogClick
  1201.         end
  1202.         object MessierNames: TMenuItem
  1203.           Caption = '&Names'
  1204.           ShortCut = 0
  1205.           OnClick = MessierNamesClick
  1206.         end
  1207.         object ImageIcons1: TMenuItem
  1208.           Caption = '&ImageIcons'
  1209.           ShortCut = 16457
  1210.           OnClick = ImageIcons1Click
  1211.         end
  1212.         object MessierColour: TMenuItem
  1213.           Caption = '&Colour'
  1214.           ShortCut = 0
  1215.           OnClick = MessierColourClick
  1216.         end
  1217.       end
  1218.       object NGC1: TMenuItem
  1219.         Caption = '&NGC'
  1220.         ShortCut = 0
  1221.         object NGCSet: TMenuItem
  1222.           Caption = '&Set on/off'
  1223.           ShortCut = 16462
  1224.           OnClick = NGCSetClick
  1225.         end
  1226.         object NGCCatalog: TMenuItem
  1227.           Caption = '&Catalog'
  1228.           ShortCut = 0
  1229.           OnClick = NGCCatalogClick
  1230.         end
  1231.         object NGCNames: TMenuItem
  1232.           Caption = '&Names'
  1233.           ShortCut = 0
  1234.           OnClick = NGCNamesClick
  1235.         end
  1236.       end
  1237.       object Comets1: TMenuItem
  1238.         Caption = '&Comets'
  1239.         Enabled = False
  1240.         ShortCut = 0
  1241.         OnClick = Comets1Click
  1242.       end
  1243.       object Asteroids1: TMenuItem
  1244.         Caption = '&Asteroids'
  1245.         Enabled = False
  1246.         ShortCut = 0
  1247.       end
  1248.       object Sun1: TMenuItem
  1249.         Caption = 'Su&n'
  1250.         Checked = True
  1251.         ShortCut = 0
  1252.         OnClick = Sun1Click
  1253.       end
  1254.       object Moon1: TMenuItem
  1255.         Caption = 'Mo&on'
  1256.         Checked = True
  1257.         ShortCut = 0
  1258.         OnClick = Moon1Click
  1259.       end
  1260.     end
  1261.     object N2: TMenuItem
  1262.       Caption = '-'
  1263.       ShortCut = 0
  1264.     end
  1265.     object Sundry1: TMenuItem
  1266.       Caption = 'Settings'
  1267.       ShortCut = 0
  1268.       object Effects1: TMenuItem
  1269.         Caption = '&Effects'
  1270.         ShortCut = 0
  1271.         object Atmospheric1: TMenuItem
  1272.           Caption = 'Atmospheric'
  1273.           ShortCut = 0
  1274.           object Refraction1: TMenuItem
  1275.             Caption = '&Refraction'
  1276.             ShortCut = 0
  1277.             OnClick = Refraction1Click
  1278.           end
  1279.           object Extinction1: TMenuItem
  1280.             Caption = '&Extinction'
  1281.             Enabled = False
  1282.             ShortCut = 0
  1283.           end
  1284.           object Scintillation1: TMenuItem
  1285.             Caption = '&Scintillation'
  1286.             Checked = True
  1287.             ShortCut = 0
  1288.             OnClick = Scintillation1Click
  1289.           end
  1290.         end
  1291.         object Gravitational1: TMenuItem
  1292.           Caption = '&Gravitational'
  1293.           ShortCut = 0
  1294.           object Precession1: TMenuItem
  1295.             Caption = '&Precession'
  1296.             ShortCut = 16464
  1297.             OnClick = Precession1Click
  1298.           end
  1299.           object Nutation1: TMenuItem
  1300.             Caption = '&Nutation'
  1301.             Enabled = False
  1302.             ShortCut = 0
  1303.           end
  1304.         end
  1305.         object N6: TMenuItem
  1306.           Caption = '-'
  1307.           ShortCut = 0
  1308.         end
  1309.         object Brightness1: TMenuItem
  1310.           Caption = 'Brightness'
  1311.           ShortCut = 0
  1312.           object StarBrightnessInc: TMenuItem
  1313.             Caption = '&Increase'
  1314.             ShortCut = 0
  1315.             OnClick = StarBrightnessIncClick
  1316.           end
  1317.           object StarBrightnessDec: TMenuItem
  1318.             Caption = '&Decrease'
  1319.             ShortCut = 0
  1320.             OnClick = StarBrightnessDecClick
  1321.           end
  1322.         end
  1323.         object Tint1: TMenuItem
  1324.           Caption = 'Tint'
  1325.           ShortCut = 0
  1326.           object StarWhiten1: TMenuItem
  1327.             Caption = '&Whiten'
  1328.             ShortCut = 0
  1329.             OnClick = StarWhiten1Click
  1330.           end
  1331.           object StarDeepen1: TMenuItem
  1332.             Caption = '&Darken'
  1333.             ShortCut = 0
  1334.             OnClick = StarDeepen1Click
  1335.           end
  1336.           object TintRestore: TMenuItem
  1337.             Caption = '&Restore'
  1338.             ShortCut = 0
  1339.             OnClick = TintRestoreClick
  1340.           end
  1341.         end
  1342.         object Sky1: TMenuItem
  1343.           Caption = 'Sky'
  1344.           ShortCut = 0
  1345.           object Static1: TMenuItem
  1346.             Caption = '&Static'
  1347.             Checked = True
  1348.             ShortCut = 0
  1349.             OnClick = Static1Click
  1350.           end
  1351.           object Dynamic1: TMenuItem
  1352.             Caption = '&Dynamic'
  1353.             Enabled = False
  1354.             ShortCut = 0
  1355.             OnClick = Dynamic1Click
  1356.           end
  1357.           object N8: TMenuItem
  1358.             Caption = '-'
  1359.             ShortCut = 0
  1360.           end
  1361.           object Invert1: TMenuItem
  1362.             Caption = '&Invert'
  1363.             ShortCut = 0
  1364.             OnClick = Invert1Click
  1365.           end
  1366.           object Mirror1: TMenuItem
  1367.             Caption = '&Mirror'
  1368.             ShortCut = 0
  1369.             OnClick = Mirror1Click
  1370.           end
  1371.           object N9: TMenuItem
  1372.             Caption = '-'
  1373.             ShortCut = 0
  1374.           end
  1375.           object SkyBrighten1: TMenuItem
  1376.             Caption = '&Brighten'
  1377.             ShortCut = 0
  1378.             OnClick = SkyBrighten1Click
  1379.           end
  1380.           object SkyDarken1: TMenuItem
  1381.             Caption = '&Darken'
  1382.             ShortCut = 0
  1383.             OnClick = SkyDarken1Click
  1384.           end
  1385.           object SkyColour1: TMenuItem
  1386.             Caption = '&Colour'
  1387.             Enabled = False
  1388.             ShortCut = 0
  1389.           end
  1390.         end
  1391.       end
  1392.       object Cursor1: TMenuItem
  1393.         Caption = '&Cursor'
  1394.         ShortCut = 0
  1395.         object Hide1: TMenuItem
  1396.           Caption = '&Hide'
  1397.           ShortCut = 0
  1398.           OnClick = Hide1Click
  1399.         end
  1400.         object Show2: TMenuItem
  1401.           Caption = '&Show'
  1402.           ShortCut = 0
  1403.           OnClick = Show2Click
  1404.         end
  1405.       end
  1406.       object Panels1: TMenuItem
  1407.         Caption = '&Panels'
  1408.         ShortCut = 0
  1409.         object PanelFont1: TMenuItem
  1410.           Caption = '&Font'
  1411.           ShortCut = 0
  1412.           OnClick = PanelFont1Click
  1413.         end
  1414.         object Border1: TMenuItem
  1415.           Caption = '&Border'
  1416.           Checked = True
  1417.           ShortCut = 0
  1418.           OnClick = Border1Click
  1419.         end
  1420.       end
  1421.       object Labels1: TMenuItem
  1422.         Caption = '&Labels'
  1423.         ShortCut = 0
  1424.         object BrightLabels1: TMenuItem
  1425.           Caption = '&Bright'
  1426.           ShortCut = 0
  1427.           OnClick = BrightLabels1Click
  1428.         end
  1429.         object LabelSmall1: TMenuItem
  1430.           Caption = '&Small'
  1431.           ShortCut = 0
  1432.           OnClick = LabelSmall1Click
  1433.         end
  1434.         object LabelMedium1: TMenuItem
  1435.           Caption = '&Medium'
  1436.           ShortCut = 0
  1437.           OnClick = LabelMedium1Click
  1438.         end
  1439.         object LabelLarge1: TMenuItem
  1440.           Caption = '&Large'
  1441.           Checked = True
  1442.           ShortCut = 0
  1443.           OnClick = LabelLarge1Click
  1444.         end
  1445.         object LabelHuge1: TMenuItem
  1446.           Caption = '&Huge'
  1447.           ShortCut = 0
  1448.           OnClick = LabelHuge1Click
  1449.         end
  1450.       end
  1451.       object Window1: TMenuItem
  1452.         Caption = '&Window'
  1453.         ShortCut = 0
  1454.         object FullScreen1: TMenuItem
  1455.           Caption = '&Full Screen'
  1456.           ShortCut = 16467
  1457.           OnClick = FullScreen1Click
  1458.         end
  1459.         object PrintSky1: TMenuItem
  1460.           Caption = '&Print Sky'
  1461.           ShortCut = 120
  1462.           OnClick = PrintSky1Click
  1463.         end
  1464.         object PrintMode1: TMenuItem
  1465.           Caption = 'Print &Mode'
  1466.           ShortCut = 0
  1467.           object PrintMono1: TMenuItem
  1468.             Caption = '&Mono'
  1469.             Checked = True
  1470.             GroupIndex = 1
  1471.             RadioItem = True
  1472.             ShortCut = 0
  1473.             OnClick = PrintMono1Click
  1474.           end
  1475.           object PrintColour1: TMenuItem
  1476.             Caption = '&Colour'
  1477.             GroupIndex = 1
  1478.             RadioItem = True
  1479.             ShortCut = 0
  1480.             OnClick = PrintColour1Click
  1481.           end
  1482.         end
  1483.         object ShowHints1: TMenuItem
  1484.           Caption = 'Show &hints'
  1485.           Checked = True
  1486.           ShortCut = 0
  1487.           OnClick = ShowHints1Click
  1488.         end
  1489.         object N3: TMenuItem
  1490.           Caption = '-'
  1491.           ShortCut = 0
  1492.         end
  1493.         object Guide1: TMenuItem
  1494.           Caption = '&Guide'
  1495.           ShortCut = 112
  1496.           OnClick = Guide1Click
  1497.         end
  1498.         object Keys1: TMenuItem
  1499.           Caption = '&Keys'
  1500.           ShortCut = 8304
  1501.           OnClick = Keys1Click
  1502.         end
  1503.         object LiveEphem1: TMenuItem
  1504.           Caption = 'Live &Ephem'
  1505.           ShortCut = 16460
  1506.           OnClick = LiveEphem1Click
  1507.         end
  1508.         object Log1: TMenuItem
  1509.           Caption = '&Log'
  1510.           ShortCut = 16463
  1511.           OnClick = Log1Click
  1512.         end
  1513.       end
  1514.     end
  1515.   end
  1516.   object UpdateTimer: TTimer
  1517.     Interval = 60000
  1518.     OnTimer = UpdateTimerTimer
  1519.     Left = 304
  1520.     Top = 48
  1521.   end
  1522.   object ColorDialog1: TColorDialog
  1523.     Ctl3D = True
  1524.     Options = [cdFullOpen]
  1525.     Left = 366
  1526.     Top = 79
  1527.   end
  1528.   object Scintillator: TTimer
  1529.     Enabled = False
  1530.     Interval = 20
  1531.     OnTimer = ScintillatorTimer
  1532.     Left = 336
  1533.     Top = 48
  1534.   end
  1535.   object Unscintillator: TTimer
  1536.     Enabled = False
  1537.     Interval = 25
  1538.     OnTimer = UnscintillatorTimer
  1539.     Left = 368
  1540.     Top = 48
  1541.   end
  1542.   object FontDialog1: TFontDialog
  1543.     Font.Color = clWindowText
  1544.     Font.Height = -14
  1545.     Font.Name = 'MS Sans Serif'
  1546.     Font.Style = []
  1547.     MinFontSize = 0
  1548.     MaxFontSize = 0
  1549.     Left = 398
  1550.     Top = 80
  1551.   end
  1552.   object MsgTimer: TTimer
  1553.     OnTimer = MsgTimerTimer
  1554.     Left = 274
  1555.     Top = 48
  1556.   end
  1557.   object PrinterSetupDialog1: TPrinterSetupDialog
  1558.     Left = 427
  1559.     Top = 80
  1560.   end
  1561.   object IniOut1: TIniOut
  1562.     FileName = 'STELLA.INI'
  1563.     Items.Strings = (
  1564.       'WorldMap1;Checked;;Settings;SkyMenuWorldMapChecked;1;0'
  1565.       'SkyForm;Width;;Dimensions;SkyFormWidth;1;0'
  1566.       'SkyForm;Left;;Position;SkyFormLeft;1;0'
  1567.       'SkyForm;Top;;Position;SkyFormTop;1;0'
  1568.       'SliderPanel;Left;;Position;ElevationPanelLeft;1;0'
  1569.       'SliderPanel;Top;;Position;ElevationPanelTop;1;0'
  1570.       'LiveEphem1;Checked;;Settings;SkyMenuLiveEphemChecked;1;0')
  1571.     RegistryRoot = CURRENT_USER
  1572.     Left = 468
  1573.     Top = 81
  1574.   end
  1575. end
  1576.