object MainForm: TMainForm Left = 0 Top = 119 Width = 264 Height = 117 BorderIcons = [biSystemMenu, biMinimize] Caption = 'COELI - A d a s t r a : Approaching the Heavens' Color = 4194304 Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Scaled = False OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 125 TextHeight = 16 object MainMenu1: TMainMenu Left = 9 Top = 4 object File1: TMenuItem Caption = '&File' ShortCut = 0 object ObservingLogs1: TMenuItem Caption = '--- Observing Log ---' Enabled = False ShortCut = 16463 Visible = False OnClick = ObservingLogs1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 Visible = False end object PrintSky1: TMenuItem Caption = '&Print Sky' ShortCut = 120 OnClick = PrintSky1Click end object PrinterSetup1: TMenuItem Caption = 'Printer Setup' ShortCut = 8312 OnClick = PrinterSetup1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Preferences: TMenuItem Caption = '&Preferences...' Enabled = False ShortCut = 0 Visible = False object PreferencesStore1: TMenuItem Caption = '&Store' ShortCut = 118 OnClick = PreferencesStore1Click end object PreferencesRestore1: TMenuItem Caption = '&Restore' ShortCut = 8310 OnClick = PreferencesRestore1Click end end object Setup1: TMenuItem Caption = '&Setup' ShortCut = 0 OnClick = Setup1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object Quit1: TMenuItem Caption = '&Quit' ShortCut = 0 OnClick = Quit1Click end end object Set1: TMenuItem Caption = '&View' ShortCut = 0 object Sky1: TMenuItem Caption = '&Sky' ShortCut = 0 OnClick = Sky1Click end object FullScreen1: TMenuItem Caption = '&Full Screen' ShortCut = 16467 OnClick = FullScreen1Click end object Toolbars1: TMenuItem Caption = '-' ShortCut = 0 end object Timebar1: TMenuItem Caption = '&Time bar' ShortCut = 0 OnClick = Timebar1Click end object Viewbar1: TMenuItem Caption = '&View bar' Checked = True ShortCut = 16470 OnClick = Viewbar1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 Visible = False end object LiveEphem1: TMenuItem Caption = '&Live Ephem' Enabled = False ShortCut = 16460 Visible = False end object ObservingList1: TMenuItem Caption = '&Observing List' Enabled = False ShortCut = 16468 Visible = False end object N16: TMenuItem Caption = '-' ShortCut = 0 Visible = False end object PictureWindow1: TMenuItem Caption = '&Picture window' Enabled = False ShortCut = 16471 Visible = False OnClick = PictureWindow1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object PlotStars1: TMenuItem Caption = 'Redraw &Sky' ShortCut = 123 OnClick = PlotStars1Click end object RefreshStars1: TMenuItem Caption = '&Refresh Sky' ShortCut = 0 OnClick = RefreshStars1Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object Field1: TMenuItem Caption = 'Field' ShortCut = 0 object Centre1: TMenuItem Caption = '&Centre' ShortCut = 0 OnClick = Centre1Click end object Zoom1: TMenuItem Caption = '&Zoom' ShortCut = 0 OnClick = Zoom1Click end object Unzoom1: TMenuItem Caption = '&Unzoom' ShortCut = 0 OnClick = Unzoom1Click end object Reset1: TMenuItem Caption = '&Reset' ShortCut = 16466 OnClick = Reset1Click end end object Viewpoint1: TMenuItem Caption = 'Viewpoint' ShortCut = 0 object Direction1: TMenuItem Caption = '&Direction' ShortCut = 0 object North1: TMenuItem Caption = '&North' ShortCut = 0 OnClick = North1Click end object South1: TMenuItem Caption = '&South' ShortCut = 0 OnClick = South1Click end object East1: TMenuItem Caption = '&East' ShortCut = 0 OnClick = East1Click end object West1: TMenuItem Caption = '&West' ShortCut = 0 OnClick = West1Click end end object Elevation1: TMenuItem Caption = '&Elevation' ShortCut = 0 object Horizon1: TMenuItem Caption = '&Horizon' ShortCut = 16456 OnClick = Horizon1Click end object Zenith1: TMenuItem Caption = '&Zenith' ShortCut = 16470 OnClick = Zenith1Click end object Intermediate1: TMenuItem Caption = '&Intermediate' ShortCut = 16457 OnClick = Intermediate1Click end end object Location1: TMenuItem Caption = '&Location' ShortCut = 0 object WorldMap1: TMenuItem Caption = '&World Map' ShortCut = 0 OnClick = WorldMap1Click end object Set2: TMenuItem Caption = '&Set' ShortCut = 0 OnClick = Set2Click end object Database1: TMenuItem Caption = '&Database' Enabled = False ShortCut = 0 end end object Autocenter1: TMenuItem Caption = '&Auto-center' ShortCut = 0 OnClick = Autocenter1Click end end object Clock1: TMenuItem Caption = 'Clock' ShortCut = 0 object Running1: TMenuItem Caption = '&Running' ShortCut = 0 OnClick = Running1Click end object Stopped1: TMenuItem Caption = '&Stopped' ShortCut = 0 OnClick = Stopped1Click end object Bar1: TMenuItem Caption = '&Bar' ShortCut = 0 OnClick = Bar1Click end object N9: TMenuItem Caption = '-' ShortCut = 0 end object Forward1: TMenuItem Caption = '&Forward' ShortCut = 0 object Minute2: TMenuItem Caption = '&Minute' ShortCut = 0 OnClick = Minute2Click end object Hour2: TMenuItem Caption = '&Hour' ShortCut = 0 OnClick = Hour2Click end object Day2: TMenuItem Caption = '&Day' ShortCut = 0 OnClick = Day2Click end object Month2: TMenuItem Caption = 'Mo&nth' ShortCut = 0 OnClick = Month2Click end object Year2: TMenuItem Caption = '&Year' ShortCut = 0 OnClick = Year2Click end end object Back1: TMenuItem Caption = '&Back' ShortCut = 0 object Minute1: TMenuItem Caption = '&Minute' ShortCut = 0 OnClick = Minute1Click end object Hour1: TMenuItem Caption = '&Hour' ShortCut = 0 end object Day1: TMenuItem Caption = '&Day' ShortCut = 0 end object Month1: TMenuItem Caption = 'Mo&nth' ShortCut = 0 end object Year1: TMenuItem Caption = '&Year' ShortCut = 0 end end object Reset2: TMenuItem Caption = 'R&eset' ShortCut = 0 OnClick = Reset2Click end object Set5: TMenuItem Caption = 'Se&t' ShortCut = 0 OnClick = Set5Click end end object Find1: TMenuItem Caption = 'Find' ShortCut = 0 OnClick = Find1Click end object N10: TMenuItem Caption = '-' ShortCut = 0 end object Data1: TMenuItem Caption = '&Data' ShortCut = 0 object Report1: TMenuItem Caption = '&Report' ShortCut = 0 object ShowHide1: TMenuItem Caption = '&Show/Hide' ShortCut = 0 OnClick = ShowHide1Click end object Tailor1: TMenuItem Caption = '&Tailor' Enabled = False ShortCut = 0 Visible = False OnClick = Tailor1Click end end object DataBrowser1: TMenuItem Caption = '&Browser' Enabled = False ShortCut = 0 end object Readout1: TMenuItem Caption = 'Read&out' Enabled = False ShortCut = 0 end end object Lines1: TMenuItem Caption = 'Lines' ShortCut = 0 object Horizon2: TMenuItem Caption = '&Horizon' ShortCut = 0 object Setonoff5: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff5Click end object Legend1: TMenuItem Caption = '&Legend' ShortCut = 0 OnClick = Legend1Click end object Colour5: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour5Click end end object Aequator1: TMenuItem Caption = '&Aequator' ShortCut = 0 object Setonoff4: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff4Click end object Colour4: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour4Click end end object Ecliptic1: TMenuItem Caption = '&Ecliptic' ShortCut = 0 object Setonoff3: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff3Click end object Colour3: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour3Click end end object Constel1: TMenuItem Caption = '&Constel' ShortCut = 0 object Setonoff2: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff2Click end object Boundaries1: TMenuItem Caption = '&Boundaries' ShortCut = 0 object Setonoff1: TMenuItem Caption = '&Set on/off' ShortCut = 16450 OnClick = Setonoff1Click end object Colour2: TMenuItem Caption = '&Colour' ShortCut = 0 OnClick = Colour2Click end end object Names1: TMenuItem Caption = '&Names' ShortCut = 0 OnClick = Names1Click end object Colour1: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour1Click end end end object Grids1: TMenuItem Caption = 'Grids' ShortCut = 0 object EquatorialRADec1: TMenuItem Caption = '&Equatorial RA/Dec' ShortCut = 0 object Setonoff8: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff8Click end object Colour7: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour7Click end end object HorizonAltAz1: TMenuItem Caption = '&Horizon Alt/Az' ShortCut = 0 object Setonoff7: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff7Click end object Colour6: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour6Click end end object Eclipticlambdabeta1: TMenuItem Caption = '&Ecliptic lambda/beta' Enabled = False ShortCut = 0 object Draw1: TMenuItem Caption = '&Draw' ShortCut = 0 end object Setonoff6: TMenuItem Caption = '&Set on/off' ShortCut = 0 end end end object Objects1: TMenuItem Caption = 'Objects' ShortCut = 0 object Stars1: TMenuItem Caption = '&Stars' ShortCut = 0 object More1: TMenuItem Caption = '&More' Enabled = False ShortCut = 0 end object Fewer1: TMenuItem Caption = '&Fewer' Enabled = False ShortCut = 0 end object Autoresolve1: TMenuItem Caption = '&Autoresolve' ShortCut = 0 OnClick = Autoresolve1Click end object Names5: TMenuItem Caption = '&Names' ShortCut = 0 OnClick = Names5Click end object Designations1: TMenuItem Caption = '&Designations' ShortCut = 0 OnClick = Designations1Click end object N11: TMenuItem Caption = '-' ShortCut = 0 end object Style2: TMenuItem Caption = '&Style' ShortCut = 0 object Realistic1: TMenuItem Caption = '&Realistic' GroupIndex = 2 ShortCut = 121 OnClick = Realistic1Click end object Photoplate1: TMenuItem Caption = '&Photoplate' GroupIndex = 2 ShortCut = 8313 OnClick = Photoplate1Click end object Adjust1: TMenuItem Caption = '&Adjust' Enabled = False GroupIndex = 2 ShortCut = 0 OnClick = Adjust1Click end end end object Planets1: TMenuItem Caption = '&Planets' ShortCut = 0 object Setonoff11: TMenuItem Caption = '&Set on/off' ShortCut = 0 OnClick = Setonoff11Click end object Names4: TMenuItem Caption = '&Names' ShortCut = 0 OnClick = Names4Click end end object Messier1: TMenuItem Caption = '&Messier' ShortCut = 0 object Setonoff10: TMenuItem Caption = '&Set on/off' ShortCut = 16461 OnClick = Setonoff10Click end object Catalog2: TMenuItem Caption = '&Catalog' ShortCut = 0 OnClick = Catalog2Click end object Names3: TMenuItem Caption = '&Names' Enabled = False ShortCut = 0 OnClick = Names3Click end object Colour8: TMenuItem Caption = '&Colour' Enabled = False ShortCut = 0 OnClick = Colour8Click end end object NGC1: TMenuItem Caption = '&NGC' ShortCut = 0 object Setonoff9: TMenuItem Caption = '&Set on/off' ShortCut = 16462 OnClick = Setonoff9Click end object Catalog1: TMenuItem Caption = '&Catalog' ShortCut = 0 OnClick = Catalog1Click end object Names2: TMenuItem Caption = '&Names' Enabled = False ShortCut = 0 end end object Comets1: TMenuItem Caption = '&Comets' Enabled = False ShortCut = 0 OnClick = Comets1Click end object Asteroids1: TMenuItem Caption = '&Asteroids' Enabled = False ShortCut = 0 end end object N12: TMenuItem Caption = '-' ShortCut = 0 end object Settings1: TMenuItem Caption = 'Settings' ShortCut = 0 object Effects1: TMenuItem Caption = '&Effects' ShortCut = 0 object Atmospheric1: TMenuItem Caption = 'Atmospheric' ShortCut = 0 object Refraction1: TMenuItem Caption = '&Refraction' Enabled = False ShortCut = 0 OnClick = Refraction1Click end object Extinction1: TMenuItem Caption = '&Extinction' Enabled = False ShortCut = 0 end object Scintillation1: TMenuItem Caption = '&Scintillation' Enabled = False ShortCut = 0 OnClick = Scintillation1Click end end object Gravitational1: TMenuItem Caption = '&Gravitational' ShortCut = 0 object Precession1: TMenuItem Caption = '&Precession' Enabled = False ShortCut = 16464 OnClick = Precession1Click end object Nutation1: TMenuItem Caption = '&Nutation' Enabled = False ShortCut = 0 end end object N14: TMenuItem Caption = '-' ShortCut = 0 end object Brightness1: TMenuItem Caption = 'Brightness' ShortCut = 0 object Increase1: TMenuItem Caption = '&Increase' ShortCut = 0 end object Decrease1: TMenuItem Caption = '&Decrease' ShortCut = 0 end end object Tint1: TMenuItem Caption = 'Tint' ShortCut = 0 object Whiten1: TMenuItem Caption = '&Whiten' Enabled = False ShortCut = 0 end object Darken1: TMenuItem Caption = '&Darken' Enabled = False ShortCut = 0 end object Restore1: TMenuItem Caption = '&Restore' Enabled = False ShortCut = 0 end end end object Cursor1: TMenuItem Caption = '&Cursor' ShortCut = 0 object Hide1: TMenuItem Caption = '&Hide' ShortCut = 0 OnClick = Hide1Click end object Show1: TMenuItem Caption = '&Show' ShortCut = 0 OnClick = Show1Click end end object Panels1: TMenuItem Caption = '&Panels' ShortCut = 0 object Font1: TMenuItem Caption = '&Font' ShortCut = 0 end object Border1: TMenuItem Caption = '&Border' ShortCut = 0 end end object Labels1: TMenuItem Caption = '&Labels' ShortCut = 0 object Bright1: TMenuItem Caption = '&Bright' ShortCut = 0 OnClick = Bright1Click end object Small1: TMenuItem Caption = '&Small' Enabled = False ShortCut = 0 Visible = False OnClick = Small1Click end object Medium1: TMenuItem Caption = '&Medium' ShortCut = 0 OnClick = Medium1Click end object Large1: TMenuItem Caption = '&Large' ShortCut = 0 OnClick = Large1Click end end object Window1: TMenuItem Caption = '&Window' ShortCut = 0 object FullScreen2: TMenuItem Caption = '&Full Screen' Enabled = False ShortCut = 16467 Visible = False OnClick = FullScreen2Click end object PrintSky2: TMenuItem Caption = '&Print Sky' ShortCut = 120 OnClick = PrintSky2Click end object PrintMode1: TMenuItem Caption = 'Print &Mode' ShortCut = 0 object Mono1: TMenuItem Caption = '&Mono' GroupIndex = 1 ShortCut = 0 OnClick = Mono1Click end object Colour9: TMenuItem Caption = '&Colour' Enabled = False GroupIndex = 1 ShortCut = 0 OnClick = Colour9Click end end object Showhints1: TMenuItem Caption = 'Show &hints' ShortCut = 0 end object N13: TMenuItem Caption = '-' ShortCut = 0 end object Guide2: TMenuItem Caption = '&Guide' ShortCut = 112 OnClick = Guide2Click end object LiveEphem2: TMenuItem Caption = 'Live &Ephem' Enabled = False ShortCut = 16460 Visible = False end object Log1: TMenuItem Caption = '&Log' Enabled = False ShortCut = 16463 Visible = False end end end end object Search1: TMenuItem Caption = '&Search' ShortCut = 0 object FindbyName1: TMenuItem Caption = '&Find by Name' ShortCut = 0 OnClick = FindbyName1Click end object FindbyDesig1: TMenuItem Caption = 'Find by &Designation' ShortCut = 0 OnClick = FindbyDesig1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object AboutCoeli1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = AboutCoeli1Click end object Products1: TMenuItem Caption = '&Products' ShortCut = 0 OnClick = Products1Click end object Usage1: TMenuItem Caption = '&Usage' ShortCut = 16469 OnClick = Usage1Click end object N8: TMenuItem Caption = '-' ShortCut = 0 end object ADASTRA1: TMenuItem Caption = 'A D A S T R A' Enabled = False ShortCut = 0 end object N17: TMenuItem Caption = '-' ShortCut = 0 end object Whatisit1: TMenuItem Caption = '&What is it?' ShortCut = 0 OnClick = Whatisit1Click end object Guide1: TMenuItem Caption = '&Guide' ShortCut = 112 OnClick = Guide1Click end object Register2: TMenuItem Caption = '&Register' ShortCut = 0 OnClick = Register2Click end object Upgrade1: TMenuItem Caption = '&Upgrade' ShortCut = 0 OnClick = Upgrade1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object Stella20001: TMenuItem Caption = 'S T E L L A 2 0 0 0' Enabled = False ShortCut = 0 end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Overview1: TMenuItem Caption = '&Overview' ShortCut = 16496 OnClick = Overview1Click end object Keys1: TMenuItem Caption = '&Keys' ShortCut = 8304 OnClick = Keys1Click end object N15: TMenuItem Caption = '-' ShortCut = 0 end object License1: TMenuItem Caption = '&License' ShortCut = 0 OnClick = License1Click end object Registration1: TMenuItem Caption = '&How to Order' ShortCut = 0 OnClick = Registration1Click end object Register1: TMenuItem Caption = '&Register' Default = True Enabled = False ShortCut = 0 Visible = False object ViaInternet1: TMenuItem Caption = 'Via &Internet' Default = True Hint = 'Register at our secure online server' ShortCut = 0 OnClick = ViaInternet1Click end object Australia: TMenuItem Caption = '&Australia' ShortCut = 0 object OrderviaWWW1: TMenuItem Caption = '&Order via WWW' ShortCut = 0 OnClick = OrderviaWWW1Click end object AussiFillform: TMenuItem Caption = '&Fill form' ShortCut = 0 end end object FreephoneUSA1: TMenuItem Caption = 'Free &phone USA' ShortCut = 0 end object Fillform1: TMenuItem Caption = '&Fill form' ShortCut = 0 end end end end end