object FUzelHrana: TFUzelHrana Left = 250 Top = 429 BorderStyle = bsDialog Caption = 'Nov� navazuj�c� uzel' ClientHeight = 250 ClientWidth = 632 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 8 Top = 16 Width = 193 Height = 193 Caption = 'M�sto' TabOrder = 0 object Label1: TLabel Left = 12 Top = 24 Width = 37 Height = 13 Caption = 'N�zev' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold, fsUnderline] ParentFont = False end object Label2: TLabel Left = 12 Top = 96 Width = 18 Height = 13 Caption = 'Typ' end object Label3: TLabel Left = 12 Top = 60 Width = 35 Height = 13 Caption = 'V��ka' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 148 Top = 60 Width = 38 Height = 13 Caption = 'm n.m.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 12 Top = 144 Width = 50 Height = 13 Caption = 'Pozn�mka' end object SVyska: TSpinEdit Left = 64 Top = 58 Width = 81 Height = 22 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 4 MaxValue = 9999 MinValue = -999 ParentFont = False TabOrder = 1 Value = 0 OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object CTyp: TComboBox Left = 64 Top = 92 Width = 121 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '(Nezn�m�)' 'Rozcestn�k' 'Vyhl�dka' 'Obec' 'Restaurace' 'Hospoda' 'Bufet' 'Hotel' 'Penzion/Chata' 'Jin� ubytov�n�' 'T�bo�i�t�' 'Autokemp' 'Hrad' 'Z�mek' 'Z��cenina' 'Vodn� plocha' 'Parkovi�t�') TabOrder = 2 OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object UPozn: TMemo Left = 64 Top = 127 Width = 121 Height = 50 MaxLength = 255 TabOrder = 3 WantReturns = False OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object CNazev: TComboBox Left = 64 Top = 23 Width = 121 Height = 21 ItemHeight = 13 Sorted = True TabOrder = 0 OnChange = ENazevChange OnClick = CNazevClick OnKeyPress = CNazevKeyPress end end object GroupBox2: TGroupBox Left = 208 Top = 16 Width = 193 Height = 193 Caption = 'Spojen�' TabOrder = 1 object Label5: TLabel Left = 12 Top = 24 Width = 63 Height = 13 Caption = 'Vzd�lenost' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 12 Top = 52 Width = 27 Height = 13 Caption = 'Cesta' end object Label7: TLabel Left = 12 Top = 72 Width = 53 Height = 33 AutoSize = False Caption = 'Zna�en� 1 (cyklo)' WordWrap = True end object Label8: TLabel Left = 164 Top = 26 Width = 17 Height = 13 Caption = 'km' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 12 Top = 144 Width = 50 Height = 13 Caption = 'Pozn�mka' end object Label11: TLabel Left = 12 Top = 100 Width = 53 Height = 29 AutoSize = False Caption = 'Zna�en� 2 (p��)' WordWrap = True end object EDelka: TEdit Left = 80 Top = 23 Width = 81 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 4 ParentFont = False TabOrder = 0 OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object CCesta: TComboBox Left = 80 Top = 50 Width = 105 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '(nezn�m�)' 'P��' 'Lesn�/poln�' 'Vozov�' 'Silnice' 'Hlavn� silnice' 'Rychlostn� silnice' 'Motorov� silnice' 'D�lnice') TabOrder = 1 OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object CZnaceni1: TComboBox Left = 80 Top = 76 Width = 105 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '(Nezn�m�)' '�erven� p��' 'Modr� p��' 'Zelen� p��' '�lut� p��' '�erven� m�stn�' 'Modr� m�stn�' 'Zelen� m�stn�' '�lut� m�stn�' '�erven� cyklo' 'Modr� cyklo' 'Zelen� cyklo' '�lut� cyklo' 'Doporu�en� cyklo' 'Spojovac� cyklo' 'Cykloturistick�' 'Nau�n� stezka') TabOrder = 2 OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object HPozn: TMemo Left = 80 Top = 127 Width = 105 Height = 50 MaxLength = 255 TabOrder = 3 WantReturns = False OnChange = ENazevChange OnKeyPress = CNazevKeyPress end object CZnaceni2: TComboBox Left = 80 Top = 101 Width = 105 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '(Nezn�m�)' '�erven� p��' 'Modr� p��' 'Zelen� p��' '�lut� p��' '�erven� m�stn�' 'Modr� m�stn�' 'Zelen� m�stn�' '�lut� m�stn�' '�erven� cyklo' 'Modr� cyklo' 'Zelen� cyklo' '�lut� cyklo' 'Doporu�en� cyklo' 'Spojovac� cyklo' 'Cykloturistick�' 'Nau�n� stezka') TabOrder = 4 OnChange = ENazevChange OnKeyPress = CNazevKeyPress end end object Button1: TButton Left = 8 Top = 216 Width = 75 Height = 24 Caption = 'OK' TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 95 Top = 215 Width = 75 Height = 25 Caption = 'Storno' TabOrder = 3 OnClick = Button2Click end object Peview: TPanel Left = 408 Top = 16 Width = 217 Height = 217 BevelOuter = bvLowered Caption = 'Peview' Color = 9476264 TabOrder = 4 object ImUkazka: TImage Left = 1 Top = 1 Width = 215 Height = 215 end end end