home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / CHIPCD_2_2000.iso / software / testsoft / kody2000 / KODY / KODY.EXE / 0 / RCDATA / TEEDYCJA / TEEDYCJA.txt
Text File  |  1999-12-03  |  11KB  |  460 lines
  1. object eEdycja: TeEdycja
  2.   Left = 200
  3.   Top = 108
  4.   ActiveControl = eKod
  5.   BorderStyle = bsDialog
  6.   Caption = 'Edycja kod∩┐╜w pocztowych'
  7.   ClientHeight = 305
  8.   ClientWidth = 352
  9.   Color = 15329494
  10.   Font.Charset = EASTEUROPE_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'Tahoma'
  14.   Font.Style = []
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object nb: TNotebook
  19.     Left = 0
  20.     Top = 0
  21.     Width = 352
  22.     Height = 305
  23.     Align = alClient
  24.     PageIndex = 1
  25.     TabOrder = 0
  26.     object TPage
  27.       Left = 0
  28.       Top = 0
  29.       Caption = 'Kod'
  30.       object Label1: TLabel
  31.         Left = 0
  32.         Top = 0
  33.         Width = 352
  34.         Height = 13
  35.         Align = alTop
  36.         Alignment = taCenter
  37.         Caption = 'miejscowo∩┐╜∩┐╜'
  38.         Font.Charset = EASTEUROPE_CHARSET
  39.         Font.Color = clNavy
  40.         Font.Height = -11
  41.         Font.Name = 'Tahoma'
  42.         Font.Style = [fsBold]
  43.         ParentFont = False
  44.       end
  45.       object lbInfo1: TLabel
  46.         Left = 0
  47.         Top = 13
  48.         Width = 352
  49.         Height = 13
  50.         Align = alTop
  51.         Alignment = taCenter
  52.         Caption = 'lbInfo1'
  53.         WordWrap = True
  54.       end
  55.       object OLabel3: TOLabel
  56.         Left = 8
  57.         Top = 49
  58.         Width = 337
  59.         Height = 65
  60.         Caption = 
  61.           'Je∩┐╜li wprowadzi∩┐╜e∩┐╜ now∩┐╜ miejscowo∩┐╜∩┐╜ i chcia∩┐╜by∩┐╜ doda∩┐╜ do niej ur' +
  62.           'z∩┐╜d pocztowy b∩┐╜d∩┐╜ wie∩┐╜, mo∩┐╜esz to zrobi∩┐╜ w kolejnym kroku. Zazna' +
  63.           'cz miejscowo∩┐╜∩┐╜ na li∩┐╜cie i wybierz z menu odpowiedni∩┐╜ opcj∩┐╜.'
  64.         LedType = ltDown
  65.         TabOrder = 0
  66.       end
  67.     end
  68.     object TPage
  69.       Left = 0
  70.       Top = 0
  71.       Caption = 'UlicaKod'
  72.       object Label2: TLabel
  73.         Left = 0
  74.         Top = 0
  75.         Width = 352
  76.         Height = 13
  77.         Align = alTop
  78.         Alignment = taCenter
  79.         Caption = 'ulica'
  80.         Font.Charset = EASTEUROPE_CHARSET
  81.         Font.Color = clNavy
  82.         Font.Height = -11
  83.         Font.Name = 'Tahoma'
  84.         Font.Style = [fsBold]
  85.         ParentFont = False
  86.       end
  87.       object lbInfo2: TLabel
  88.         Left = 0
  89.         Top = 13
  90.         Width = 352
  91.         Height = 13
  92.         Align = alTop
  93.         Alignment = taCenter
  94.         Caption = 'lbInfo1'
  95.         WordWrap = True
  96.       end
  97.       object OLabel1: TOLabel
  98.         Left = 8
  99.         Top = 49
  100.         Width = 337
  101.         Height = 64
  102.         Caption = 
  103.           'W du∩┐╜ych miastach nie tylko ka∩┐╜da ulica ma przydzielony kod, ale' +
  104.           ' czasami kolejne fragmenty tej ulicy maj∩┐╜ r∩┐╜ne kody. Mo∩┐╜esz pod' +
  105.           'a∩┐╜ zakres numer∩┐╜w dom∩┐╜w, dla kt∩┐╜rych obowi∩┐╜zuje dany kod."Na prz' +
  106.           'yk∩┐╜ad: "Marsza∩┐╜kowska 1-7, 24-dk".'
  107.         LedType = ltDown
  108.         TabOrder = 0
  109.       end
  110.       object gbNumery: TEnhGroupBox
  111.         Left = 47
  112.         Top = 176
  113.         Width = 257
  114.         Height = 94
  115.         Caption = 'Podzia∩┐╜ ulicy na rejony dor∩┐╜czeniowe'
  116.         Checked = False
  117.         TabOrder = 1
  118.         OnClick = gbNumeryClick
  119.         object Label8: TLabel
  120.           Left = 8
  121.           Top = 16
  122.           Width = 218
  123.           Height = 13
  124.           Caption = 'Numery nieparzyste (zero znaczy "do ko∩┐╜ca")'
  125.           Enabled = False
  126.           Font.Charset = EASTEUROPE_CHARSET
  127.           Font.Color = clWindowText
  128.           Font.Height = -11
  129.           Font.Name = 'Tahoma'
  130.           Font.Style = [fsUnderline]
  131.           ParentFont = False
  132.         end
  133.         object Label9: TLabel
  134.           Left = 36
  135.           Top = 36
  136.           Width = 12
  137.           Height = 13
  138.           Caption = 'od'
  139.           Enabled = False
  140.         end
  141.         object Label10: TLabel
  142.           Left = 144
  143.           Top = 36
  144.           Width = 12
  145.           Height = 13
  146.           Caption = 'do'
  147.           Enabled = False
  148.         end
  149.         object Label13: TLabel
  150.           Left = 8
  151.           Top = 52
  152.           Width = 204
  153.           Height = 13
  154.           Caption = 'Numery parzyste (zero znaczy "do ko∩┐╜ca")'
  155.           Enabled = False
  156.           Font.Charset = EASTEUROPE_CHARSET
  157.           Font.Color = clWindowText
  158.           Font.Height = -11
  159.           Font.Name = 'Tahoma'
  160.           Font.Style = [fsUnderline]
  161.           ParentFont = False
  162.         end
  163.         object Label11: TLabel
  164.           Left = 144
  165.           Top = 72
  166.           Width = 12
  167.           Height = 13
  168.           Caption = 'do'
  169.           Enabled = False
  170.         end
  171.         object Label12: TLabel
  172.           Left = 36
  173.           Top = 72
  174.           Width = 12
  175.           Height = 13
  176.           Caption = 'od'
  177.           Enabled = False
  178.         end
  179.         object eNumNiepOd: TMaskEdit
  180.           Left = 52
  181.           Top = 32
  182.           Width = 81
  183.           Height = 21
  184.           Enabled = False
  185.           EditMask = '09999;1; '
  186.           MaxLength = 5
  187.           TabOrder = 1
  188.           Text = '     '
  189.         end
  190.         object eNumNiepDo: TMaskEdit
  191.           Left = 160
  192.           Top = 32
  193.           Width = 81
  194.           Height = 21
  195.           Enabled = False
  196.           EditMask = '09999;1; '
  197.           MaxLength = 5
  198.           TabOrder = 2
  199.           Text = '     '
  200.         end
  201.         object eNumParzDo: TMaskEdit
  202.           Left = 160
  203.           Top = 68
  204.           Width = 81
  205.           Height = 21
  206.           Enabled = False
  207.           EditMask = '09999;1; '
  208.           MaxLength = 5
  209.           TabOrder = 3
  210.           Text = '     '
  211.         end
  212.         object eNumParzOd: TMaskEdit
  213.           Left = 52
  214.           Top = 68
  215.           Width = 81
  216.           Height = 21
  217.           Enabled = False
  218.           EditMask = '09999;1; '
  219.           MaxLength = 5
  220.           TabOrder = 4
  221.           Text = '     '
  222.         end
  223.       end
  224.     end
  225.     object TPage
  226.       Left = 0
  227.       Top = 0
  228.       Caption = 'UrzadKod'
  229.       object Label3: TLabel
  230.         Left = 0
  231.         Top = 0
  232.         Width = 352
  233.         Height = 13
  234.         Align = alTop
  235.         Alignment = taCenter
  236.         Caption = 'urz∩┐╜d pocztowy'
  237.         Font.Charset = EASTEUROPE_CHARSET
  238.         Font.Color = clNavy
  239.         Font.Height = -11
  240.         Font.Name = 'Tahoma'
  241.         Font.Style = [fsBold]
  242.         ParentFont = False
  243.       end
  244.       object lbInfo3: TLabel
  245.         Left = 0
  246.         Top = 13
  247.         Width = 352
  248.         Height = 13
  249.         Align = alTop
  250.         Alignment = taCenter
  251.         Caption = 'lbInfo1'
  252.         WordWrap = True
  253.       end
  254.       object Label14: TLabel
  255.         Left = 20
  256.         Top = 180
  257.         Width = 25
  258.         Height = 13
  259.         Caption = 'Opis:'
  260.         Font.Charset = EASTEUROPE_CHARSET
  261.         Font.Color = clWindowText
  262.         Font.Height = -11
  263.         Font.Name = 'Tahoma'
  264.         Font.Style = [fsUnderline]
  265.         ParentFont = False
  266.       end
  267.       object OLabel2: TOLabel
  268.         Left = 8
  269.         Top = 49
  270.         Width = 337
  271.         Height = 76
  272.         Caption = 
  273.           'W niekt∩┐╜rych miastach istnieje wi∩┐╜cej ni∩┐╜ jeden urz∩┐╜d pocztowy. ' +
  274.           'Pami∩┐╜taj jednak, ∩┐╜e o ile w danym mie∩┐╜cie nie ma wydzielonych ko' +
  275.           'd∩┐╜w dla poszczeg∩┐╜lnych ulic, nale∩┐╜y podawa∩┐╜ kod pocztowy urz∩┐╜du ' +
  276.           'numer 2 (dworcowego) albo nr 1, je∩┐╜li nie ma tam "dw∩┐╜jki".'
  277.         LedType = ltDown
  278.         TabOrder = 0
  279.       end
  280.       object eOpis: TMaskEdit
  281.         Left = 64
  282.         Top = 176
  283.         Width = 257
  284.         Height = 21
  285.         TabOrder = 1
  286.         OnChange = eNazwaChange
  287.       end
  288.     end
  289.     object TPage
  290.       Left = 0
  291.       Top = 0
  292.       Caption = 'Wies'
  293.       object Label4: TLabel
  294.         Left = 0
  295.         Top = 0
  296.         Width = 352
  297.         Height = 13
  298.         Align = alTop
  299.         Alignment = taCenter
  300.         Caption = 'wie∩┐╜ lub ma∩┐╜a miejscowo∩┐╜∩┐╜'
  301.         Font.Charset = EASTEUROPE_CHARSET
  302.         Font.Color = clNavy
  303.         Font.Height = -11
  304.         Font.Name = 'Tahoma'
  305.         Font.Style = [fsBold]
  306.         ParentFont = False
  307.       end
  308.       object lbInfo4: TLabel
  309.         Left = 0
  310.         Top = 13
  311.         Width = 352
  312.         Height = 13
  313.         Align = alTop
  314.         Alignment = taCenter
  315.         Caption = 'lbInfo1'
  316.         WordWrap = True
  317.       end
  318.       object Label5: TLabel
  319.         Left = 20
  320.         Top = 184
  321.         Width = 37
  322.         Height = 13
  323.         Caption = 'Rodzaj:'
  324.       end
  325.       object OLabel4: TOLabel
  326.         Left = 8
  327.         Top = 49
  328.         Width = 337
  329.         Height = 76
  330.         Caption = 
  331.           'Praktycznie ka∩┐╜da gmina ma urz∩┐╜d pocztowy. S∩┐╜ jednak ma∩┐╜e miejsc' +
  332.           'owo∩┐╜ci i wsie, kt∩┐╜re nie maj∩┐╜ urz∩┐╜du. Wtedy obs∩┐╜ug∩┐╜ danego rejon' +
  333.           'u prowadzi urz∩┐╜d gdzie∩┐╜ w okolicy i jego kod nale∩┐╜y podawa∩┐╜.'
  334.         LedType = ltDown
  335.         TabOrder = 0
  336.       end
  337.       object cbRodzajWsi: TComboBox
  338.         Left = 64
  339.         Top = 180
  340.         Width = 201
  341.         Height = 21
  342.         Style = csDropDownList
  343.         ItemHeight = 13
  344.         Items.Strings = (
  345.           '<nieokre∩┐╜lony>'
  346.           'wie∩┐╜'
  347.           'kolonia'
  348.           'wie∩┐╜ i kolonia'
  349.           'osada'
  350.           'wie∩┐╜ i osada'
  351.           'przysi∩┐╜ek'
  352.           'osiedle')
  353.         TabOrder = 1
  354.       end
  355.     end
  356.   end
  357.   object bOK: TjzkColorButton
  358.     Left = 98
  359.     Top = 276
  360.     Width = 75
  361.     Height = 25
  362.     Caption = '&OK'
  363.     Default = True
  364.     Font.Charset = EASTEUROPE_CHARSET
  365.     Font.Color = clWindowText
  366.     Font.Height = -11
  367.     Font.Name = 'Tahoma'
  368.     Font.Style = [fsBold]
  369.     ParentFont = False
  370.     TabOrder = 1
  371.     OnClick = bOKClick
  372.     BorderColor = clBlack
  373.     ActiveBorderColor = clWhite
  374.     Color = 16250864
  375.     ParentColor = False
  376.     RoundSize = 24
  377.     SingleLine = True
  378.     BoldWhenDefault = True
  379.     Kind = bkCustom
  380.   end
  381.   object bCancel: TjzkColorButton
  382.     Left = 178
  383.     Top = 276
  384.     Width = 75
  385.     Height = 25
  386.     Cancel = True
  387.     Caption = 'Anuluj'
  388.     ModalResult = 2
  389.     TabOrder = 2
  390.     BorderColor = clBlack
  391.     ActiveBorderColor = clWhite
  392.     Color = 16250864
  393.     ParentColor = False
  394.     RoundSize = 24
  395.     SingleLine = True
  396.     BoldWhenDefault = True
  397.     Kind = bkCustom
  398.   end
  399.   object Panel1: TPanel
  400.     Left = 16
  401.     Top = 126
  402.     Width = 321
  403.     Height = 51
  404.     BevelOuter = bvNone
  405.     Caption = '  '
  406.     ParentColor = True
  407.     TabOrder = 3
  408.     object Label6: TLabel
  409.       Left = 4
  410.       Top = 4
  411.       Width = 24
  412.       Height = 13
  413.       Caption = 'Kod:'
  414.       Font.Charset = EASTEUROPE_CHARSET
  415.       Font.Color = clWindowText
  416.       Font.Height = -11
  417.       Font.Name = 'Tahoma'
  418.       Font.Style = [fsBold]
  419.       ParentFont = False
  420.     end
  421.     object Label7: TLabel
  422.       Left = 4
  423.       Top = 28
  424.       Width = 36
  425.       Height = 13
  426.       Caption = 'Nazwa:'
  427.       Font.Charset = EASTEUROPE_CHARSET
  428.       Font.Color = clWindowText
  429.       Font.Height = -11
  430.       Font.Name = 'Tahoma'
  431.       Font.Style = [fsUnderline]
  432.       ParentFont = False
  433.     end
  434.     object eKod: TMaskEdit
  435.       Left = 48
  436.       Top = 0
  437.       Width = 65
  438.       Height = 21
  439.       EditMask = '00-000;1;_'
  440.       Font.Charset = EASTEUROPE_CHARSET
  441.       Font.Color = clWindowText
  442.       Font.Height = -11
  443.       Font.Name = 'Tahoma'
  444.       Font.Style = [fsBold]
  445.       MaxLength = 6
  446.       ParentFont = False
  447.       TabOrder = 0
  448.       Text = '00-000'
  449.     end
  450.     object eNazwa: TMaskEdit
  451.       Left = 48
  452.       Top = 24
  453.       Width = 257
  454.       Height = 21
  455.       TabOrder = 1
  456.       OnChange = eNazwaChange
  457.     end
  458.   end
  459. end
  460.