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