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

Text File | 2000-05-28 | 10KB | 350 lines

object SetRotAngleForm: TSetRotAngleForm
  Left = 215
  Top = 149
  BorderStyle = bsNone
  ClientHeight = 63
  ClientWidth = 261
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 261
    Height = 63
    Align = alClient
    BevelInner = bvRaised
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 76
      Top = 40
      Width = 28
      Height = 13
      Caption = 'h,m,s:'
    end
    object OneMin: TSpeedButton
      Left = 33
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Minutes (Shift+2)'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'm'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = StdStepClick
    end
    object OneHour: TSpeedButton
      Left = 61
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Hours (Shift+3)'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'h'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = StdStepClick
    end
    object SiderealDay: TSpeedButton
      Left = 89
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Sidereal days (Shift+4)'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        96030000424D9603000000000000760000002800000050000000140000000100
        0400000000002003000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        777777777777777777777777777777777F7777777777777777777F7777777777
        777777777F777777777777777777787777777777777777777F77777777777777
        77777F7777777777777777777F77777777777777777778777777777777777777
        7F7777777777777777777F7777777777777777777F7777777777777777777877
        77777777777777777F7777777777777777777F7777777777777777777F777777
        77777777777778777777777777777777FFF77777777777777777FFF777777777
        77777777FFF7777777777777777788877777777777F7FFFFFFFFFFF7777777F7
        FFFFFFFFFFF7777777F7FFFFFFFFFFF777777787888888888887777777F77777
        FFF77777777777F77777FFF77777777777F77777FFF777777777778777778887
        7777777777F777777F777777777777F777777F777777777777F777777F777777
        77777787777778777777777777F777777F777777777777F777777F7777777777
        77F777777F7777777777778777777877777777777FFF77777F77777777777FFF
        77777F77777777777FFF77777F777777777778887777787777777FFFFFFFFFFF
        7F7777777FFFFFFFFFFF7F7777777FFFFFFFFFFF7F7777777888888888887877
        777777777FFF77777777777777777FFF77777777777777777FFF777777777777
        77777888777777777777777777F7777777777777777777F77777777777777777
        77F777777777777777777787777777777777777777F7777777777777777777F7
        777777777777777777F777777777777777777787777777777777777777F77777
        77777777777777F7777777777777777777F77777777777777777778777777777
        7777777777F7777777777777777777F7777777777777777777F7777777777777
        7777778777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777}
      NumGlyphs = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = StdStepClick
    end
    object MeanSolarDay: TSpeedButton
      Left = 117
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Mean solar days (Shift+5)'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777777777777700007777777777777777777700007777
        77777B777777777700007777B7777B7777B77777000077777B77BBB77B777777
        0000777777BBBBBBB77777770000777777BBBBBBB7777777000077777BBBBBBB
        BB7777770000777BBBBBBBBBBBBB7777000077777BBBBBBBBB77777700007777
        77BBBBBBB77777770000777777BBBBBBB7777777000077777B77BBB77B777777
        00007777B7777B7777B777770000777777777B77777777770000777777777777
        7777777700007777777777777777777700007777777777777777777700007777
        77777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = StdStepClick
    end
    object Label2: TLabel
      Left = 5
      Top = 40
      Width = 24
      Height = 13
      Caption = 'days:'
    end
    object Label3: TLabel
      Left = 181
      Top = 9
      Width = 8
      Height = 16
      Caption = 'x'
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SMonth: TSpeedButton
      Left = 145
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Synodic months (Shift+6)'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777000077777777777777777777000077777778888E7777777700007777
        7888888EEE77777700007777888888888EE7777700007778888888888EEE7777
        000077788888888888EE7777000077888888888888EEE7770000778888888888
        88EEE777000077888888888888EEE777000077888888888888EEE77700007788
        8888888888EEE777000077788888888888EE777700007778888888888EEE7777
        00007777888888888EE77777000077777888888EEE777777000077777778888E
        7777777700007777777777777777777700007777777777777777777700007777
        77777777777777770000}
      ParentShowHint = False
      ShowHint = True
      OnClick = StdStepClick
    end
    object OneSec: TSpeedButton
      Left = 5
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Seconds (Shift+1)'
      AllowAllUp = True
      GroupIndex = 1
      Caption = 's'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = StdStepClick
    end
    object Panel2: TPanel
      Left = 236
      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 RHour: TEdit
      Left = 107
      Top = 37
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 2
      Text = '0'
      OnChange = TestRotTime
      OnKeyPress = FormKeyPress
    end
    object RHourUD: TUpDown
      Left = 127
      Top = 37
      Width = 15
      Height = 21
      Associate = RHour
      Min = 0
      Max = 23
      Position = 0
      TabOrder = 3
      Thousands = False
      Wrap = True
      OnClick = TestRotTime2
    end
    object RMin: TEdit
      Left = 144
      Top = 37
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 4
      Text = '5'
      OnChange = TestRotTime
      OnKeyPress = FormKeyPress
    end
    object RMinUD: TUpDown
      Left = 164
      Top = 37
      Width = 15
      Height = 21
      Associate = RMin
      Min = 0
      Max = 59
      Position = 5
      TabOrder = 5
      Thousands = False
      Wrap = True
      OnClick = TestRotTime2
    end
    object RSec: TEdit
      Left = 181
      Top = 37
      Width = 20
      Height = 21
      MaxLength = 2
      TabOrder = 6
      Text = '0'
      OnChange = TestRotTime
      OnKeyPress = FormKeyPress
    end
    object RSecUD: TUpDown
      Left = 201
      Top = 37
      Width = 15
      Height = 21
      Associate = RSec
      Min = 0
      Max = 59
      Position = 0
      TabOrder = 7
      Thousands = False
      Wrap = True
      OnClick = TestRotTime2
    end
    object RDays: TEdit
      Left = 32
      Top = 37
      Width = 40
      Height = 21
      MaxLength = 5
      TabOrder = 1
      Text = '0'
      OnChange = TestRotTime
      OnKeyPress = FormKeyPress
    end
    object MulUD: TUpDown
      Left = 217
      Top = 8
      Width = 15
      Height = 21
      Associate = Mul
      Min = 1
      Max = 999
      Position = 1
      TabOrder = 8
      Thousands = False
      Wrap = True
      OnClick = MulUDClick
    end
    object Mul: TEdit
      Left = 192
      Top = 8
      Width = 25
      Height = 21
      Hint = 'Multiplier'
      Color = clBtnFace
      MaxLength = 3
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 9
      Text = '1'
      OnKeyPress = FormKeyPress
    end
  end
end