object eEdycja: TeEdycja Left = 200 Top = 108 ActiveControl = eKod BorderStyle = bsDialog Caption = 'Edycja kod�w pocztowych' ClientHeight = 305 ClientWidth = 352 Color = 15329494 Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object nb: TNotebook Left = 0 Top = 0 Width = 352 Height = 305 Align = alClient PageIndex = 1 TabOrder = 0 object TPage Left = 0 Top = 0 Caption = 'Kod' object Label1: TLabel Left = 0 Top = 0 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'miejscowo��' Font.Charset = EASTEUROPE_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lbInfo1: TLabel Left = 0 Top = 13 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'lbInfo1' WordWrap = True end object OLabel3: TOLabel Left = 8 Top = 49 Width = 337 Height = 65 Caption = 'Je�li wprowadzi�e� now� miejscowo�� i chcia�by� doda� do niej ur' + 'z�d pocztowy b�d� wie�, mo�esz to zrobi� w kolejnym kroku. Zazna' + 'cz miejscowo�� na li�cie i wybierz z menu odpowiedni� opcj�.' LedType = ltDown TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'UlicaKod' object Label2: TLabel Left = 0 Top = 0 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'ulica' Font.Charset = EASTEUROPE_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lbInfo2: TLabel Left = 0 Top = 13 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'lbInfo1' WordWrap = True end object OLabel1: TOLabel Left = 8 Top = 49 Width = 337 Height = 64 Caption = 'W du�ych miastach nie tylko ka�da ulica ma przydzielony kod, ale' + ' czasami kolejne fragmenty tej ulicy maj� r�ne kody. Mo�esz pod' + 'a� zakres numer�w dom�w, dla kt�rych obowi�zuje dany kod."Na prz' + 'yk�ad: "Marsza�kowska 1-7, 24-dk".' LedType = ltDown TabOrder = 0 end object gbNumery: TEnhGroupBox Left = 47 Top = 176 Width = 257 Height = 94 Caption = 'Podzia� ulicy na rejony dor�czeniowe' Checked = False TabOrder = 1 OnClick = gbNumeryClick object Label8: TLabel Left = 8 Top = 16 Width = 218 Height = 13 Caption = 'Numery nieparzyste (zero znaczy "do ko�ca")' Enabled = False Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object Label9: TLabel Left = 36 Top = 36 Width = 12 Height = 13 Caption = 'od' Enabled = False end object Label10: TLabel Left = 144 Top = 36 Width = 12 Height = 13 Caption = 'do' Enabled = False end object Label13: TLabel Left = 8 Top = 52 Width = 204 Height = 13 Caption = 'Numery parzyste (zero znaczy "do ko�ca")' Enabled = False Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object Label11: TLabel Left = 144 Top = 72 Width = 12 Height = 13 Caption = 'do' Enabled = False end object Label12: TLabel Left = 36 Top = 72 Width = 12 Height = 13 Caption = 'od' Enabled = False end object eNumNiepOd: TMaskEdit Left = 52 Top = 32 Width = 81 Height = 21 Enabled = False EditMask = '09999;1; ' MaxLength = 5 TabOrder = 1 Text = ' ' end object eNumNiepDo: TMaskEdit Left = 160 Top = 32 Width = 81 Height = 21 Enabled = False EditMask = '09999;1; ' MaxLength = 5 TabOrder = 2 Text = ' ' end object eNumParzDo: TMaskEdit Left = 160 Top = 68 Width = 81 Height = 21 Enabled = False EditMask = '09999;1; ' MaxLength = 5 TabOrder = 3 Text = ' ' end object eNumParzOd: TMaskEdit Left = 52 Top = 68 Width = 81 Height = 21 Enabled = False EditMask = '09999;1; ' MaxLength = 5 TabOrder = 4 Text = ' ' end end end object TPage Left = 0 Top = 0 Caption = 'UrzadKod' object Label3: TLabel Left = 0 Top = 0 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'urz�d pocztowy' Font.Charset = EASTEUROPE_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lbInfo3: TLabel Left = 0 Top = 13 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'lbInfo1' WordWrap = True end object Label14: TLabel Left = 20 Top = 180 Width = 25 Height = 13 Caption = 'Opis:' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object OLabel2: TOLabel Left = 8 Top = 49 Width = 337 Height = 76 Caption = 'W niekt�rych miastach istnieje wi�cej ni� jeden urz�d pocztowy. ' + 'Pami�taj jednak, �e o ile w danym mie�cie nie ma wydzielonych ko' + 'd�w dla poszczeg�lnych ulic, nale�y podawa� kod pocztowy urz�du ' + 'numer 2 (dworcowego) albo nr 1, je�li nie ma tam "dw�jki".' LedType = ltDown TabOrder = 0 end object eOpis: TMaskEdit Left = 64 Top = 176 Width = 257 Height = 21 TabOrder = 1 OnChange = eNazwaChange end end object TPage Left = 0 Top = 0 Caption = 'Wies' object Label4: TLabel Left = 0 Top = 0 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'wie� lub ma�a miejscowo��' Font.Charset = EASTEUROPE_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lbInfo4: TLabel Left = 0 Top = 13 Width = 352 Height = 13 Align = alTop Alignment = taCenter Caption = 'lbInfo1' WordWrap = True end object Label5: TLabel Left = 20 Top = 184 Width = 37 Height = 13 Caption = 'Rodzaj:' end object OLabel4: TOLabel Left = 8 Top = 49 Width = 337 Height = 76 Caption = 'Praktycznie ka�da gmina ma urz�d pocztowy. S� jednak ma�e miejsc' + 'owo�ci i wsie, kt�re nie maj� urz�du. Wtedy obs�ug� danego rejon' + 'u prowadzi urz�d gdzie� w okolicy i jego kod nale�y podawa�.' LedType = ltDown TabOrder = 0 end object cbRodzajWsi: TComboBox Left = 64 Top = 180 Width = 201 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '' 'wie�' 'kolonia' 'wie� i kolonia' 'osada' 'wie� i osada' 'przysi�ek' 'osiedle') TabOrder = 1 end end end object bOK: TjzkColorButton Left = 98 Top = 276 Width = 75 Height = 25 Caption = '&OK' Default = True Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = bOKClick BorderColor = clBlack ActiveBorderColor = clWhite Color = 16250864 ParentColor = False RoundSize = 24 SingleLine = True BoldWhenDefault = True Kind = bkCustom end object bCancel: TjzkColorButton Left = 178 Top = 276 Width = 75 Height = 25 Cancel = True Caption = 'Anuluj' ModalResult = 2 TabOrder = 2 BorderColor = clBlack ActiveBorderColor = clWhite Color = 16250864 ParentColor = False RoundSize = 24 SingleLine = True BoldWhenDefault = True Kind = bkCustom end object Panel1: TPanel Left = 16 Top = 126 Width = 321 Height = 51 BevelOuter = bvNone Caption = ' ' ParentColor = True TabOrder = 3 object Label6: TLabel Left = 4 Top = 4 Width = 24 Height = 13 Caption = 'Kod:' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 4 Top = 28 Width = 36 Height = 13 Caption = 'Nazwa:' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object eKod: TMaskEdit Left = 48 Top = 0 Width = 65 Height = 21 EditMask = '00-000;1;_' Font.Charset = EASTEUROPE_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] MaxLength = 6 ParentFont = False TabOrder = 0 Text = '00-000' end object eNazwa: TMaskEdit Left = 48 Top = 24 Width = 257 Height = 21 TabOrder = 1 OnChange = eNazwaChange end end end