home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / edukacja / Adastra / _SETUP.1 / Adastra.exe / 0 / RCDATA / TMAINFORM / TMAINFORM.txt
Text File  |  1998-12-16  |  26KB  |  979 lines

  1. object MainForm: TMainForm
  2.   Left = 0
  3.   Top = 119
  4.   Width = 264
  5.   Height = 117
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   Caption = 'COELI - A d a s t  r a :  Approaching the Heavens'
  8.   Color = 4194304
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Scaled = False
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   OnShow = FormShow
  19.   PixelsPerInch = 125
  20.   TextHeight = 16
  21.   object MainMenu1: TMainMenu
  22.     Left = 9
  23.     Top = 4
  24.     object File1: TMenuItem
  25.       Caption = '&File'
  26.       ShortCut = 0
  27.       object ObservingLogs1: TMenuItem
  28.         Caption = '--- Observing Log ---'
  29.         Enabled = False
  30.         ShortCut = 16463
  31.         Visible = False
  32.         OnClick = ObservingLogs1Click
  33.       end
  34.       object N5: TMenuItem
  35.         Caption = '-'
  36.         ShortCut = 0
  37.         Visible = False
  38.       end
  39.       object PrintSky1: TMenuItem
  40.         Caption = '&Print Sky'
  41.         ShortCut = 120
  42.         OnClick = PrintSky1Click
  43.       end
  44.       object PrinterSetup1: TMenuItem
  45.         Caption = 'Printer Setup'
  46.         ShortCut = 8312
  47.         OnClick = PrinterSetup1Click
  48.       end
  49.       object N3: TMenuItem
  50.         Caption = '-'
  51.         ShortCut = 0
  52.       end
  53.       object Preferences: TMenuItem
  54.         Caption = '&Preferences...'
  55.         Enabled = False
  56.         ShortCut = 0
  57.         Visible = False
  58.         object PreferencesStore1: TMenuItem
  59.           Caption = '&Store'
  60.           ShortCut = 118
  61.           OnClick = PreferencesStore1Click
  62.         end
  63.         object PreferencesRestore1: TMenuItem
  64.           Caption = '&Restore'
  65.           ShortCut = 8310
  66.           OnClick = PreferencesRestore1Click
  67.         end
  68.       end
  69.       object Setup1: TMenuItem
  70.         Caption = '&Setup'
  71.         ShortCut = 0
  72.         OnClick = Setup1Click
  73.       end
  74.       object N4: TMenuItem
  75.         Caption = '-'
  76.         ShortCut = 0
  77.       end
  78.       object Quit1: TMenuItem
  79.         Caption = '&Quit'
  80.         ShortCut = 0
  81.         OnClick = Quit1Click
  82.       end
  83.     end
  84.     object Set1: TMenuItem
  85.       Caption = '&View'
  86.       ShortCut = 0
  87.       object Sky1: TMenuItem
  88.         Caption = '&Sky'
  89.         ShortCut = 0
  90.         OnClick = Sky1Click
  91.       end
  92.       object FullScreen1: TMenuItem
  93.         Caption = '&Full Screen'
  94.         ShortCut = 16467
  95.         OnClick = FullScreen1Click
  96.       end
  97.       object Toolbars1: TMenuItem
  98.         Caption = '-'
  99.         ShortCut = 0
  100.       end
  101.       object Timebar1: TMenuItem
  102.         Caption = '&Time bar'
  103.         ShortCut = 0
  104.         OnClick = Timebar1Click
  105.       end
  106.       object Viewbar1: TMenuItem
  107.         Caption = '&View bar'
  108.         Checked = True
  109.         ShortCut = 16470
  110.         OnClick = Viewbar1Click
  111.       end
  112.       object N1: TMenuItem
  113.         Caption = '-'
  114.         ShortCut = 0
  115.         Visible = False
  116.       end
  117.       object LiveEphem1: TMenuItem
  118.         Caption = '&Live Ephem'
  119.         Enabled = False
  120.         ShortCut = 16460
  121.         Visible = False
  122.       end
  123.       object ObservingList1: TMenuItem
  124.         Caption = '&Observing List'
  125.         Enabled = False
  126.         ShortCut = 16468
  127.         Visible = False
  128.       end
  129.       object N16: TMenuItem
  130.         Caption = '-'
  131.         ShortCut = 0
  132.         Visible = False
  133.       end
  134.       object PictureWindow1: TMenuItem
  135.         Caption = '&Picture window'
  136.         Enabled = False
  137.         ShortCut = 16471
  138.         Visible = False
  139.         OnClick = PictureWindow1Click
  140.       end
  141.     end
  142.     object Options1: TMenuItem
  143.       Caption = '&Options'
  144.       ShortCut = 0
  145.       object PlotStars1: TMenuItem
  146.         Caption = 'Redraw &Sky'
  147.         ShortCut = 123
  148.         OnClick = PlotStars1Click
  149.       end
  150.       object RefreshStars1: TMenuItem
  151.         Caption = '&Refresh Sky'
  152.         ShortCut = 0
  153.         OnClick = RefreshStars1Click
  154.       end
  155.       object N7: TMenuItem
  156.         Caption = '-'
  157.         ShortCut = 0
  158.       end
  159.       object Field1: TMenuItem
  160.         Caption = 'Field'
  161.         ShortCut = 0
  162.         object Centre1: TMenuItem
  163.           Caption = '&Centre'
  164.           ShortCut = 0
  165.           OnClick = Centre1Click
  166.         end
  167.         object Zoom1: TMenuItem
  168.           Caption = '&Zoom'
  169.           ShortCut = 0
  170.           OnClick = Zoom1Click
  171.         end
  172.         object Unzoom1: TMenuItem
  173.           Caption = '&Unzoom'
  174.           ShortCut = 0
  175.           OnClick = Unzoom1Click
  176.         end
  177.         object Reset1: TMenuItem
  178.           Caption = '&Reset'
  179.           ShortCut = 16466
  180.           OnClick = Reset1Click
  181.         end
  182.       end
  183.       object Viewpoint1: TMenuItem
  184.         Caption = 'Viewpoint'
  185.         ShortCut = 0
  186.         object Direction1: TMenuItem
  187.           Caption = '&Direction'
  188.           ShortCut = 0
  189.           object North1: TMenuItem
  190.             Caption = '&North'
  191.             ShortCut = 0
  192.             OnClick = North1Click
  193.           end
  194.           object South1: TMenuItem
  195.             Caption = '&South'
  196.             ShortCut = 0
  197.             OnClick = South1Click
  198.           end
  199.           object East1: TMenuItem
  200.             Caption = '&East'
  201.             ShortCut = 0
  202.             OnClick = East1Click
  203.           end
  204.           object West1: TMenuItem
  205.             Caption = '&West'
  206.             ShortCut = 0
  207.             OnClick = West1Click
  208.           end
  209.         end
  210.         object Elevation1: TMenuItem
  211.           Caption = '&Elevation'
  212.           ShortCut = 0
  213.           object Horizon1: TMenuItem
  214.             Caption = '&Horizon'
  215.             ShortCut = 16456
  216.             OnClick = Horizon1Click
  217.           end
  218.           object Zenith1: TMenuItem
  219.             Caption = '&Zenith'
  220.             ShortCut = 16470
  221.             OnClick = Zenith1Click
  222.           end
  223.           object Intermediate1: TMenuItem
  224.             Caption = '&Intermediate'
  225.             ShortCut = 16457
  226.             OnClick = Intermediate1Click
  227.           end
  228.         end
  229.         object Location1: TMenuItem
  230.           Caption = '&Location'
  231.           ShortCut = 0
  232.           object WorldMap1: TMenuItem
  233.             Caption = '&World Map'
  234.             ShortCut = 0
  235.             OnClick = WorldMap1Click
  236.           end
  237.           object Set2: TMenuItem
  238.             Caption = '&Set'
  239.             ShortCut = 0
  240.             OnClick = Set2Click
  241.           end
  242.           object Database1: TMenuItem
  243.             Caption = '&Database'
  244.             Enabled = False
  245.             ShortCut = 0
  246.           end
  247.         end
  248.         object Autocenter1: TMenuItem
  249.           Caption = '&Auto-center'
  250.           ShortCut = 0
  251.           OnClick = Autocenter1Click
  252.         end
  253.       end
  254.       object Clock1: TMenuItem
  255.         Caption = 'Clock'
  256.         ShortCut = 0
  257.         object Running1: TMenuItem
  258.           Caption = '&Running'
  259.           ShortCut = 0
  260.           OnClick = Running1Click
  261.         end
  262.         object Stopped1: TMenuItem
  263.           Caption = '&Stopped'
  264.           ShortCut = 0
  265.           OnClick = Stopped1Click
  266.         end
  267.         object Bar1: TMenuItem
  268.           Caption = '&Bar'
  269.           ShortCut = 0
  270.           OnClick = Bar1Click
  271.         end
  272.         object N9: TMenuItem
  273.           Caption = '-'
  274.           ShortCut = 0
  275.         end
  276.         object Forward1: TMenuItem
  277.           Caption = '&Forward'
  278.           ShortCut = 0
  279.           object Minute2: TMenuItem
  280.             Caption = '&Minute'
  281.             ShortCut = 0
  282.             OnClick = Minute2Click
  283.           end
  284.           object Hour2: TMenuItem
  285.             Caption = '&Hour'
  286.             ShortCut = 0
  287.             OnClick = Hour2Click
  288.           end
  289.           object Day2: TMenuItem
  290.             Caption = '&Day'
  291.             ShortCut = 0
  292.             OnClick = Day2Click
  293.           end
  294.           object Month2: TMenuItem
  295.             Caption = 'Mo&nth'
  296.             ShortCut = 0
  297.             OnClick = Month2Click
  298.           end
  299.           object Year2: TMenuItem
  300.             Caption = '&Year'
  301.             ShortCut = 0
  302.             OnClick = Year2Click
  303.           end
  304.         end
  305.         object Back1: TMenuItem
  306.           Caption = '&Back'
  307.           ShortCut = 0
  308.           object Minute1: TMenuItem
  309.             Caption = '&Minute'
  310.             ShortCut = 0
  311.             OnClick = Minute1Click
  312.           end
  313.           object Hour1: TMenuItem
  314.             Caption = '&Hour'
  315.             ShortCut = 0
  316.           end
  317.           object Day1: TMenuItem
  318.             Caption = '&Day'
  319.             ShortCut = 0
  320.           end
  321.           object Month1: TMenuItem
  322.             Caption = 'Mo&nth'
  323.             ShortCut = 0
  324.           end
  325.           object Year1: TMenuItem
  326.             Caption = '&Year'
  327.             ShortCut = 0
  328.           end
  329.         end
  330.         object Reset2: TMenuItem
  331.           Caption = 'R&eset'
  332.           ShortCut = 0
  333.           OnClick = Reset2Click
  334.         end
  335.         object Set5: TMenuItem
  336.           Caption = 'Se&t'
  337.           ShortCut = 0
  338.           OnClick = Set5Click
  339.         end
  340.       end
  341.       object Find1: TMenuItem
  342.         Caption = 'Find'
  343.         ShortCut = 0
  344.         OnClick = Find1Click
  345.       end
  346.       object N10: TMenuItem
  347.         Caption = '-'
  348.         ShortCut = 0
  349.       end
  350.       object Data1: TMenuItem
  351.         Caption = '&Data'
  352.         ShortCut = 0
  353.         object Report1: TMenuItem
  354.           Caption = '&Report'
  355.           ShortCut = 0
  356.           object ShowHide1: TMenuItem
  357.             Caption = '&Show/Hide'
  358.             ShortCut = 0
  359.             OnClick = ShowHide1Click
  360.           end
  361.           object Tailor1: TMenuItem
  362.             Caption = '&Tailor'
  363.             Enabled = False
  364.             ShortCut = 0
  365.             Visible = False
  366.             OnClick = Tailor1Click
  367.           end
  368.         end
  369.         object DataBrowser1: TMenuItem
  370.           Caption = '&Browser'
  371.           Enabled = False
  372.           ShortCut = 0
  373.         end
  374.         object Readout1: TMenuItem
  375.           Caption = 'Read&out'
  376.           Enabled = False
  377.           ShortCut = 0
  378.         end
  379.       end
  380.       object Lines1: TMenuItem
  381.         Caption = 'Lines'
  382.         ShortCut = 0
  383.         object Horizon2: TMenuItem
  384.           Caption = '&Horizon'
  385.           ShortCut = 0
  386.           object Setonoff5: TMenuItem
  387.             Caption = '&Set on/off'
  388.             ShortCut = 0
  389.             OnClick = Setonoff5Click
  390.           end
  391.           object Legend1: TMenuItem
  392.             Caption = '&Legend'
  393.             ShortCut = 0
  394.             OnClick = Legend1Click
  395.           end
  396.           object Colour5: TMenuItem
  397.             Caption = '&Colour'
  398.             Enabled = False
  399.             ShortCut = 0
  400.             OnClick = Colour5Click
  401.           end
  402.         end
  403.         object Aequator1: TMenuItem
  404.           Caption = '&Aequator'
  405.           ShortCut = 0
  406.           object Setonoff4: TMenuItem
  407.             Caption = '&Set on/off'
  408.             ShortCut = 0
  409.             OnClick = Setonoff4Click
  410.           end
  411.           object Colour4: TMenuItem
  412.             Caption = '&Colour'
  413.             Enabled = False
  414.             ShortCut = 0
  415.             OnClick = Colour4Click
  416.           end
  417.         end
  418.         object Ecliptic1: TMenuItem
  419.           Caption = '&Ecliptic'
  420.           ShortCut = 0
  421.           object Setonoff3: TMenuItem
  422.             Caption = '&Set on/off'
  423.             ShortCut = 0
  424.             OnClick = Setonoff3Click
  425.           end
  426.           object Colour3: TMenuItem
  427.             Caption = '&Colour'
  428.             Enabled = False
  429.             ShortCut = 0
  430.             OnClick = Colour3Click
  431.           end
  432.         end
  433.         object Constel1: TMenuItem
  434.           Caption = '&Constel'
  435.           ShortCut = 0
  436.           object Setonoff2: TMenuItem
  437.             Caption = '&Set on/off'
  438.             ShortCut = 0
  439.             OnClick = Setonoff2Click
  440.           end
  441.           object Boundaries1: TMenuItem
  442.             Caption = '&Boundaries'
  443.             ShortCut = 0
  444.             object Setonoff1: TMenuItem
  445.               Caption = '&Set on/off'
  446.               ShortCut = 16450
  447.               OnClick = Setonoff1Click
  448.             end
  449.             object Colour2: TMenuItem
  450.               Caption = '&Colour'
  451.               ShortCut = 0
  452.               OnClick = Colour2Click
  453.             end
  454.           end
  455.           object Names1: TMenuItem
  456.             Caption = '&Names'
  457.             ShortCut = 0
  458.             OnClick = Names1Click
  459.           end
  460.           object Colour1: TMenuItem
  461.             Caption = '&Colour'
  462.             Enabled = False
  463.             ShortCut = 0
  464.             OnClick = Colour1Click
  465.           end
  466.         end
  467.       end
  468.       object Grids1: TMenuItem
  469.         Caption = 'Grids'
  470.         ShortCut = 0
  471.         object EquatorialRADec1: TMenuItem
  472.           Caption = '&Equatorial  RA/Dec'
  473.           ShortCut = 0
  474.           object Setonoff8: TMenuItem
  475.             Caption = '&Set on/off'
  476.             ShortCut = 0
  477.             OnClick = Setonoff8Click
  478.           end
  479.           object Colour7: TMenuItem
  480.             Caption = '&Colour'
  481.             Enabled = False
  482.             ShortCut = 0
  483.             OnClick = Colour7Click
  484.           end
  485.         end
  486.         object HorizonAltAz1: TMenuItem
  487.           Caption = '&Horizon  Alt/Az'
  488.           ShortCut = 0
  489.           object Setonoff7: TMenuItem
  490.             Caption = '&Set on/off'
  491.             ShortCut = 0
  492.             OnClick = Setonoff7Click
  493.           end
  494.           object Colour6: TMenuItem
  495.             Caption = '&Colour'
  496.             Enabled = False
  497.             ShortCut = 0
  498.             OnClick = Colour6Click
  499.           end
  500.         end
  501.         object Eclipticlambdabeta1: TMenuItem
  502.           Caption = '&Ecliptic  lambda/beta'
  503.           Enabled = False
  504.           ShortCut = 0
  505.           object Draw1: TMenuItem
  506.             Caption = '&Draw'
  507.             ShortCut = 0
  508.           end
  509.           object Setonoff6: TMenuItem
  510.             Caption = '&Set on/off'
  511.             ShortCut = 0
  512.           end
  513.         end
  514.       end
  515.       object Objects1: TMenuItem
  516.         Caption = 'Objects'
  517.         ShortCut = 0
  518.         object Stars1: TMenuItem
  519.           Caption = '&Stars'
  520.           ShortCut = 0
  521.           object More1: TMenuItem
  522.             Caption = '&More'
  523.             Enabled = False
  524.             ShortCut = 0
  525.           end
  526.           object Fewer1: TMenuItem
  527.             Caption = '&Fewer'
  528.             Enabled = False
  529.             ShortCut = 0
  530.           end
  531.           object Autoresolve1: TMenuItem
  532.             Caption = '&Autoresolve'
  533.             ShortCut = 0
  534.             OnClick = Autoresolve1Click
  535.           end
  536.           object Names5: TMenuItem
  537.             Caption = '&Names'
  538.             ShortCut = 0
  539.             OnClick = Names5Click
  540.           end
  541.           object Designations1: TMenuItem
  542.             Caption = '&Designations'
  543.             ShortCut = 0
  544.             OnClick = Designations1Click
  545.           end
  546.           object N11: TMenuItem
  547.             Caption = '-'
  548.             ShortCut = 0
  549.           end
  550.           object Style2: TMenuItem
  551.             Caption = '&Style'
  552.             ShortCut = 0
  553.             object Realistic1: TMenuItem
  554.               Caption = '&Realistic'
  555.               GroupIndex = 2
  556.               ShortCut = 121
  557.               OnClick = Realistic1Click
  558.             end
  559.             object Photoplate1: TMenuItem
  560.               Caption = '&Photoplate'
  561.               GroupIndex = 2
  562.               ShortCut = 8313
  563.               OnClick = Photoplate1Click
  564.             end
  565.             object Adjust1: TMenuItem
  566.               Caption = '&Adjust'
  567.               Enabled = False
  568.               GroupIndex = 2
  569.               ShortCut = 0
  570.               OnClick = Adjust1Click
  571.             end
  572.           end
  573.         end
  574.         object Planets1: TMenuItem
  575.           Caption = '&Planets'
  576.           ShortCut = 0
  577.           object Setonoff11: TMenuItem
  578.             Caption = '&Set on/off'
  579.             ShortCut = 0
  580.             OnClick = Setonoff11Click
  581.           end
  582.           object Names4: TMenuItem
  583.             Caption = '&Names'
  584.             ShortCut = 0
  585.             OnClick = Names4Click
  586.           end
  587.         end
  588.         object Messier1: TMenuItem
  589.           Caption = '&Messier'
  590.           ShortCut = 0
  591.           object Setonoff10: TMenuItem
  592.             Caption = '&Set on/off'
  593.             ShortCut = 16461
  594.             OnClick = Setonoff10Click
  595.           end
  596.           object Catalog2: TMenuItem
  597.             Caption = '&Catalog'
  598.             ShortCut = 0
  599.             OnClick = Catalog2Click
  600.           end
  601.           object Names3: TMenuItem
  602.             Caption = '&Names'
  603.             Enabled = False
  604.             ShortCut = 0
  605.             OnClick = Names3Click
  606.           end
  607.           object Colour8: TMenuItem
  608.             Caption = '&Colour'
  609.             Enabled = False
  610.             ShortCut = 0
  611.             OnClick = Colour8Click
  612.           end
  613.         end
  614.         object NGC1: TMenuItem
  615.           Caption = '&NGC'
  616.           ShortCut = 0
  617.           object Setonoff9: TMenuItem
  618.             Caption = '&Set on/off'
  619.             ShortCut = 16462
  620.             OnClick = Setonoff9Click
  621.           end
  622.           object Catalog1: TMenuItem
  623.             Caption = '&Catalog'
  624.             ShortCut = 0
  625.             OnClick = Catalog1Click
  626.           end
  627.           object Names2: TMenuItem
  628.             Caption = '&Names'
  629.             Enabled = False
  630.             ShortCut = 0
  631.           end
  632.         end
  633.         object Comets1: TMenuItem
  634.           Caption = '&Comets'
  635.           Enabled = False
  636.           ShortCut = 0
  637.           OnClick = Comets1Click
  638.         end
  639.         object Asteroids1: TMenuItem
  640.           Caption = '&Asteroids'
  641.           Enabled = False
  642.           ShortCut = 0
  643.         end
  644.       end
  645.       object N12: TMenuItem
  646.         Caption = '-'
  647.         ShortCut = 0
  648.       end
  649.       object Settings1: TMenuItem
  650.         Caption = 'Settings'
  651.         ShortCut = 0
  652.         object Effects1: TMenuItem
  653.           Caption = '&Effects'
  654.           ShortCut = 0
  655.           object Atmospheric1: TMenuItem
  656.             Caption = 'Atmospheric'
  657.             ShortCut = 0
  658.             object Refraction1: TMenuItem
  659.               Caption = '&Refraction'
  660.               Enabled = False
  661.               ShortCut = 0
  662.               OnClick = Refraction1Click
  663.             end
  664.             object Extinction1: TMenuItem
  665.               Caption = '&Extinction'
  666.               Enabled = False
  667.               ShortCut = 0
  668.             end
  669.             object Scintillation1: TMenuItem
  670.               Caption = '&Scintillation'
  671.               Enabled = False
  672.               ShortCut = 0
  673.               OnClick = Scintillation1Click
  674.             end
  675.           end
  676.           object Gravitational1: TMenuItem
  677.             Caption = '&Gravitational'
  678.             ShortCut = 0
  679.             object Precession1: TMenuItem
  680.               Caption = '&Precession'
  681.               Enabled = False
  682.               ShortCut = 16464
  683.               OnClick = Precession1Click
  684.             end
  685.             object Nutation1: TMenuItem
  686.               Caption = '&Nutation'
  687.               Enabled = False
  688.               ShortCut = 0
  689.             end
  690.           end
  691.           object N14: TMenuItem
  692.             Caption = '-'
  693.             ShortCut = 0
  694.           end
  695.           object Brightness1: TMenuItem
  696.             Caption = 'Brightness'
  697.             ShortCut = 0
  698.             object Increase1: TMenuItem
  699.               Caption = '&Increase'
  700.               ShortCut = 0
  701.             end
  702.             object Decrease1: TMenuItem
  703.               Caption = '&Decrease'
  704.               ShortCut = 0
  705.             end
  706.           end
  707.           object Tint1: TMenuItem
  708.             Caption = 'Tint'
  709.             ShortCut = 0
  710.             object Whiten1: TMenuItem
  711.               Caption = '&Whiten'
  712.               Enabled = False
  713.               ShortCut = 0
  714.             end
  715.             object Darken1: TMenuItem
  716.               Caption = '&Darken'
  717.               Enabled = False
  718.               ShortCut = 0
  719.             end
  720.             object Restore1: TMenuItem
  721.               Caption = '&Restore'
  722.               Enabled = False
  723.               ShortCut = 0
  724.             end
  725.           end
  726.         end
  727.         object Cursor1: TMenuItem
  728.           Caption = '&Cursor'
  729.           ShortCut = 0
  730.           object Hide1: TMenuItem
  731.             Caption = '&Hide'
  732.             ShortCut = 0
  733.             OnClick = Hide1Click
  734.           end
  735.           object Show1: TMenuItem
  736.             Caption = '&Show'
  737.             ShortCut = 0
  738.             OnClick = Show1Click
  739.           end
  740.         end
  741.         object Panels1: TMenuItem
  742.           Caption = '&Panels'
  743.           ShortCut = 0
  744.           object Font1: TMenuItem
  745.             Caption = '&Font'
  746.             ShortCut = 0
  747.           end
  748.           object Border1: TMenuItem
  749.             Caption = '&Border'
  750.             ShortCut = 0
  751.           end
  752.         end
  753.         object Labels1: TMenuItem
  754.           Caption = '&Labels'
  755.           ShortCut = 0
  756.           object Bright1: TMenuItem
  757.             Caption = '&Bright'
  758.             ShortCut = 0
  759.             OnClick = Bright1Click
  760.           end
  761.           object Small1: TMenuItem
  762.             Caption = '&Small'
  763.             Enabled = False
  764.             ShortCut = 0
  765.             Visible = False
  766.             OnClick = Small1Click
  767.           end
  768.           object Medium1: TMenuItem
  769.             Caption = '&Medium'
  770.             ShortCut = 0
  771.             OnClick = Medium1Click
  772.           end
  773.           object Large1: TMenuItem
  774.             Caption = '&Large'
  775.             ShortCut = 0
  776.             OnClick = Large1Click
  777.           end
  778.         end
  779.         object Window1: TMenuItem
  780.           Caption = '&Window'
  781.           ShortCut = 0
  782.           object FullScreen2: TMenuItem
  783.             Caption = '&Full Screen'
  784.             Enabled = False
  785.             ShortCut = 16467
  786.             Visible = False
  787.             OnClick = FullScreen2Click
  788.           end
  789.           object PrintSky2: TMenuItem
  790.             Caption = '&Print Sky'
  791.             ShortCut = 120
  792.             OnClick = PrintSky2Click
  793.           end
  794.           object PrintMode1: TMenuItem
  795.             Caption = 'Print &Mode'
  796.             ShortCut = 0
  797.             object Mono1: TMenuItem
  798.               Caption = '&Mono'
  799.               GroupIndex = 1
  800.               ShortCut = 0
  801.               OnClick = Mono1Click
  802.             end
  803.             object Colour9: TMenuItem
  804.               Caption = '&Colour'
  805.               Enabled = False
  806.               GroupIndex = 1
  807.               ShortCut = 0
  808.               OnClick = Colour9Click
  809.             end
  810.           end
  811.           object Showhints1: TMenuItem
  812.             Caption = 'Show &hints'
  813.             ShortCut = 0
  814.           end
  815.           object N13: TMenuItem
  816.             Caption = '-'
  817.             ShortCut = 0
  818.           end
  819.           object Guide2: TMenuItem
  820.             Caption = '&Guide'
  821.             ShortCut = 112
  822.             OnClick = Guide2Click
  823.           end
  824.           object LiveEphem2: TMenuItem
  825.             Caption = 'Live &Ephem'
  826.             Enabled = False
  827.             ShortCut = 16460
  828.             Visible = False
  829.           end
  830.           object Log1: TMenuItem
  831.             Caption = '&Log'
  832.             Enabled = False
  833.             ShortCut = 16463
  834.             Visible = False
  835.           end
  836.         end
  837.       end
  838.     end
  839.     object Search1: TMenuItem
  840.       Caption = '&Search'
  841.       ShortCut = 0
  842.       object FindbyName1: TMenuItem
  843.         Caption = '&Find by Name'
  844.         ShortCut = 0
  845.         OnClick = FindbyName1Click
  846.       end
  847.       object FindbyDesig1: TMenuItem
  848.         Caption = 'Find by &Designation'
  849.         ShortCut = 0
  850.         OnClick = FindbyDesig1Click
  851.       end
  852.     end
  853.     object Help1: TMenuItem
  854.       Caption = '&Help'
  855.       ShortCut = 0
  856.       object AboutCoeli1: TMenuItem
  857.         Caption = '&About'
  858.         ShortCut = 0
  859.         OnClick = AboutCoeli1Click
  860.       end
  861.       object Products1: TMenuItem
  862.         Caption = '&Products'
  863.         ShortCut = 0
  864.         OnClick = Products1Click
  865.       end
  866.       object Usage1: TMenuItem
  867.         Caption = '&Usage'
  868.         ShortCut = 16469
  869.         OnClick = Usage1Click
  870.       end
  871.       object N8: TMenuItem
  872.         Caption = '-'
  873.         ShortCut = 0
  874.       end
  875.       object ADASTRA1: TMenuItem
  876.         Caption = 'A D   A S T R A'
  877.         Enabled = False
  878.         ShortCut = 0
  879.       end
  880.       object N17: TMenuItem
  881.         Caption = '-'
  882.         ShortCut = 0
  883.       end
  884.       object Whatisit1: TMenuItem
  885.         Caption = '&What is it?'
  886.         ShortCut = 0
  887.         OnClick = Whatisit1Click
  888.       end
  889.       object Guide1: TMenuItem
  890.         Caption = '&Guide'
  891.         ShortCut = 112
  892.         OnClick = Guide1Click
  893.       end
  894.       object Register2: TMenuItem
  895.         Caption = '&Register'
  896.         ShortCut = 0
  897.         OnClick = Register2Click
  898.       end
  899.       object Upgrade1: TMenuItem
  900.         Caption = '&Upgrade'
  901.         ShortCut = 0
  902.         OnClick = Upgrade1Click
  903.       end
  904.       object N6: TMenuItem
  905.         Caption = '-'
  906.         ShortCut = 0
  907.       end
  908.       object Stella20001: TMenuItem
  909.         Caption = 'S T E L L A    2 0 0 0'
  910.         Enabled = False
  911.         ShortCut = 0
  912.       end
  913.       object N2: TMenuItem
  914.         Caption = '-'
  915.         ShortCut = 0
  916.       end
  917.       object Overview1: TMenuItem
  918.         Caption = '&Overview'
  919.         ShortCut = 16496
  920.         OnClick = Overview1Click
  921.       end
  922.       object Keys1: TMenuItem
  923.         Caption = '&Keys'
  924.         ShortCut = 8304
  925.         OnClick = Keys1Click
  926.       end
  927.       object N15: TMenuItem
  928.         Caption = '-'
  929.         ShortCut = 0
  930.       end
  931.       object License1: TMenuItem
  932.         Caption = '&License'
  933.         ShortCut = 0
  934.         OnClick = License1Click
  935.       end
  936.       object Registration1: TMenuItem
  937.         Caption = '&How to Order'
  938.         ShortCut = 0
  939.         OnClick = Registration1Click
  940.       end
  941.       object Register1: TMenuItem
  942.         Caption = '&Register'
  943.         Default = True
  944.         Enabled = False
  945.         ShortCut = 0
  946.         Visible = False
  947.         object ViaInternet1: TMenuItem
  948.           Caption = 'Via &Internet'
  949.           Default = True
  950.           Hint = 'Register at our secure online server'
  951.           ShortCut = 0
  952.           OnClick = ViaInternet1Click
  953.         end
  954.         object Australia: TMenuItem
  955.           Caption = '&Australia'
  956.           ShortCut = 0
  957.           object OrderviaWWW1: TMenuItem
  958.             Caption = '&Order via WWW'
  959.             ShortCut = 0
  960.             OnClick = OrderviaWWW1Click
  961.           end
  962.           object AussiFillform: TMenuItem
  963.             Caption = '&Fill form'
  964.             ShortCut = 0
  965.           end
  966.         end
  967.         object FreephoneUSA1: TMenuItem
  968.           Caption = 'Free &phone USA'
  969.           ShortCut = 0
  970.         end
  971.         object Fillform1: TMenuItem
  972.           Caption = '&Fill form'
  973.           ShortCut = 0
  974.         end
  975.       end
  976.     end
  977.   end
  978. end
  979.