object LogForm: TLogForm Left = 258 Top = 115 Width = 550 Height = 540 BorderIcons = [biSystemMenu, biMinimize] Caption = 'Stella 2000 Observation Log' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop PopupMenu = PopupMenu1 Scaled = False ShowHint = True OnClose = FormClose OnCreate = FormCreate OnResize = FormResize OnShow = FormShow PixelsPerInch = 125 TextHeight = 16 object BackPanel: TPanel Left = 9 Top = 264 Width = 526 Height = 193 Caption = 'Remarks:' Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Memo1: TRichEdit Left = 16 Top = 8 Width = 496 Height = 177 Hint = 'This month'#39's permanent log record' BorderStyle = bsNone ParentColor = True PlainText = True ScrollBars = ssVertical TabOrder = 0 end end object ButtonPanel1: TPanel Left = 8 Top = 464 Width = 524 Height = 40 TabOrder = 1 object CloseButton: TButton Left = 440 Top = 8 Width = 75 Height = 25 Caption = 'Close' TabOrder = 0 OnClick = CloseButtonClick end object StatusNotes: TPanel Left = 8 Top = 6 Width = 185 Height = 29 BevelOuter = bvLowered Caption = 'StatusNotes' Font.Color = clGray Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object NewButton: TButton Left = 200 Top = 8 Width = 75 Height = 25 Hint = 'Start a fresh observation' Caption = 'New Entry' TabOrder = 2 OnClick = NewButtonClick end object AddButton: TButton Left = 280 Top = 8 Width = 75 Height = 25 Hint = 'Record current observation' Caption = 'Add Entry' TabOrder = 3 OnClick = AddButtonClick end object ViewButton: TButton Left = 360 Top = 8 Width = 75 Height = 25 Hint = 'Review/edit past logs' Caption = 'View Logs' TabOrder = 4 OnClick = ViewButtonClick end end object IndexPanel: TPanel Left = 11 Top = 215 Width = 523 Height = 44 Caption = 'IndexPanel' TabOrder = 2 object ContentsBox: TComboBox Left = 120 Top = 8 Width = 395 Height = 27 Hint = 'Enter word(s) to search for' Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 19 ParentFont = False Sorted = True TabOrder = 0 end object FindButton: TButton Left = 16 Top = 8 Width = 75 Height = 25 Hint = 'Click to search for word(s)' Caption = 'Find +' TabOrder = 1 OnClick = FindButtonClick end end object DataEntryPanel: TPanel Left = 10 Top = 22 Width = 524 Height = 187 BevelOuter = bvLowered Caption = 'DataEntryPanel' TabOrder = 3 object TimeBox: TEdit Left = 72 Top = 8 Width = 59 Height = 27 Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object TimeLabel: TPanel Left = 8 Top = 8 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Time:' TabOrder = 6 end object DateLabel: TPanel Left = 136 Top = 8 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Date:' TabOrder = 7 end object PlaceLabel: TPanel Left = 296 Top = 8 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Place:' TabOrder = 8 end object RemarksMemo: TMemo Left = 6 Top = 88 Width = 511 Height = 88 Hint = 'Record your observation here' Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] Lines.Strings = ( '') ParentFont = False ScrollBars = ssVertical TabOrder = 5 end object CndxLabel: TPanel Left = 232 Top = 48 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Cndx:' TabOrder = 9 end object InstrumentLabel: TPanel Left = 8 Top = 48 Width = 58 Height = 26 BevelOuter = bvLowered Caption = 'Instr.' TabOrder = 10 end object InstrumentBox: TComboBox Left = 72 Top = 48 Width = 152 Height = 27 Hint = 'Observed with...' Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 19 Items.Strings = ( 'Naked eye' 'Opera glass' 'Binoculars' 'Binoculars 7x50' 'Binoculars 8x30' 'Binoculars 8x40' 'Binoculars 9x63' 'Binoculars 10x50' 'Binoculars 20x50' 'Binoculars 20x60' 'Binoculars 20x70' 'Telescope' 'Reflector' '4" Reflector' '6" Reflector' '8" Reflector' '10" Reflector' 'Refractor' '2" Refractor' '3" Refractor' '4" Refractor' 'Newtonian' '6" Newtonian' '8" Newtonian' '10" Newtonian' 'Cassegrain' '4" Cassegrain' '6" Cassegrain' '8" Cassegrain' '10" Cassegrain') ParentFont = False TabOrder = 3 end object DateBox: TComboBox Left = 199 Top = 7 Width = 92 Height = 27 Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 19 Items.Strings = ( 'Naked eye' 'Binoculars 1' 'Binoculars 2' 'Telescope 1' 'Telescope 2' 'Telescope 3') ParentFont = False TabOrder = 1 end object CndxBox: TComboBox Left = 296 Top = 48 Width = 219 Height = 27 Hint = 'Observing conditions' Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 19 Items.Strings = ( 'Exceptional' 'Good' 'Average' 'Poor' 'Slight haze' 'Haze' 'Some cloud' 'Urban glow' 'Weak moonlight' 'Moonlight' 'Strong moonlight' 'Faint twilight' 'Twilight' 'Astronomical twilight' 'Nautical twilight' 'Civil twilight' 'Pre-sunrise' 'Post-sunset' 'Sunrise' 'Sunset' 'Daylight') ParentFont = False TabOrder = 4 end object PlaceBox: TComboBox Left = 360 Top = 8 Width = 154 Height = 27 Color = 4194304 Font.Color = clAqua Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 19 Items.Strings = ( 'Naked eye' 'Binoculars' 'Binoculars 8x30' 'Binoculars 8x40' 'Binoculars 9x63' 'Binoculars 10x50' 'Binoculars 20x50' 'Binoculars 20x60' 'Binoculars 1' 'Binoculars 2' 'Telescope' '4" Reflector' '6" Reflector' '8" Reflector' '10" Reflector' '2" Refractor' '3" Refractor' 'Telescope 1' 'Telescope 2' 'Telescope 3') ParentFont = False TabOrder = 2 end end object PopupMenu1: TPopupMenu Left = 18 Top = 350 object Copy1: TMenuItem Caption = 'Copy' ShortCut = 0 OnClick = Copy1Click end object Cut1: TMenuItem Caption = 'Cut' ShortCut = 0 OnClick = Cut1Click end object Paste1: TMenuItem Caption = 'Paste' ShortCut = 0 OnClick = Paste1Click end object Goto1: TMenuItem Caption = 'Goto' ShortCut = 0 object Top1: TMenuItem Caption = 'Top' ShortCut = 0 OnClick = Top1Click end object Bottom1: TMenuItem Caption = 'Bottom' ShortCut = 0 OnClick = Bottom1Click end end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Save1: TMenuItem Caption = 'Save' ShortCut = 0 OnClick = Save1Click end object Autosave1: TMenuItem Caption = 'Autosave' Checked = True ShortCut = 0 OnClick = Autosave1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Font1: TMenuItem Caption = 'Font' ShortCut = 0 OnClick = Font1Click end object Color1: TMenuItem Caption = 'Color' ShortCut = 0 OnClick = Color1Click end object Hints1: TMenuItem Caption = 'Hints' Checked = True ShortCut = 0 OnClick = Hints1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Print1: TMenuItem Caption = 'Print' ShortCut = 0 object Entry1: TMenuItem Caption = '&Entry' ShortCut = 0 end object PrintEntireLog: TMenuItem Caption = 'Entire &Log' ShortCut = 0 OnClick = PrintEntireLogClick end end end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 49 Top = 350 end object ColorDialog1: TColorDialog Ctl3D = True Left = 79 Top = 350 end object OpenDialog1: TOpenDialog DefaultExt = 'stl' FileEditStyle = fsEdit Filter = 'Stella 2000 Logs (*.stl)|*.stl' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Open a Stella 2000 Log' Left = 109 Top = 350 end object PrintDialog1: TPrintDialog Left = 139 Top = 349 end object IniOut1: TIniOut FileName = 'STELLA.INI' Items.Strings = ( 'LogForm;Height;;Dimensions;LogFormHeight;1;0' 'LogForm;Left;;Position;LogFormLeft;1;0' 'LogForm;Top;;Position;LogFormTop;1;0') RegistryRoot = CURRENT_USER Left = 171 Top = 349 end end