Chip 2000 August/chip_08_2000.iso/software/astro/starcalc/STARCALC.EXE/0/RCDATA/TSETDATETIMEFORM/TSETDATETIMEFORM.txt

Text File | 2000-05-28 | 5KB | 255 lines

object SetDateTimeForm: TSetDateTimeForm
  Left = 204
  Top = 120
  BorderStyle = bsNone
  ClientHeight = 85
  ClientWidth = 275
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 275
    Height = 85
    Align = alClient
    BevelInner = bvRaised
    TabOrder = 0
    object Label1: TLabel
      Left = 6
      Top = 32
      Width = 25
      Height = 13
      Caption = 'h,m,s'
    end
    object Label2: TLabel
      Left = 6
      Top = 8
      Width = 25
      Height = 13
      Caption = 'd,m,y'
    end
    object Label4: TLabel
      Left = 100
      Top = 62
      Width = 6
      Height = 13
      Caption = 's'
    end
    object Label3: TLabel
      Left = 5
      Top = 62
      Width = 35
      Height = 13
      Caption = 'ET-UT:'
    end
    object Bevel1: TBevel
      Left = 8
      Top = 54
      Width = 230
      Height = 2
    end
    object Panel2: TPanel
      Left = 250
      Top = 2
      Width = 22
      Height = 37
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 3
        Top = 3
        Width = 16
        Height = 14
        Glyph.Data = {
          5A000000424D5A000000000000003E0000002800000008000000070000000100
          0100000000001C000000120B0000120B0000020000000200000000000000FFFF
          FF003C00000099000000C3000000E7000000C3000000990000003C000000}
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 3
        Top = 19
        Width = 16
        Height = 14
        Glyph.Data = {
          5A000000424D5A000000000000003E0000002800000007000000070000000100
          0100000000001C0000000000000000000000000000000000000000000000FFFF
          FF00DE000000CE000000C6000000C2000000C6000000CE000000DE000000}
        OnClick = SpeedButton2Click
      end
    end
    object Day: TEdit
      Left = 44
      Top = 5
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 1
      Text = '15'
      OnExit = DayExit
      OnKeyPress = FormKeyPress
    end
    object DayUD: TUpDown
      Left = 64
      Top = 5
      Width = 15
      Height = 21
      Associate = Day
      Min = 1
      Max = 31
      Position = 15
      TabOrder = 2
      Thousands = False
      Wrap = True
    end
    object Month: TComboBox
      Left = 82
      Top = 5
      Width = 44
      Height = 21
      Style = csDropDownList
      DropDownCount = 12
      ItemHeight = 13
      TabOrder = 3
      OnChange = MonthChange
      OnKeyPress = FormKeyPress
    end
    object Year: TEdit
      Left = 128
      Top = 5
      Width = 33
      Height = 21
      MaxLength = 4
      TabOrder = 4
      Text = '1997'
      OnChange = YearChange
      OnExit = YearExit
      OnKeyPress = FormKeyPress
    end
    object YearUD: TUpDown
      Left = 161
      Top = 5
      Width = 16
      Height = 21
      Min = -9998
      Max = 9999
      Position = 1997
      TabOrder = 5
      Thousands = False
      Wrap = False
      OnClick = YearUDClick
    end
    object ADBDCB: TComboBox
      Left = 179
      Top = 5
      Width = 60
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      OnChange = ADBDCBChange
      OnKeyPress = FormKeyPress
    end
    object Hour: TEdit
      Left = 44
      Top = 30
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 7
      Text = '12'
      OnKeyPress = FormKeyPress
    end
    object HourUD: TUpDown
      Left = 64
      Top = 30
      Width = 15
      Height = 21
      Associate = Hour
      Min = 0
      Max = 23
      Position = 12
      TabOrder = 8
      Thousands = False
      Wrap = True
    end
    object Min: TEdit
      Left = 82
      Top = 30
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 9
      Text = '39'
      OnKeyPress = FormKeyPress
    end
    object MinUD: TUpDown
      Left = 102
      Top = 30
      Width = 15
      Height = 21
      Associate = Min
      Min = 0
      Max = 59
      Position = 39
      TabOrder = 10
      Thousands = False
      Wrap = True
    end
    object Sec: TEdit
      Left = 120
      Top = 30
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 11
      Text = '42'
      OnKeyPress = FormKeyPress
    end
    object SecUD: TUpDown
      Left = 140
      Top = 30
      Width = 15
      Height = 21
      Associate = Sec
      Min = 0
      Max = 59
      Position = 42
      TabOrder = 12
      Thousands = False
      Wrap = True
    end
    object ETAuto: TCheckBox
      Left = 120
      Top = 61
      Width = 49
      Height = 17
      Caption = 'Auto'
      TabOrder = 14
      OnClick = ETAutoClick
      OnKeyPress = FormKeyPress
    end
    object ETUT: TEdit
      Left = 44
      Top = 59
      Width = 52
      Height = 21
      Hint = 'Ephemeris - Universal time difference'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 13
      Text = '0.0'
      OnKeyPress = FormKeyPress
    end
  end
end