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

Text File | 2000-05-28 | 21KB | 838 lines

object ParamForm: TParamForm
  Left = 217
  Top = 143
  ActiveControl = OkBtn
  BorderStyle = bsDialog
  Caption = 'Options'
  ClientHeight = 308
  ClientWidth = 412
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = CreateWork
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object OkBtn: TButton
    Left = 80
    Top = 281
    Width = 97
    Height = 22
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = OkBtnClick
    OnKeyDown = FormKeyDown
  end
  object ExitBtn: TButton
    Left = 232
    Top = 281
    Width = 99
    Height = 22
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = ExitBtnClick
    OnKeyDown = FormKeyDown
  end
  object ParamPageControl: TPageControl
    Left = 3
    Top = 5
    Width = 406
    Height = 272
    ActivePage = SkyPosit
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object SkyPosit: TTabSheet
      Caption = 'Location'
      object LongitudeGB: TGroupBox
        Left = 52
        Top = 10
        Width = 289
        Height = 47
        Caption = ' Longitude: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object WestLong: TRadioButton
          Left = 73
          Top = 19
          Width = 50
          Height = 17
          Caption = 'West'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object EastLong: TRadioButton
          Left = 18
          Top = 19
          Width = 50
          Height = 17
          Caption = 'East'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object Longitude: TEdit
          Left = 127
          Top = 16
          Width = 121
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object LongitudeGMS: TButton
          Left = 255
          Top = 16
          Width = 17
          Height = 21
          Caption = '�'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnClick = LongitudeGMSClick
        end
      end
      object LatitudeGB: TGroupBox
        Left = 52
        Top = 68
        Width = 289
        Height = 47
        Caption = ' Latitude: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Latitude: TEdit
          Left = 127
          Top = 16
          Width = 121
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object LatitudeGMS: TButton
          Left = 255
          Top = 16
          Width = 17
          Height = 21
          Caption = '�'
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnClick = LatitudeGMSClick
        end
        object NorthLat: TRadioButton
          Left = 18
          Top = 19
          Width = 50
          Height = 17
          Caption = 'North'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object SouthLat: TRadioButton
          Left = 73
          Top = 19
          Width = 50
          Height = 17
          Caption = 'South'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object TimeZoneGB: TGroupBox
        Left = 52
        Top = 125
        Width = 185
        Height = 68
        Caption = ' Time zone: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object TimeZone: TEdit
          Left = 19
          Top = 19
          Width = 33
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          TabOrder = 0
        end
        object AutoTimeZone: TCheckBox
          Left = 19
          Top = 43
          Width = 145
          Height = 17
          Caption = 'Take from Windows'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = AutoTimeZoneClick
        end
        object TimeZoneType: TComboBox
          Left = 59
          Top = 19
          Width = 110
          Height = 21
          Style = csDropDownList
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Behind of G.M.T.'
            'Ahead of G.M.T.')
          ParentFont = False
          TabOrder = 1
        end
      end
      object CityListBtn: TButton
        Left = 52
        Top = 204
        Width = 97
        Height = 21
        Caption = '&List of cities'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = CityListBtnClick
      end
    end
    object FontSet: TTabSheet
      Caption = 'Fonts'
      object FontsGB: TGroupBox
        Left = 24
        Top = 16
        Width = 346
        Height = 123
        TabOrder = 0
        object Label9: TLabel
          Left = 25
          Top = 31
          Width = 72
          Height = 13
          Caption = 'Normal text:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 25
          Top = 84
          Width = 88
          Height = 13
          Caption = 'Greek symbols:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object NormFontsCB: TComboBox
          Left = 152
          Top = 27
          Width = 161
          Height = 21
          ItemHeight = 13
          Sorted = True
          TabOrder = 0
        end
        object GreekFontsCB: TComboBox
          Left = 152
          Top = 80
          Width = 161
          Height = 21
          ItemHeight = 13
          Sorted = True
          TabOrder = 1
        end
      end
    end
    object ViewObj: TTabSheet
      Caption = 'Objects'
      object ObjectPanel: TPanel
        Left = 22
        Top = 10
        Width = 350
        Height = 185
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object StarsDraw: TCheckBox
          Left = 23
          Top = 14
          Width = 58
          Height = 17
          Caption = 'Stars'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object PropNamesPanel: TPanel
          Left = 95
          Top = 12
          Width = 230
          Height = 22
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 1
          object PropStarNames: TCheckBox
            Left = 8
            Top = 3
            Width = 153
            Height = 17
            Caption = 'Proper names in star labels'
            TabOrder = 0
          end
        end
        object ClinesDraw: TCheckBox
          Left = 23
          Top = 37
          Width = 122
          Height = 17
          Caption = 'Constellation lines'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object ConNamesDraw: TCheckBox
          Left = 23
          Top = 60
          Width = 122
          Height = 17
          Caption = 'Constellation names'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object BoundDraw: TCheckBox
          Left = 23
          Top = 83
          Width = 146
          Height = 17
          Caption = 'Constellation boundaries'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object DeepSkyDraw: TCheckBox
          Left = 23
          Top = 106
          Width = 114
          Height = 17
          Caption = 'Deep-sky objects'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object SolarObjDraw: TCheckBox
          Left = 23
          Top = 129
          Width = 130
          Height = 17
          Caption = 'Solar System objects:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object SolarBtn: TButton
          Left = 23
          Top = 151
          Width = 69
          Height = 20
          Caption = 'Select'
          TabOrder = 7
          OnClick = SolarBtnClick
        end
        object AlwaysHighPrecPanel: TPanel
          Left = 95
          Top = 150
          Width = 230
          Height = 22
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 8
          object AlwaysHighPrecisionCB: TCheckBox
            Left = 8
            Top = 3
            Width = 217
            Height = 17
            Caption = 'Always maximum precision in calculations'
            TabOrder = 0
          end
        end
      end
      object ObjHintsPanel: TPanel
        Left = 22
        Top = 204
        Width = 350
        Height = 28
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object ObjHints: TCheckBox
          Left = 23
          Top = 6
          Width = 130
          Height = 17
          Caption = 'Sky objects ToolTips'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object Coord: TTabSheet
      Caption = 'Coordinates'
      object SkyProjectGB: TGroupBox
        Left = 22
        Top = 7
        Width = 350
        Height = 40
        Caption = ' Sky projection: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object ParallelProjection: TRadioButton
          Left = 10
          Top = 16
          Width = 71
          Height = 17
          Caption = 'Parallel'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object ConicProjection: TRadioButton
          Left = 120
          Top = 16
          Width = 65
          Height = 17
          Caption = '"Conic"'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
        end
      end
      object AzimuthPointGB: TGroupBox
        Left = 22
        Top = 57
        Width = 350
        Height = 40
        Caption = ' Azimuth zero point: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object NorthZeroPointRB: TRadioButton
          Left = 10
          Top = 16
          Width = 55
          Height = 17
          Caption = 'North'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object SouthZeroPointRB: TRadioButton
          Left = 120
          Top = 16
          Width = 62
          Height = 17
          Caption = 'South'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object StatusBarGB: TGroupBox
        Left = 22
        Top = 107
        Width = 350
        Height = 40
        Caption = ' Status bar: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object RightAscRB: TRadioButton
          Left = 120
          Top = 16
          Width = 105
          Height = 17
          Caption = 'Right ascension'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
        end
        object HourAngleRB: TRadioButton
          Left = 10
          Top = 16
          Width = 87
          Height = 17
          Caption = 'Hour angle'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object RefractGB: TGroupBox
        Left = 22
        Top = 154
        Width = 350
        Height = 75
        Caption = ' Refraction: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object Label3: TLabel
          Left = 10
          Top = 48
          Width = 54
          Height = 13
          Caption = 'Pressure:'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 216
          Top = 48
          Width = 70
          Height = 13
          Caption = 'Temperature:'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 320
          Top = 48
          Width = 17
          Height = 13
          Caption = ' � C'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object CalcRefracCB: TCheckBox
          Left = 10
          Top = 20
          Width = 135
          Height = 17
          Caption = 'Atmospheric refraction'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object AtPressEdit: TEdit
          Left = 71
          Top = 45
          Width = 33
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 4
          ParentFont = False
          TabOrder = 1
        end
        object PressUnitCB: TComboBox
          Left = 107
          Top = 45
          Width = 102
          Height = 21
          Style = csDropDownList
          DropDownCount = 2
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'mmHg'
            'mBar')
          ParentFont = False
          TabOrder = 2
          OnChange = PressUnitCBChange
        end
        object AtTempEdit: TEdit
          Left = 292
          Top = 45
          Width = 25
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 3
          ParentFont = False
          TabOrder = 3
        end
      end
    end
    object Image: TTabSheet
      Caption = 'Image'
      object ImageSpaceGB: TGroupBox
        Left = 22
        Top = 114
        Width = 350
        Height = 116
        Caption = ' Background: '
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object ImageSpaceBevel: TBevel
          Left = 12
          Top = 82
          Width = 320
          Height = 2
        end
        object DayLightColorUseCB: TCheckBox
          Left = 23
          Top = 20
          Width = 138
          Height = 17
          Caption = 'Use color for daylight'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = DayLightColorUseCBClick
        end
        object CivilTwilightColorUseCB: TCheckBox
          Left = 23
          Top = 40
          Width = 146
          Height = 17
          Caption = 'Use color for civil twilight'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = CivilTwilightColorUseCBClick
        end
        object AstroTwilightColorUseCB: TCheckBox
          Left = 23
          Top = 60
          Width = 186
          Height = 17
          Caption = 'Use color for astronomical twilight'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object MaxStarVRestrictCB: TCheckBox
          Left = 23
          Top = 90
          Width = 315
          Height = 17
          Caption = 'Restrict magnitude of visible stars during daylight and twilight'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
      end
      object ImageParamGB: TGroupBox
        Left = 22
        Top = 7
        Width = 350
        Height = 99
        TabOrder = 0
        object MirrorViewCB: TCheckBox
          Left = 23
          Top = 13
          Width = 90
          Height = 17
          Caption = 'Mirror view'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object PrintAsBitmapCB: TCheckBox
          Left = 23
          Top = 53
          Width = 130
          Height = 17
          Caption = 'Print image as bitmap'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object ShowAsBitmapCB: TCheckBox
          Left = 23
          Top = 33
          Width = 154
          Height = 17
          Caption = 'Show on screen as bitmap'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object PrintLegendCB: TCheckBox
          Left = 23
          Top = 73
          Width = 162
          Height = 17
          Caption = 'Add legend to printed page'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
      end
    end
  end
end