PC World Komputer 1998 July & August/Pcwk78a98.iso/Sharewar/STELLA/_SETUP.1/Stella.exe/0/RCDATA/TLOGFORM/TLOGFORM.txt

Text File | 1998-01-06 | 11KB | 489 lines

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