object Form1: TForm1 Left = 369 Top = 191 Width = 517 Height = 288 Caption = ' P�epo�et z WGS-84 do S-JTSK' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 0 Top = 144 Width = 102 Height = 17 Caption = 'Poloha v S-JTSK' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 25 Top = 33 Width = 100 Height = 18 Caption = 'Zem�pisn� ���ka' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 136 Top = 35 Width = 34 Height = 13 Hint = 'Cel� ��slo' Caption = 'Stupn�' ParentShowHint = False ShowHint = False end object Label1: TLabel Left = 232 Top = 35 Width = 31 Height = 13 Hint = 'Cel� ��slo' Caption = 'Minuty' ParentShowHint = False ShowHint = False end object Label6: TLabel Left = 320 Top = 35 Width = 33 Height = 13 Hint = '��slo s desetinnou ��rkou' Caption = 'Vte�iny' ParentShowHint = False ShowHint = False end object Label7: TLabel Left = 25 Top = 65 Width = 105 Height = 18 Caption = 'Zem�pisn� d�lka' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 136 Top = 67 Width = 34 Height = 13 Hint = 'Cel� ��slo' Caption = 'Stupn�' ParentShowHint = False ShowHint = False end object Label9: TLabel Left = 232 Top = 67 Width = 31 Height = 13 Hint = 'Cel� ��slo' Caption = 'Minuty' ParentShowHint = False ShowHint = False end object Label10: TLabel Left = 320 Top = 67 Width = 33 Height = 13 Hint = '��slo s desetinnou ��rkou' Caption = 'Vte�iny' ParentShowHint = False ShowHint = False end object Label11: TLabel Left = 24 Top = 176 Width = 79 Height = 13 Caption = 'Zem�pisn� ���ka' end object Label12: TLabel Left = 128 Top = 176 Width = 81 Height = 13 Caption = 'Zem�pisn� d�lka' end object Label13: TLabel Left = 25 Top = 96 Width = 138 Height = 16 Hint = '��slo s desetinnou ��rkou' Caption = 'Elipsoidick� v��ka [m] ' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False end object Label14: TLabel Left = 224 Top = 176 Width = 76 Height = 13 Caption = 'Elips. v��ka [m] ' end object Label2: TLabel Left = 0 Top = 8 Width = 113 Height = 17 Caption = 'Poloha ve WGS-84' Font.Color = clBlack Font.Height = -15 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 440 Top = 176 Width = 27 Height = 13 Caption = 'X [m] ' end object Label16: TLabel Left = 360 Top = 176 Width = 27 Height = 13 Caption = 'Y [m] ' end object Label17: TLabel Left = 72 Top = 240 Width = 370 Height = 13 Caption = '� Zden�k Hrdina, �VUT fakulta elektrotechnick�, E-mail: hrdina@f' + 'eld.cvut.cz' end object Edit1: TEdit Left = 184 Top = 32 Width = 33 Height = 21 Hint = 'Nez�porn� cel� ��slo' ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = zmena1 end object BitBtn1: TBitBtn Left = 368 Top = 136 Width = 75 Height = 25 Hint = 'Ukon�en� programu' Caption = '&Konec' ParentShowHint = False ShowHint = False TabOrder = 11 TabStop = False Kind = bkClose end object Button1: TButton Left = 144 Top = 136 Width = 75 Height = 25 Hint = 'Proveden� p�epo�tu' Caption = '&P�epo��tat' Default = True ParentShowHint = False ShowHint = False TabOrder = 9 OnClick = Button1Click OnEnter = Button1Click end object Edit2: TEdit Left = 24 Top = 200 Width = 81 Height = 21 Hint = 'N sever, S jih' TabStop = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 14 end object Edit3: TEdit Left = 276 Top = 32 Width = 29 Height = 21 Hint = 'Nez�porn� cel� ��slo' ParentShowHint = False ShowHint = True TabOrder = 1 OnChange = zmena1 end object Edit4: TEdit Left = 368 Top = 32 Width = 41 Height = 21 Hint = 'Nez�porn� re�ln� ��slo' ParentShowHint = False ShowHint = True TabOrder = 2 OnChange = zmena1 end object Edit5: TEdit Left = 184 Top = 64 Width = 33 Height = 21 Hint = 'Nez�porn� cel� ��slo' ParentShowHint = False ShowHint = True TabOrder = 3 OnChange = zmena1 end object Edit6: TEdit Left = 276 Top = 64 Width = 29 Height = 21 Hint = 'Nez�porn� cel� ��slo' ParentShowHint = False ShowHint = True TabOrder = 4 OnChange = zmena1 end object Edit7: TEdit Left = 368 Top = 64 Width = 41 Height = 21 Hint = 'Nez�porn� re�ln� ��slo' ParentShowHint = False ShowHint = True TabOrder = 5 OnChange = zmena1 end object Edit8: TEdit Left = 128 Top = 200 Width = 81 Height = 21 Hint = 'E v�chod, W z�pad' TabStop = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 12 end object Edit9: TEdit Left = 184 Top = 96 Width = 57 Height = 21 Hint = 'Re�ln� ��slo' ParentShowHint = False ShowHint = True TabOrder = 6 OnChange = zmena1 end object Edit10: TEdit Left = 232 Top = 200 Width = 57 Height = 21 TabStop = False ReadOnly = True TabOrder = 13 end object Button3: TButton Left = 256 Top = 136 Width = 75 Height = 25 Caption = '&Ulo�it' TabOrder = 10 OnClick = save end object ComboBox1: TComboBox Left = 440 Top = 32 Width = 41 Height = 21 Hint = 'N sever, S jih' ItemHeight = 13 Items.Strings = ( 'N' 'S') ParentShowHint = False ShowHint = True TabOrder = 7 Text = 'N' OnChange = zmena1 end object ComboBox2: TComboBox Left = 440 Top = 64 Width = 41 Height = 21 Hint = 'E v�chod, W z�pad' ItemHeight = 13 Items.Strings = ( 'E' 'W') ParentShowHint = False ShowHint = True TabOrder = 8 Text = 'E' OnChange = zmena1 end object Edit11: TEdit Left = 416 Top = 200 Width = 65 Height = 21 Hint = 'N sever, S jih' TabStop = False ParentShowHint = False ReadOnly = True ShowHint = False TabOrder = 15 end object Edit12: TEdit Left = 336 Top = 200 Width = 65 Height = 21 Hint = 'N sever, S jih' TabStop = False ParentShowHint = False ReadOnly = True ShowHint = False TabOrder = 16 end object SaveDialog1: TSaveDialog DefaultExt = 'txt' FileEditStyle = fsEdit Filter = 'Textov� soubor|*.txt;*.doc;*.wri' Options = [ofOverwritePrompt] Top = 232 end end