home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 August
/
chip_08_2000.iso
/
software
/
astro
/
starcalc
/
STARCALC.EXE
/
0
/
RCDATA
/
TSETEQUPOINT
/
TSETEQUPOINT.txt
Wrap
Text File
|
2000-05-28
|
4KB
|
191 lines
object SetEquPoint: TSetEquPoint
Left = 213
Top = 232
ActiveControl = OkBtn
BorderStyle = bsDialog
Caption = 'Equat. coordinates'
ClientHeight = 160
ClientWidth = 302
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object OkBtn: TButton
Left = 37
Top = 132
Width = 97
Height = 22
Caption = '&Ok'
Default = True
ModalResult = 1
TabOrder = 1
OnClick = OkBtnClick
OnKeyDown = FormKeyDown
end
object ExitBtn: TButton
Left = 164
Top = 132
Width = 99
Height = 22
Caption = '&Cancel'
ModalResult = 2
TabOrder = 2
OnKeyDown = FormKeyDown
end
object Panel3: TPanel
Left = 5
Top = 5
Width = 291
Height = 116
BevelOuter = bvLowered
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 42
Width = 289
Height = 73
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 14
Width = 97
Height = 13
Caption = 'Right ascension, h:'
end
object Label3: TLabel
Left = 8
Top = 45
Width = 68
Height = 13
Caption = 'Declination, �:'
end
object RaEdit: TEdit
Left = 136
Top = 10
Width = 121
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DecEdit: TEdit
Left = 136
Top = 42
Width = 121
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object RaGMS: TButton
Left = 264
Top = 10
Width = 17
Height = 21
Caption = 'h'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = RaGMSClick
end
object DecGMS: TButton
Left = 264
Top = 42
Width = 17
Height = 21
Caption = '�'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = DecGMSClick
end
end
object Panel1: TPanel
Left = 1
Top = 1
Width = 289
Height = 41
TabOrder = 0
object Label4: TLabel
Left = 8
Top = 13
Width = 33
Height = 13
Caption = 'Epoch'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object EpochList: TComboBox
Left = 50
Top = 10
Width = 97
Height = 21
Style = csDropDownList
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'J1875'
'J1900'
'B1950'
'J1975'
'J2000'
'Current'
'Other')
ParentFont = False
TabOrder = 0
OnChange = EpochListChange
end
object EpochEdit: TEdit
Left = 160
Top = 10
Width = 97
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnExit = EpochEditExit
end
object EpochMJD: TButton
Left = 264
Top = 10
Width = 17
Height = 21
Caption = 'J'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = EpochMJDClick
end
end
end
end