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

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

object EditCityData: TEditCityData
  Left = 277
  Top = 189
  ActiveControl = OkButton
  BorderStyle = bsDialog
  Caption = 'City parameters'
  ClientHeight = 193
  ClientWidth = 305
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = CreateForm
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 8
    Top = 54
    Width = 289
    Height = 38
    Caption = ' Longitude: '
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object WestLong: TRadioButton
      Left = 72
      Top = 14
      Width = 53
      Height = 17
      Caption = 'West'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object EastLong: TRadioButton
      Left = 11
      Top = 14
      Width = 54
      Height = 17
      Caption = 'East'
      Checked = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
    end
    object Longitude: TEdit
      Left = 132
      Top = 11
      Width = 121
      Height = 21
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = '0'
    end
    object LongitudeGMS: TButton
      Left = 260
      Top = 11
      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 GroupBox3: TGroupBox
    Left = 8
    Top = 95
    Width = 289
    Height = 38
    Caption = ' Latitude: '
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Latitude: TEdit
      Left = 132
      Top = 11
      Width = 121
      Height = 21
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = '0'
    end
    object LatitudeGMS: TButton
      Left = 260
      Top = 11
      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 = 11
      Top = 14
      Width = 49
      Height = 17
      Caption = 'North'
      Checked = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
    end
    object SouthLat: TRadioButton
      Left = 72
      Top = 14
      Width = 53
      Height = 17
      Caption = 'South'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 137
    Width = 165
    Height = 48
    Caption = ' Time zone: '
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object TimeZone: TEdit
      Left = 8
      Top = 16
      Width = 33
      Height = 21
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 5
      ParentFont = False
      TabOrder = 0
      Text = '0'
    end
    object TimeZoneType: TComboBox
      Left = 48
      Top = 16
      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 GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 289
    Height = 44
    Caption = ' Name: '
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object CityName: TEdit
      Left = 8
      Top = 14
      Width = 273
      Height = 21
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 32
      ParentFont = False
      TabOrder = 0
    end
  end
  object OkButton: TButton
    Left = 184
    Top = 142
    Width = 105
    Height = 21
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 4
    OnClick = OkButtonClick
    OnKeyDown = FormKeyDown
  end
  object ExitButton: TButton
    Left = 184
    Top = 165
    Width = 105
    Height = 21
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 5
    OnKeyDown = FormKeyDown
  end
end