home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Reklamy / Japa / PostBank / PostBank.exe / 0 / RCDATA / TFMAIN / TFMAIN.txt < prev   
Text File  |  1997-02-09  |  78KB  |  3,395 lines

  1. object fMain: TfMain
  2.   Left = 253
  3.   Top = 82
  4.   Width = 799
  5.   Height = 600
  6.   Caption = ' PostBank∩┐╜   JaPa Software ∩┐╜∩┐╜d∩┐╜  tel. 042/ 650 58 59'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Icon.Data = {<image000.ico>}
  12.   Position = poDefault
  13.   Scaled = False
  14.   OnActivate = FormActivate
  15.   OnClose = FormClose
  16.   OnResize = FormResize
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label73: TLabel
  21.     Left = 500
  22.     Top = 144
  23.     Width = 278
  24.     Height = 29
  25.     Alignment = taRightJustify
  26.     AutoSize = False
  27.     Caption = '-'
  28.     Font.Color = clNavy
  29.     Font.Height = -11
  30.     Font.Name = 'MS Sans Serif'
  31.     Font.Style = [fsBold]
  32.     ParentFont = False
  33.     Transparent = True
  34.   end
  35.   object Label72: TLabel
  36.     Left = 500
  37.     Top = 108
  38.     Width = 278
  39.     Height = 29
  40.     Alignment = taRightJustify
  41.     AutoSize = False
  42.     Caption = '-'
  43.     Font.Color = clNavy
  44.     Font.Height = -11
  45.     Font.Name = 'MS Sans Serif'
  46.     Font.Style = [fsBold]
  47.     ParentFont = False
  48.     Transparent = True
  49.   end
  50.   object Label71: TLabel
  51.     Left = 500
  52.     Top = 88
  53.     Width = 278
  54.     Height = 13
  55.     Alignment = taRightJustify
  56.     AutoSize = False
  57.     Caption = '-'
  58.     Font.Color = clNavy
  59.     Font.Height = -11
  60.     Font.Name = 'MS Sans Serif'
  61.     Font.Style = [fsBold]
  62.     ParentFont = False
  63.     Transparent = True
  64.   end
  65.   object Label75: TLabel
  66.     Left = 108
  67.     Top = 176
  68.     Width = 278
  69.     Height = 13
  70.     Alignment = taRightJustify
  71.     Caption = '-'
  72.     Font.Color = clNavy
  73.     Font.Height = -11
  74.     Font.Name = 'MS Sans Serif'
  75.     Font.Style = [fsBold]
  76.     ParentFont = False
  77.     Transparent = True
  78.   end
  79.   object Label63: TLabel
  80.     Left = 108
  81.     Top = 144
  82.     Width = 278
  83.     Height = 29
  84.     Alignment = taRightJustify
  85.     AutoSize = False
  86.     Caption = '-'
  87.     Font.Color = clNavy
  88.     Font.Height = -11
  89.     Font.Name = 'MS Sans Serif'
  90.     Font.Style = [fsBold]
  91.     ParentFont = False
  92.     Transparent = True
  93.   end
  94.   object Label62: TLabel
  95.     Left = 108
  96.     Top = 108
  97.     Width = 278
  98.     Height = 29
  99.     Alignment = taRightJustify
  100.     AutoSize = False
  101.     Caption = '-'
  102.     Font.Color = clNavy
  103.     Font.Height = -11
  104.     Font.Name = 'MS Sans Serif'
  105.     Font.Style = [fsBold]
  106.     ParentFont = False
  107.     Transparent = True
  108.   end
  109.   object Label61: TLabel
  110.     Left = 108
  111.     Top = 88
  112.     Width = 278
  113.     Height = 13
  114.     Alignment = taRightJustify
  115.     AutoSize = False
  116.     Caption = '-'
  117.     Font.Color = clNavy
  118.     Font.Height = -11
  119.     Font.Name = 'MS Sans Serif'
  120.     Font.Style = [fsBold]
  121.     ParentFont = False
  122.     Transparent = True
  123.   end
  124.   object Label64: TLabel
  125.     Left = 416
  126.     Top = 88
  127.     Width = 44
  128.     Height = 13
  129.     Caption = 'Adresat'
  130.     Font.Color = clBlack
  131.     Font.Height = -11
  132.     Font.Name = 'MS Sans Serif'
  133.     Font.Style = [fsBold]
  134.     ParentFont = False
  135.   end
  136.   object Label65: TLabel
  137.     Left = 416
  138.     Top = 108
  139.     Width = 33
  140.     Height = 13
  141.     Caption = 'Adres'
  142.     Font.Color = clBlack
  143.     Font.Height = -11
  144.     Font.Name = 'MS Sans Serif'
  145.     Font.Style = [fsBold]
  146.     ParentFont = False
  147.   end
  148.   object Label66: TLabel
  149.     Left = 416
  150.     Top = 144
  151.     Width = 78
  152.     Height = 13
  153.     Caption = 'Bank i nr r-ku'
  154.     Font.Color = clBlack
  155.     Font.Height = -11
  156.     Font.Name = 'MS Sans Serif'
  157.     Font.Style = [fsBold]
  158.     ParentFont = False
  159.   end
  160.   object Label67: TLabel
  161.     Left = 20
  162.     Top = 144
  163.     Width = 78
  164.     Height = 13
  165.     Caption = 'Bank i nr r-ku'
  166.     Font.Color = clBlack
  167.     Font.Height = -11
  168.     Font.Name = 'MS Sans Serif'
  169.     Font.Style = [fsBold]
  170.     ParentFont = False
  171.   end
  172.   object Label60: TLabel
  173.     Left = 20
  174.     Top = 108
  175.     Width = 33
  176.     Height = 13
  177.     Caption = 'Adres'
  178.     Font.Color = clBlack
  179.     Font.Height = -11
  180.     Font.Name = 'MS Sans Serif'
  181.     Font.Style = [fsBold]
  182.     ParentFont = False
  183.   end
  184.   object Label59: TLabel
  185.     Left = 20
  186.     Top = 88
  187.     Width = 54
  188.     Height = 13
  189.     Caption = 'Nadawca'
  190.     Font.Color = clBlack
  191.     Font.Height = -11
  192.     Font.Name = 'MS Sans Serif'
  193.     Font.Style = [fsBold]
  194.     ParentFont = False
  195.   end
  196.   object Label23: TLabel
  197.     Left = 416
  198.     Top = 200
  199.     Width = 131
  200.     Height = 13
  201.     Caption = 'Poszukiwany ci∩┐╜g znak∩┐╜w :'
  202.   end
  203.   object Label24: TLabel
  204.     Left = 20
  205.     Top = 200
  206.     Width = 131
  207.     Height = 13
  208.     Caption = 'Poszukiwany ci∩┐╜g znak∩┐╜w :'
  209.   end
  210.   object Label57: TLabel
  211.     Left = 12
  212.     Top = 8
  213.     Width = 66
  214.     Height = 16
  215.     Caption = 'Nadawca'
  216.     Font.Color = clBlack
  217.     Font.Height = -13
  218.     Font.Name = 'MS Sans Serif'
  219.     Font.Style = [fsBold]
  220.     ParentFont = False
  221.   end
  222.   object Label58: TLabel
  223.     Left = 408
  224.     Top = 8
  225.     Width = 55
  226.     Height = 16
  227.     Caption = 'Adresat'
  228.     Font.Color = clBlack
  229.     Font.Height = -13
  230.     Font.Name = 'MS Sans Serif'
  231.     Font.Style = [fsBold]
  232.     ParentFont = False
  233.   end
  234.   object Label76: TLabel
  235.     Left = 20
  236.     Top = 176
  237.     Width = 44
  238.     Height = 13
  239.     Caption = 'Telefon'
  240.     Font.Color = clBlack
  241.     Font.Height = -11
  242.     Font.Name = 'MS Sans Serif'
  243.     Font.Style = [fsBold]
  244.     ParentFont = False
  245.   end
  246.   object Label77: TLabel
  247.     Left = 416
  248.     Top = 176
  249.     Width = 44
  250.     Height = 13
  251.     Caption = 'Telefon'
  252.     Font.Color = clBlack
  253.     Font.Height = -11
  254.     Font.Name = 'MS Sans Serif'
  255.     Font.Style = [fsBold]
  256.     ParentFont = False
  257.   end
  258.   object Label78: TLabel
  259.     Left = 500
  260.     Top = 176
  261.     Width = 278
  262.     Height = 13
  263.     Alignment = taRightJustify
  264.     AutoSize = False
  265.     Caption = '-'
  266.     Font.Color = clNavy
  267.     Font.Height = -11
  268.     Font.Name = 'MS Sans Serif'
  269.     Font.Style = [fsBold]
  270.     ParentFont = False
  271.     Transparent = True
  272.   end
  273.   object Klucz2: TLabel
  274.     Left = 600
  275.     Top = 180
  276.     Width = 32
  277.     Height = 13
  278.     Caption = 'Klucz2'
  279.     Visible = False
  280.   end
  281.   object Klucz1: TLabel
  282.     Left = 204
  283.     Top = 180
  284.     Width = 32
  285.     Height = 13
  286.     Caption = 'Klucz1'
  287.     Visible = False
  288.   end
  289.   object RadioGroup1: TRadioGroup
  290.     Left = 8
  291.     Top = 256
  292.     Width = 381
  293.     Height = 285
  294.     Caption = ' Lista druk∩┐╜w  '
  295.     Font.Color = clBlack
  296.     Font.Height = -11
  297.     Font.Name = 'MS Sans Serif'
  298.     Font.Style = []
  299.     Items.Strings = (
  300.       'przelew bankowy'
  301.       'wp∩┐╜ata na konto/druk 3-cz.'
  302.       'wp∩┐╜ata na konto/druk 4-cz.'
  303.       'potw. nadania listu poleconego'
  304.       'pobranie pocztowe - stare'
  305.       'pobranie pocztowe - nowe'
  306.       'koperta A4'
  307.       'koperta A5'
  308.       'koperta A6'
  309.       'koperta C6'
  310.       'paczka'
  311.       'przekaz telegraficzny'
  312.       'przekaz pocztowy'
  313.       'etykieta adresowa')
  314.     ParentFont = False
  315.     TabOrder = 13
  316.     OnClick = RadioGroup1Click
  317.   end
  318.   object Memo3: TMemo
  319.     Left = 112
  320.     Top = 296
  321.     Width = 45
  322.     Height = 21
  323.     Lines.Strings = (
  324.       'Memo3')
  325.     TabOrder = 32
  326.     Visible = False
  327.   end
  328.   object GroupBox3: TGroupBox
  329.     Left = 404
  330.     Top = 256
  331.     Width = 381
  332.     Height = 253
  333.     Caption = ' Dodatkowe dane '
  334.     TabOrder = 14
  335.     object Label10: TLabel
  336.       Left = 12
  337.       Top = 20
  338.       Width = 164
  339.       Height = 13
  340.       Caption = 'Kwota przelewu/przekazu  z∩┐╜otych'
  341.     end
  342.     object Label11: TLabel
  343.       Left = 12
  344.       Top = 40
  345.       Width = 107
  346.       Height = 13
  347.       Caption = 'Tytu∩┐╜ wp∩┐╜aty/przelewu'
  348.     end
  349.     object Label21: TLabel
  350.       Left = 12
  351.       Top = 60
  352.       Width = 84
  353.       Height = 13
  354.       Caption = 'Zawarto∩┐╜∩┐╜ paczki'
  355.     end
  356.     object Label22: TLabel
  357.       Left = 12
  358.       Top = 80
  359.       Width = 112
  360.       Height = 13
  361.       Caption = 'Warto∩┐╜∩┐╜ paczki z∩┐╜otych'
  362.     end
  363.     object Edit10: TEdit
  364.       Left = 204
  365.       Top = 16
  366.       Width = 169
  367.       Height = 21
  368.       Font.Color = clBlack
  369.       Font.Height = -11
  370.       Font.Name = 'MS Sans Serif'
  371.       Font.Style = [fsBold]
  372.       MaxLength = 10
  373.       ParentFont = False
  374.       TabOrder = 0
  375.       Text = '0,00'
  376.       OnEnter = Edit10Enter
  377.       OnExit = Edit10Exit
  378.     end
  379.     object Edit20: TComboBox
  380.       Left = 204
  381.       Top = 36
  382.       Width = 169
  383.       Height = 21
  384.       Font.Color = clBlack
  385.       Font.Height = -11
  386.       Font.Name = 'MS Sans Serif'
  387.       Font.Style = [fsBold]
  388.       ItemHeight = 13
  389.       MaxLength = 25
  390.       ParentFont = False
  391.       TabOrder = 2
  392.       OnEnter = Edit20Enter
  393.       OnExit = Edit20Exit
  394.     end
  395.     object Edit21: TComboBox
  396.       Left = 204
  397.       Top = 56
  398.       Width = 169
  399.       Height = 21
  400.       Font.Color = clBlack
  401.       Font.Height = -11
  402.       Font.Name = 'MS Sans Serif'
  403.       Font.Style = [fsBold]
  404.       ItemHeight = 13
  405.       MaxLength = 25
  406.       ParentFont = False
  407.       TabOrder = 4
  408.       OnEnter = Edit21Enter
  409.       OnExit = Edit21Exit
  410.     end
  411.     object Edit22: TEdit
  412.       Left = 204
  413.       Top = 76
  414.       Width = 169
  415.       Height = 21
  416.       Font.Color = clBlack
  417.       Font.Height = -11
  418.       Font.Name = 'MS Sans Serif'
  419.       Font.Style = [fsBold]
  420.       MaxLength = 10
  421.       ParentFont = False
  422.       TabOrder = 5
  423.       Text = '0,00'
  424.       OnEnter = Edit22Enter
  425.       OnExit = Edit22Exit
  426.     end
  427.     object b_plus1: TButton
  428.       Left = 184
  429.       Top = 40
  430.       Width = 17
  431.       Height = 17
  432.       Caption = '...'
  433.       TabOrder = 1
  434.       OnClick = b_plus1Click
  435.     end
  436.     object b_plus2: TButton
  437.       Left = 184
  438.       Top = 60
  439.       Width = 17
  440.       Height = 17
  441.       Caption = '...'
  442.       TabOrder = 3
  443.       OnClick = b_plus2Click
  444.     end
  445.   end
  446.   object p_ksiazka_nadawcza: TPanel
  447.     Left = 404
  448.     Top = 360
  449.     Width = 381
  450.     Height = 149
  451.     BevelInner = bvRaised
  452.     BevelOuter = bvLowered
  453.     TabOrder = 15
  454.     object Label85: TLabel
  455.       Left = 20
  456.       Top = 5
  457.       Width = 353
  458.       Height = 13
  459.       Alignment = taCenter
  460.       AutoSize = False
  461.       Caption = 'Pocztowa Ksi∩┐╜∩┐╜ka Nadawcza'
  462.       Font.Color = clPurple
  463.       Font.Height = -11
  464.       Font.Name = 'MS Sans Serif'
  465.       Font.Style = [fsBold]
  466.       ParentFont = False
  467.       Transparent = True
  468.     end
  469.     object Label29: TLabel
  470.       Left = 12
  471.       Top = 20
  472.       Width = 133
  473.       Height = 13
  474.       Alignment = taCenter
  475.       AutoSize = False
  476.       Caption = 'Adresat'
  477.       Font.Color = clPurple
  478.       Font.Height = -11
  479.       Font.Name = 'MS Sans Serif'
  480.       Font.Style = []
  481.       ParentFont = False
  482.     end
  483.     object Label86: TLabel
  484.       Left = 252
  485.       Top = 20
  486.       Width = 57
  487.       Height = 13
  488.       Alignment = taCenter
  489.       AutoSize = False
  490.       Caption = 'Warto∩┐╜∩┐╜'
  491.       Font.Color = clPurple
  492.       Font.Height = -11
  493.       Font.Name = 'MS Sans Serif'
  494.       Font.Style = []
  495.       ParentFont = False
  496.     end
  497.     object Label87: TLabel
  498.       Left = 312
  499.       Top = 20
  500.       Width = 61
  501.       Height = 13
  502.       Alignment = taCenter
  503.       AutoSize = False
  504.       Caption = 'Pobranie'
  505.       Font.Color = clPurple
  506.       Font.Height = -11
  507.       Font.Name = 'MS Sans Serif'
  508.       Font.Style = []
  509.       ParentFont = False
  510.     end
  511.     object Label88: TLabel
  512.       Left = 152
  513.       Top = 20
  514.       Width = 93
  515.       Height = 13
  516.       Alignment = taCenter
  517.       AutoSize = False
  518.       Caption = 'Miejscowo∩┐╜∩┐╜'
  519.       Font.Color = clPurple
  520.       Font.Height = -11
  521.       Font.Name = 'MS Sans Serif'
  522.       Font.Style = []
  523.       ParentFont = False
  524.     end
  525.     object ListPobranie: TListBox
  526.       Left = 312
  527.       Top = 36
  528.       Width = 61
  529.       Height = 73
  530.       TabStop = False
  531.       ItemHeight = 13
  532.       TabOrder = 3
  533.     end
  534.     object ListWartosc: TListBox
  535.       Left = 248
  536.       Top = 36
  537.       Width = 65
  538.       Height = 73
  539.       TabStop = False
  540.       ItemHeight = 13
  541.       TabOrder = 2
  542.     end
  543.     object ListAdres: TListBox
  544.       Left = 148
  545.       Top = 36
  546.       Width = 101
  547.       Height = 73
  548.       TabStop = False
  549.       ItemHeight = 13
  550.       TabOrder = 1
  551.     end
  552.     object ListName: TListBox
  553.       Left = 8
  554.       Top = 36
  555.       Width = 141
  556.       Height = 73
  557.       TabStop = False
  558.       ItemHeight = 13
  559.       TabOrder = 0
  560.     end
  561.     object b_ksiazka: TButton
  562.       Left = 8
  563.       Top = 116
  564.       Width = 141
  565.       Height = 25
  566.       Caption = 'Dopisanie do Ksi∩┐╜∩┐╜ki'
  567.       TabOrder = 4
  568.       OnClick = b_ksiazkaClick
  569.     end
  570.     object b_pokaz: TButton
  571.       Left = 148
  572.       Top = 116
  573.       Width = 101
  574.       Height = 25
  575.       Caption = 'Druk Ksi∩┐╜∩┐╜ki'
  576.       TabOrder = 5
  577.       OnClick = b_pokazClick
  578.     end
  579.     object b_clear: TButton
  580.       Left = 248
  581.       Top = 116
  582.       Width = 125
  583.       Height = 25
  584.       Caption = 'Kasowanie zawarto∩┐╜ci'
  585.       TabOrder = 6
  586.       OnClick = b_clearClick
  587.     end
  588.   end
  589.   object Panel2: TPanel
  590.     Left = 200
  591.     Top = 264
  592.     Width = 185
  593.     Height = 273
  594.     BevelOuter = bvNone
  595.     Color = clWhite
  596.     TabOrder = 29
  597.     object Image1: TImage
  598.       Left = 4
  599.       Top = 4
  600.       Width = 177
  601.       Height = 265
  602.       Center = True
  603.       Picture.Data = {<image001.bmp>}
  604.     end
  605.   end
  606.   object Button13: TButton
  607.     Left = 404
  608.     Top = 56
  609.     Width = 381
  610.     Height = 25
  611.     Caption = 'Dodaj - usu∩┐╜ - zmie∩┐╜ wpis w Bazie adresat∩┐╜w'
  612.     TabOrder = 8
  613.     OnClick = Button13Click
  614.   end
  615.   object Lista_adresatow: TComboBox
  616.     Left = 404
  617.     Top = 28
  618.     Width = 381
  619.     Height = 24
  620.     Style = csDropDownList
  621.     Color = clMaroon
  622.     DropDownCount = 30
  623.     Font.Color = clYellow
  624.     Font.Height = -13
  625.     Font.Name = 'MS Sans Serif'
  626.     Font.Style = [fsBold]
  627.     ItemHeight = 16
  628.     MaxLength = 80
  629.     ParentFont = False
  630.     TabOrder = 7
  631.     OnChange = Lista_adresatowChange
  632.     OnClick = Lista_adresatowChange
  633.     OnEnter = Lista_adresatowEnter
  634.   end
  635.   object Lista_nadawcow: TComboBox
  636.     Left = 8
  637.     Top = 28
  638.     Width = 381
  639.     Height = 24
  640.     Style = csDropDownList
  641.     Color = clTeal
  642.     DropDownCount = 30
  643.     Font.Color = clYellow
  644.     Font.Height = -13
  645.     Font.Name = 'MS Sans Serif'
  646.     Font.Style = [fsBold]
  647.     ItemHeight = 16
  648.     MaxLength = 80
  649.     ParentFont = False
  650.     TabOrder = 0
  651.     OnClick = Lista_nadawcowChange
  652.     OnEnter = Lista_nadawcowEnter
  653.   end
  654.   object Button12: TButton
  655.     Left = 8
  656.     Top = 56
  657.     Width = 381
  658.     Height = 25
  659.     Caption = 'Dodaj - usu∩┐╜ - zmie∩┐╜ wpis w Bazie nadawc∩┐╜w'
  660.     Font.Color = clBlack
  661.     Font.Height = -11
  662.     Font.Name = 'MS Sans Serif'
  663.     Font.Style = []
  664.     ParentFont = False
  665.     TabOrder = 1
  666.     OnClick = Button12Click
  667.   end
  668.   object b_drukuj1: TButton
  669.     Left = 8
  670.     Top = 548
  671.     Width = 126
  672.     Height = 25
  673.     Caption = 'Drukowanie bez druku'
  674.     Enabled = False
  675.     TabOrder = 17
  676.     OnClick = b_drukuj1Click
  677.   end
  678.   object b_drukuj2: TButton
  679.     Left = 133
  680.     Top = 548
  681.     Width = 130
  682.     Height = 25
  683.     Caption = 'Drukowanie na druku'
  684.     TabOrder = 18
  685.     OnClick = b_drukuj2Click
  686.   end
  687.   object ciag_2: TEdit
  688.     Left = 556
  689.     Top = 196
  690.     Width = 133
  691.     Height = 21
  692.     TabStop = False
  693.     MaxLength = 30
  694.     TabOrder = 9
  695.     OnEnter = ciag_2Enter
  696.     OnExit = ciag_2Exit
  697.   end
  698.   object ciag_1: TEdit
  699.     Left = 160
  700.     Top = 196
  701.     Width = 133
  702.     Height = 21
  703.     TabStop = False
  704.     MaxLength = 30
  705.     TabOrder = 2
  706.     OnEnter = ciag_1Enter
  707.     OnExit = ciag_1Exit
  708.   end
  709.   object b_szukaj1: TButton
  710.     Left = 300
  711.     Top = 196
  712.     Width = 89
  713.     Height = 21
  714.     Caption = 'Szukaj'
  715.     TabOrder = 3
  716.     TabStop = False
  717.     OnClick = b_szukaj1Click
  718.   end
  719.   object b_szukaj2: TButton
  720.     Left = 696
  721.     Top = 196
  722.     Width = 89
  723.     Height = 21
  724.     Caption = 'Szukaj'
  725.     TabOrder = 10
  726.     TabStop = False
  727.     OnClick = b_szukaj2Click
  728.   end
  729.   object find1: TComboBox
  730.     Left = 8
  731.     Top = 224
  732.     Width = 381
  733.     Height = 24
  734.     TabStop = False
  735.     Style = csDropDownList
  736.     Color = clTeal
  737.     DropDownCount = 13
  738.     Font.Color = clYellow
  739.     Font.Height = -13
  740.     Font.Name = 'MS Sans Serif'
  741.     Font.Style = [fsBold]
  742.     ItemHeight = 16
  743.     MaxLength = 80
  744.     ParentFont = False
  745.     Sorted = True
  746.     TabOrder = 11
  747.     OnChange = find1Change
  748.   end
  749.   object find2: TComboBox
  750.     Left = 404
  751.     Top = 224
  752.     Width = 381
  753.     Height = 24
  754.     TabStop = False
  755.     Style = csDropDownList
  756.     Color = clMaroon
  757.     DropDownCount = 13
  758.     Font.Color = clYellow
  759.     Font.Height = -13
  760.     Font.Name = 'MS Sans Serif'
  761.     Font.Style = [fsBold]
  762.     ItemHeight = 16
  763.     MaxLength = 80
  764.     ParentFont = False
  765.     Sorted = True
  766.     TabOrder = 12
  767.     OnChange = find2Change
  768.   end
  769.   object b_odwrotny: TButton
  770.     Left = 262
  771.     Top = 548
  772.     Width = 99
  773.     Height = 25
  774.     Caption = 'Druk odwrotny'
  775.     TabOrder = 19
  776.     OnClick = b_odwrotnyClick
  777.   end
  778.   object p_opcje: TPanel
  779.     Left = 484
  780.     Top = 88
  781.     Width = 165
  782.     Height = 45
  783.     BevelOuter = bvNone
  784.     TabOrder = 24
  785.     Visible = False
  786.     object Label28: TLabel
  787.       Left = 28
  788.       Top = 20
  789.       Width = 127
  790.       Height = 20
  791.       Caption = 'Panel ustawie∩┐╜'
  792.       Font.Color = clBlack
  793.       Font.Height = -16
  794.       Font.Name = 'MS Sans Serif'
  795.       Font.Style = [fsBold]
  796.       ParentFont = False
  797.     end
  798.     object Drukarka: TRadioGroup
  799.       Left = 24
  800.       Top = 48
  801.       Width = 141
  802.       Height = 105
  803.       Caption = ' Wybierz rodzaj drukarki '
  804.       ItemIndex = 1
  805.       Items.Strings = (
  806.         'ig∩┐╜owa'
  807.         'atramentowa'
  808.         'laserowa')
  809.       TabOrder = 0
  810.     end
  811.     object MultiLineBtn1: TMultiLineBtn
  812.       Left = 24
  813.       Top = 176
  814.       Width = 141
  815.       Height = 25
  816.       Caption = 'Ustawienia drukarki'
  817.       TabOrder = 1
  818.       OnClick = MultiLineBtn1Click
  819.     end
  820.     object Button2: TButton
  821.       Left = 24
  822.       Top = 220
  823.       Width = 141
  824.       Height = 25
  825.       Caption = 'Zamknij panel ustawie∩┐╜'
  826.       TabOrder = 2
  827.       OnClick = Button2Click
  828.     end
  829.   end
  830.   object b_drukuj_seria: TButton
  831.     Left = 360
  832.     Top = 548
  833.     Width = 181
  834.     Height = 25
  835.     Caption = 'Lista druku seryjnego'
  836.     TabOrder = 20
  837.     OnClick = b_drukuj_seriaClick
  838.   end
  839.   object b_urzedy: TButton
  840.     Left = 544
  841.     Top = 4
  842.     Width = 81
  843.     Height = 21
  844.     Caption = 'Urz∩┐╜dy'
  845.     Font.Color = clBlack
  846.     Font.Height = -11
  847.     Font.Name = 'MS Sans Serif'
  848.     Font.Style = [fsBold]
  849.     ParentFont = False
  850.     TabOrder = 4
  851.     OnClick = b_urzedyClick
  852.   end
  853.   object b_opcje: TButton
  854.     Left = 540
  855.     Top = 548
  856.     Width = 137
  857.     Height = 25
  858.     Caption = 'Drukarka'
  859.     TabOrder = 21
  860.     TabStop = False
  861.     OnClick = b_opcjeClick
  862.   end
  863.   object b_zamknij: TButton
  864.     Left = 676
  865.     Top = 548
  866.     Width = 109
  867.     Height = 25
  868.     Caption = 'Zamknij'
  869.     TabOrder = 22
  870.     OnClick = b_zamknijClick
  871.   end
  872.   object b_firmy: TButton
  873.     Left = 624
  874.     Top = 4
  875.     Width = 81
  876.     Height = 21
  877.     Caption = 'Firmy'
  878.     TabOrder = 5
  879.     OnClick = b_firmyClick
  880.   end
  881.   object b_prywatne: TButton
  882.     Left = 704
  883.     Top = 4
  884.     Width = 81
  885.     Height = 21
  886.     Caption = 'Prywatne'
  887.     Font.Color = clBlack
  888.     Font.Height = -11
  889.     Font.Name = 'MS Sans Serif'
  890.     Font.Style = []
  891.     ParentFont = False
  892.     TabOrder = 6
  893.     OnClick = b_prywatneClick
  894.   end
  895.   object Memo2: TMemo
  896.     Left = 200
  897.     Top = 261
  898.     Width = 189
  899.     Height = 280
  900.     Alignment = taCenter
  901.     Lines.Strings = (
  902.       'PostBank∩┐╜'
  903.       'JaPa Software ∩┐╜∩┐╜d∩┐╜'
  904.       'tel. 042/ 650 58 59'
  905.       'e-mail:japasoft@polbox.com'
  906.       '==========================='
  907.       'PostBank∩┐╜ - to program do '
  908.       'adresowania kopert, etykiet '
  909.       'adresowych, wype∩┐╜niania wszelkich '
  910.       'druk∩┐╜w pocztowych i bankowych '
  911.       'oraz prowadzenia Bazy '
  912.       'teleadresowej. Pozwala na '
  913.       'uporz∩┐╜dkowanie ca∩┐╜ej '
  914.       'korespondencji wychodz∩┐╜cej z '
  915.       'firmy, biura lub domu. Prostota '
  916.       'obs∩┐╜ugi - to co∩┐╜ co wyr∩┐╜nia ten '
  917.       'program. Kontrolowanie '
  918.       'poprawno∩┐╜ci pocztowych numer∩┐╜w '
  919.       'adresowych (kod∩┐╜w), pozwoli na '
  920.       'bezb∩┐╜∩┐╜dne adresowanie przesy∩┐╜ek - '
  921.       'a co za tym idzie - na szybsze jej '
  922.       'dostarczenie do adresata. Program '
  923.       'obs∩┐╜uguje drukowanie seryjne, np. '
  924.       'etykiet adresowych, kopert i innych. '
  925.       'Jest przeznaczony do pracy w '
  926.       'rozdzielczo∩┐╜ci min. 800x600. '
  927.       'Wsp∩┐╜pracuje z drukarkami '
  928.       'atramentowymi i laserowymi. Jest '
  929.       'przystosowany do nowego podzia∩┐╜u '
  930.       'terytorialnego kraju. '
  931.       '"Przygotowany" na rok 2000 - '
  932.       'zapewnia bezb∩┐╜∩┐╜dn∩┐╜ prac∩┐╜ po '
  933.       'wkroczeniu w nowe tysi∩┐╜clecie. '
  934.       'Wsp∩┐╜pracuje z naszymi '
  935.       'programami ksi∩┐╜gowymi. '
  936.       'Cena pe∩┐╜nej wersji programu to '
  937.       'tylko'
  938.       '49,00 z∩┐╜ z VAT.'
  939.       'Prezent !!! Do ka∩┐╜dego programu '
  940.       'jest dodawana nieodp∩┐╜atnie '
  941.       'Ksi∩┐╜∩┐╜ka Kodowa: Polska.'
  942.       'Wystawiamy faktury VAT.'
  943.       '==========================='
  944.       'Inne opcje programu (np. dla '
  945.       'drukarek ig∩┐╜owych, z inn∩┐╜ ksi∩┐╜∩┐╜k∩┐╜ '
  946.       'kodow∩┐╜ itd.) - po uzgodnieniu '
  947.       'telefonicznym lub mail'#39'owym.'
  948.       'W ofercie posiadamy aktualnie '
  949.       'Ksi∩┐╜∩┐╜ki Kodowe : Czechy, '
  950.       'Szwajcaria, Dania, Rumunia, '
  951.       'Bu∩┐╜garia, Holandia, Chorwacja, '
  952.       'S∩┐╜owenia, W∩┐╜ochy, Australia (cena '
  953.       'jednostkowa 19,00 z∩┐╜ z VAT). '
  954.       'Uwaga! Oferta specjalna dla '
  955.       'klient∩┐╜w zamawiaj∩┐╜cych wersj∩┐╜ ze '
  956.       'wszystkimi ksi∩┐╜∩┐╜kami kodowymi: '
  957.       '99,00 z∩┐╜ z VAT.'
  958.       ''
  959.       'INSTRUKCJA OBS∩┐╜UGI'
  960.       ''
  961.       '1. Dodawanie nadawcy :'
  962.       '- nacisn∩┐╜∩┐╜ "Dodaj - Usu∩┐╜ ..." po '
  963.       'stronie: Nadawca;'
  964.       '- w nowo otwartym okienku '
  965.       'nacisn∩┐╜∩┐╜ "Nowy";'
  966.       '- wype∩┐╜ni∩┐╜ kolejne rubryki;'
  967.       '- nacisn∩┐╜∩┐╜ "Dodaj do rejestru '
  968.       'nadawc∩┐╜w";'
  969.       '- zamkn∩┐╜∩┐╜ okienko naciskaj∩┐╜c '
  970.       '"Powr∩┐╜t".'
  971.       ''
  972.       '2. Dodawanie adresata :'
  973.       '- nacisn∩┐╜∩┐╜ "Dodaj - Usu∩┐╜ ..." po '
  974.       'stronie: Adresat;'
  975.       '- w nowo otwartym okienku '
  976.       'nacisn∩┐╜∩┐╜ "Nowy";'
  977.       '- wype∩┐╜ni∩┐╜ kolejne rubryki;'
  978.       '- nacisn∩┐╜∩┐╜ "Dodaj do rejestru '
  979.       'adresat∩┐╜w";'
  980.       '- wybra∩┐╜ grup∩┐╜, w kt∩┐╜rej dokonany '
  981.       'wpis b∩┐╜dzie przechowywany '
  982.       '(mo∩┐╜na doda∩┐╜ tego samego '
  983.       'adresata do wszystkich grup '
  984.       'naciskaj∩┐╜c ponownie "Dodaj do '
  985.       'rejestru ..." i wybieraj∩┐╜c inn∩┐╜ grup∩┐╜);'
  986.       '- zamkn∩┐╜∩┐╜ okienko naciskaj∩┐╜c '
  987.       '"Powr∩┐╜t".'
  988.       ''
  989.       '3. Aby wybra∩┐╜ ∩┐╜∩┐╜danego Nadawc∩┐╜ '
  990.       'nale∩┐╜y wybra∩┐╜ go z listy : '
  991.       '"Nadawca". Po wybraniu '
  992.       'odpowiednie rubryki (Nadawca, '
  993.       'Adres ...) powinny zosta∩┐╜ '
  994.       'wype∩┐╜nione.'
  995.       ''
  996.       '4. Aby wybra∩┐╜ ∩┐╜∩┐╜danego Adresata '
  997.       'nale∩┐╜y nacisn∩┐╜∩┐╜ przycisk '
  998.       'odpowiadaj∩┐╜cy grupie, z kt∩┐╜rej '
  999.       'chcemy pobra∩┐╜ dane adresata, a '
  1000.       'nast∩┐╜pnie wybra∩┐╜ go z listy : '
  1001.       '"Adresat". Po wybraniu - '
  1002.       'odpowiednie rubryki (Nadawca, '
  1003.       'Adres ...) powinny zosta∩┐╜ '
  1004.       'wype∩┐╜nione (program domy∩┐╜lnie po '
  1005.       'uruchomieniu wczytuje grup∩┐╜: '
  1006.       '"Prywatne", co jest uwidocznione '
  1007.       'poprzez pogrubienie napisu na '
  1008.       'okre∩┐╜lonym klawiszu).'
  1009.       ''
  1010.       '5. Zmiany w adresie nadawcy lub '
  1011.       'adresata.'
  1012.       'Aby tego dokona∩┐╜ nale∩┐╜y po '
  1013.       'wybraniu ∩┐╜∩┐╜danego '
  1014.       'Nadawcy/Adresata nacisn∩┐╜∩┐╜ '
  1015.       '"Dodaj - Usu∩┐╜ ..." i po '
  1016.       'wprowadzeniu odpowiednich zmian '
  1017.       'nacisn∩┐╜∩┐╜ "Zapisz zmiany".'
  1018.       ''
  1019.       '6. Wyszukiwanie '
  1020.       'nadawcy/adresata wg okre∩┐╜lonego '
  1021.       'ci∩┐╜gu znak∩┐╜w.'
  1022.       'Procedur∩┐╜ wyszukiwania nale∩┐╜y '
  1023.       'zacz∩┐╜∩┐╜ od wpisania w pole '
  1024.       '"Poszukiwany ci∩┐╜g znak∩┐╜w": '
  1025.       'klucza, wg kt∩┐╜rego program ma '
  1026.       'wyszuka∩┐╜ Nadawc∩┐╜/Adresata '
  1027.       '(Uwaga! Wa∩┐╜na jest wielko∩┐╜∩┐╜ '
  1028.       'wprowadzanych liter). Kluczem tym '
  1029.       'mo∩┐╜e by∩┐╜ dowolny ci∩┐╜g znak∩┐╜w '
  1030.       '(np. Wars). Po naci∩┐╜ni∩┐╜ciu "Szukaj" '
  1031.       '- program odnajdzie ∩┐╜∩┐╜dane adresy '
  1032.       'zawieraj∩┐╜ce ci∩┐╜g liter: Wars (np. '
  1033.       'adresy zawieraj∩┐╜ce : miasto '
  1034.       'Warszawa, ulica Warszawska lub '
  1035.       'firm∩┐╜ o nazwie Wars). Nale∩┐╜y przy '
  1036.       'tym pami∩┐╜ta∩┐╜, i∩┐╜ w przypadku '
  1037.       'adresat∩┐╜w program dokonuje '
  1038.       'przeszukania tylko w aktywnej '
  1039.       'grupie (np. "Prywatne"). Znaleziona '
  1040.       'lista nadawc∩┐╜w/adresat∩┐╜w zostanie '
  1041.       'wczytana do listy poni∩┐╜ej klawisza '
  1042.       '"Szukaj". Wykaz znalezionych '
  1043.       'adresat∩┐╜w zostaje r∩┐╜wnie∩┐╜ '
  1044.       'automatycznie zapisany na li∩┐╜cie '
  1045.       '"Drukowania seryjnego".'
  1046.       ''
  1047.       '7. Adresowanie.'
  1048.       'Po wybraniu (z listy) nadawcy '
  1049.       'przesy∩┐╜ki, nale∩┐╜y wybra∩┐╜ adresata '
  1050.       'oraz zaznaczy∩┐╜, jakiego typu '
  1051.       'blankiet lub koperta b∩┐╜dzie '
  1052.       'wype∩┐╜niany. W tym okienku pojawi '
  1053.       'si∩┐╜ w∩┐╜wczas schematyczny rysunek '
  1054.       'blankietu wraz z opisem sposobu '
  1055.       'podawania go do '
  1056.       'drukarki.Poniewa∩┐╜ na niekt∩┐╜rych '
  1057.       'formularzach konieczne jest '
  1058.       'umieszczenie dodatkowych danych '
  1059.       'mo∩┐╜na je okre∩┐╜li∩┐╜ wykorzystuj∩┐╜c '
  1060.       'przeznaczone do tego pola. Wpisa∩┐╜ '
  1061.       'tu mo∩┐╜emy:'
  1062.       '-kwot∩┐╜ przelewu lub przekazu '
  1063.       'cyframi (w druku pojawi si∩┐╜ ona '
  1064.       'r∩┐╜wnie∩┐╜ w postaci s∩┐╜ownej),'
  1065.       '-tytu∩┐╜ wp∩┐╜aty b∩┐╜d∩┐╜ przelewu na '
  1066.       'konto (po klikni∩┐╜ciu na odpowiedni  '
  1067.       'kwadracik z wielokropkiem mo∩┐╜emy '
  1068.       'uzupe∩┐╜nia∩┐╜ wpisy dodatkowego '
  1069.       'okienka, aby p∩┐╜niej korzysta∩┐╜ z '
  1070.       'niego rozwijaj∩┐╜c utworzon∩┐╜ w ten '
  1071.       'spos∩┐╜b list∩┐╜ tytu∩┐╜∩┐╜w),'
  1072.       '-zawarto∩┐╜∩┐╜ paczki tworz∩┐╜c '
  1073.       'analogicznie jak poprzednio wykaz '
  1074.       'towar∩┐╜w w postaci listy do '
  1075.       'rozwini∩┐╜cia,'
  1076.       '-warto∩┐╜∩┐╜ paczki cyframi '
  1077.       '(wydrukowana ona zostanie '
  1078.       'rownie∩┐╜ s∩┐╜ownie).'
  1079.       'Po uzupe∩┐╜nieniu powy∩┐╜szych '
  1080.       'danych nale∩┐╜y w∩┐╜o∩┐╜y∩┐╜ do drukarki '
  1081.       'odpowiedni typ druku lub koperty i '
  1082.       'nacisn∩┐╜∩┐╜ "Drukowanie na druku". '
  1083.       'Je∩┐╜eli nie posiadamy okre∩┐╜lonego '
  1084.       'typu blankietu potrzebny formularz '
  1085.       'wype∩┐╜niony okre∩┐╜lonymi wcze∩┐╜niej '
  1086.       'danymi otrzymamy po naci∩┐╜ni∩┐╜ciu '
  1087.       '"Drukowanie bez druku" i podaniu '
  1088.       'do drukarki czystej kartki '
  1089.       'odpowiedniego formatu. Niniejszy '
  1090.       'program umo∩┐╜liwia wydrukowanie '
  1091.       'wi∩┐╜kszej ilo∩┐╜ci kopert lub blankiet∩┐╜w '
  1092.       'jednego typu (oczywi∩┐╜cie z r∩┐╜nymi '
  1093.       'adresatami przy zachowaniu '
  1094.       'niezmienno∩┐╜ci pozosta∩┐╜ych wpis∩┐╜w) '
  1095.       'za pomoc∩┐╜ pojedynczej komendy. '
  1096.       'S∩┐╜u∩┐╜y do tego klawisz "Lista druku '
  1097.       'seryjnego". Po jego naci∩┐╜ni∩┐╜ciu '
  1098.       'otwiera si∩┐╜ okno, z kt∩┐╜rego '
  1099.       'wybieramy zgodnie ze '
  1100.       'wskaz∩┐╜wkami dowoln∩┐╜ ilo∩┐╜∩┐╜ '
  1101.       'adresat∩┐╜w (funkcjonuj∩┐╜ce tu listy '
  1102.       'adresat∩┐╜w "prywatnych", '
  1103.       '"urz∩┐╜dowych" i "firmowych" s∩┐╜ od '
  1104.       'siebie ca∩┐╜kowicie niezale∩┐╜ne). '
  1105.       'Klikni∩┐╜cie na klawisz "Drukowanie '
  1106.       'seryjne" uruchamia proces '
  1107.       'drukowania zaordynowanej ilo∩┐╜ci '
  1108.       'kopert lub blankiet∩┐╜w. Dotyczy to '
  1109.       'r∩┐╜wnie∩┐╜ druku seryjnego etykiet '
  1110.       '(naklejek) adresowych. W '
  1111.       'przypadku drukowania '
  1112.       'pojedynczych etykiet korzystamy z '
  1113.       'dodatkowego okienka otwieranego '
  1114.       'przy wyborze rodzaju druku '
  1115.       '("etykieta adresowa"). Ukazuje nam '
  1116.       'si∩┐╜ wtedy uk∩┐╜ad etykiet na arkuszu, '
  1117.       'z kt∩┐╜rego wybieramy jak∩┐╜∩┐╜ pozycj∩┐╜. '
  1118.       'Pozwala to wykorzysta∩┐╜ pozosta∩┐╜e '
  1119.       'jeszcze naklejki na u∩┐╜ywanych '
  1120.       'wcze∩┐╜niej arkuszach. W pe∩┐╜nej '
  1121.       'wersji program obs∩┐╜uguje kilka '
  1122.       'r∩┐╜nych format∩┐╜w etykiet '
  1123.       'adresowych. Przydatna w wielu '
  1124.       'firmach oka∩┐╜e si∩┐╜ zapewne funkcja '
  1125.       '"drukowania odwrotnego". '
  1126.       'Oznacza ona zamian∩┐╜ adres∩┐╜w '
  1127.       'nadawcy i adresata na wydrukach. '
  1128.       'Cz∩┐╜sto w celu u∩┐╜atwienia klientom '
  1129.       'dokonania czynno∩┐╜ci wysy∩┐╜kowych '
  1130.       'lub p∩┐╜atniczych na nasz∩┐╜ rzecz '
  1131.       'do∩┐╜∩┐╜czamy do przesy∩┐╜ek koperty '
  1132.       'zwrotne, wype∩┐╜nione blankiety itp. '
  1133.       'Mo∩┐╜emy je z ∩┐╜atwo∩┐╜ci∩┐╜ '
  1134.       'wydrukowa∩┐╜, bez dokonywania '
  1135.       'ponownych wpis∩┐╜w, klikaj∩┐╜c na '
  1136.       'klawisz "Druk odwrotny".'
  1137.       ''
  1138.       '8. Ksi∩┐╜∩┐╜ka Nadawcza.'
  1139.       'W trakcie adresowania mo∩┐╜na '
  1140.       'wybranego adresata b∩┐╜d∩┐╜ ca∩┐╜∩┐╜ ich '
  1141.       'list∩┐╜ (w przypadku druku seryjnego) '
  1142.       'doda∩┐╜ do Ksi∩┐╜∩┐╜ki Nadawczej bez '
  1143.       'konieczno∩┐╜ci jej posiadania. '
  1144.       'Program wydrukuje stron∩┐╜ Ksi∩┐╜∩┐╜ki w '
  1145.       'jej oryginalnym kszta∩┐╜cie wraz z '
  1146.       'wype∩┐╜nionymi rubrykami. Nale∩┐╜y '
  1147.       'pami∩┐╜ta∩┐╜, i∩┐╜ strona Ksi∩┐╜∩┐╜ki '
  1148.       'Nadawczej musi by∩┐╜ wydrukowana '
  1149.       'w 2 egzemplarzach. W tym celu '
  1150.       'nale∩┐╜y w∩┐╜o∩┐╜y∩┐╜ do drukarki arkusz '
  1151.       'papieru A4 i po wydrukowaniu '
  1152.       'jednej strony mo∩┐╜na ten sam arkusz '
  1153.       'w∩┐╜o∩┐╜y∩┐╜ powt∩┐╜rnie do drukarki '
  1154.       '"okr∩┐╜caj∩┐╜c" go o 180 stopni. W '
  1155.       'efekcie tego - z∩┐╜o∩┐╜enie kartki na '
  1156.       'p∩┐╜ - spowoduje (po w∩┐╜o∩┐╜eniu kalki '
  1157.       'lub zastosowaniu papieru '
  1158.       'samokopiuj∩┐╜cego) mo∩┐╜liwo∩┐╜∩┐╜ '
  1159.       'jednorazowego wype∩┐╜nienia strony '
  1160.       'Ksi∩┐╜∩┐╜ki przez pracownika Poczty. '
  1161.       'Poniewa∩┐╜ ka∩┐╜da strona Ksi∩┐╜∩┐╜ki '
  1162.       'Nadawczej zawiera tylko dziesi∩┐╜∩┐╜ '
  1163.       'pozycji - nale∩┐╜y pami∩┐╜ta∩┐╜, aby w '
  1164.       'drukarce umie∩┐╜ci∩┐╜ odpowiedni∩┐╜ '
  1165.       'ilo∩┐╜∩┐╜ arkuszy papieru wystarczaj∩┐╜c∩┐╜ '
  1166.       'na wydrukowanie wszystkich '
  1167.       'adresat∩┐╜w.'
  1168.       ''
  1169.       '9.Ksi∩┐╜∩┐╜ka kodowa.'
  1170.       'Umo∩┐╜liwia ona znalezienie '
  1171.       'nieznanego wcze∩┐╜niej numeru kodu '
  1172.       'lub sprawdzenie kodu ju∩┐╜ '
  1173.       'wpisanego zar∩┐╜wno w adresie '
  1174.       'nadawcy jak i adresata. Po '
  1175.       'dokonaniu wyboru z listy nadawc∩┐╜w '
  1176.       'albo adresat∩┐╜w i wci∩┐╜ni∩┐╜ciu '
  1177.       'klawisza "Znajd∩┐╜, sprawd∩┐╜...", w '
  1178.       'dw∩┐╜ch wolnych bia∩┐╜ych polach '
  1179.       'pojawi si∩┐╜ nazwa miasta i nazwa '
  1180.       'ulicy wybranego nadawcy lub '
  1181.       'adresata. Po klikni∩┐╜ciu w klawisz '
  1182.       '"Szukaj" poni∩┐╜ej zostanie '
  1183.       'utworzona lista adres∩┐╜w '
  1184.       'odpowiadaj∩┐╜cych podanym '
  1185.       'parametrom. Trzeba j∩┐╜ rozwin∩┐╜∩┐╜ i '
  1186.       'odszuka∩┐╜ interesuj∩┐╜cy nas '
  1187.       'dok∩┐╜adny adres. Odpowiedni numer '
  1188.       'kodu pocztowego zostanie '
  1189.       'wczytany do pola "Kod pocztowy". '
  1190.       'Teraz mo∩┐╜na b∩┐╜dzie go doda∩┐╜ do '
  1191.       'konkretnego adresu wciskaj∩┐╜c '
  1192.       'klawisz "Dodaj kod do...". Kod '
  1193.       'mo∩┐╜emy znale∩┐╜∩┐╜ r∩┐╜wnie∩┐╜:'
  1194.       '- wpisuj∩┐╜c r∩┐╜cznie nazw∩┐╜ miasta i '
  1195.       'ulicy w wolne bia∩┐╜e pola okna '
  1196.       'post∩┐╜puj∩┐╜c nast∩┐╜pnie tak jak '
  1197.       'opisano powy∩┐╜ej'
  1198.       '- rozwijaj∩┐╜c list∩┐╜ miejscowo∩┐╜ci z '
  1199.       'jednym numerem kodowym i '
  1200.       'dokonuj∩┐╜c w jej ramach wyboru'
  1201.       '- wybieraj∩┐╜c z nast∩┐╜pnej listy miasto '
  1202.       'i rozwijaj∩┐╜c poni∩┐╜sz∩┐╜ list∩┐╜ z nazwami '
  1203.       'ulic w ramach tego miasta.'
  1204.       'Aby przyspieszy∩┐╜ wyszukiwanie '
  1205.       'kodu, przy listach umieszczone s∩┐╜ '
  1206.       'litery alfabetu. Wybranie jednej z '
  1207.       'nich (tej na kt∩┐╜r∩┐╜ zaczyna si∩┐╜ '
  1208.       'nazwa miejscowo∩┐╜ci lub ulicy) '
  1209.       'pozwoli na skr∩┐╜cenie ca∩┐╜ego '
  1210.       'procesu wyszukiwania numeru '
  1211.       'kodowego poprzez wczytanie do '
  1212.       'listy tylko nazw zaczynaj∩┐╜cych si∩┐╜ '
  1213.       'na wskazan∩┐╜ liter∩┐╜. Dwucz∩┐╜onowe '
  1214.       'nazwy miast nie zawieraj∩┐╜ my∩┐╜lnika '
  1215.       '(np. Bielsko Bia∩┐╜a). Nale∩┐╜y pami∩┐╜ta∩┐╜ '
  1216.       'o tym przy wpisywaniu nowych '
  1217.       'adresat∩┐╜w i nadawc∩┐╜w.')
  1218.     ScrollBars = ssVertical
  1219.     TabOrder = 30
  1220.   end
  1221.   object Button61: TButton
  1222.     Left = 180
  1223.     Top = 520
  1224.     Width = 17
  1225.     Height = 17
  1226.     Caption = '?'
  1227.     Font.Color = clBlack
  1228.     Font.Height = -11
  1229.     Font.Name = 'MS Sans Serif'
  1230.     Font.Style = [fsBold]
  1231.     ParentFont = False
  1232.     TabOrder = 31
  1233.     OnClick = Button61Click
  1234.   end
  1235.   object p_et1: TPanel
  1236.     Left = 116
  1237.     Top = 92
  1238.     Width = 213
  1239.     Height = 33
  1240.     TabOrder = 25
  1241.     Visible = False
  1242.     object Ety: TRadioGroup
  1243.       Left = 16
  1244.       Top = 16
  1245.       Width = 181
  1246.       Height = 229
  1247.       Caption = ' Zaznacz etykiet∩┐╜ do druku '
  1248.       Columns = 2
  1249.       Font.Color = clBlack
  1250.       Font.Height = -11
  1251.       Font.Name = 'MS Sans Serif'
  1252.       Font.Style = [fsBold]
  1253.       Items.Strings = (
  1254.         'nr 01'
  1255.         'nr 02'
  1256.         'nr 03'
  1257.         'nr 04'
  1258.         'nr 05'
  1259.         'nr 06'
  1260.         'nr 07'
  1261.         'nr 08'
  1262.         'nr 09'
  1263.         'nr 10'
  1264.         'nr 11'
  1265.         'nr 12'
  1266.         'nr 13'
  1267.         'nr 14'
  1268.         'nr 15'
  1269.         'nr 16')
  1270.       ParentFont = False
  1271.       TabOrder = 0
  1272.     end
  1273.     object Button3: TButton
  1274.       Left = 16
  1275.       Top = 256
  1276.       Width = 181
  1277.       Height = 25
  1278.       Caption = 'Drukuj etykiet∩┐╜ adresow∩┐╜'
  1279.       TabOrder = 1
  1280.       OnClick = Button3Click
  1281.     end
  1282.     object Button5: TButton
  1283.       Left = 16
  1284.       Top = 280
  1285.       Width = 181
  1286.       Height = 25
  1287.       Caption = 'Drukuj rozkr∩┐╜j'
  1288.       TabOrder = 2
  1289.       OnClick = Button5Click
  1290.     end
  1291.     object Button6: TButton
  1292.       Left = 16
  1293.       Top = 304
  1294.       Width = 181
  1295.       Height = 25
  1296.       Caption = 'Czcionka do druku'
  1297.       TabOrder = 3
  1298.       OnClick = Button6Click
  1299.     end
  1300.     object Button4: TButton
  1301.       Left = 16
  1302.       Top = 328
  1303.       Width = 181
  1304.       Height = 25
  1305.       Caption = 'Zamknij'
  1306.       TabOrder = 4
  1307.       OnClick = Button4Click
  1308.     end
  1309.   end
  1310.   object p_kody: TPanel
  1311.     Left = 44
  1312.     Top = 92
  1313.     Width = 509
  1314.     Height = 37
  1315.     BevelOuter = bvNone
  1316.     Font.Color = clNavy
  1317.     Font.Height = -9
  1318.     Font.Name = 'Small Fonts'
  1319.     Font.Style = [fsBold]
  1320.     ParentFont = False
  1321.     TabOrder = 26
  1322.     Visible = False
  1323.     object Label39: TLabel
  1324.       Left = 312
  1325.       Top = 4
  1326.       Width = 201
  1327.       Height = 20
  1328.       Caption = 'Ksi∩┐╜∩┐╜ka kodowa: Polska'
  1329.       Font.Color = clNavy
  1330.       Font.Height = -16
  1331.       Font.Name = 'MS Sans Serif'
  1332.       Font.Style = [fsBold]
  1333.       ParentFont = False
  1334.     end
  1335.     object Label49: TLabel
  1336.       Left = 376
  1337.       Top = 24
  1338.       Width = 69
  1339.       Height = 13
  1340.       Caption = 'wersja 1.1pl'
  1341.       Font.Color = clNavy
  1342.       Font.Height = -11
  1343.       Font.Name = 'MS Sans Serif'
  1344.       Font.Style = [fsBold]
  1345.       ParentFont = False
  1346.     end
  1347.     object Label50: TLabel
  1348.       Left = 404
  1349.       Top = 220
  1350.       Width = 206
  1351.       Height = 20
  1352.       Caption = 'Kod pocztowy .................'
  1353.       Font.Color = clNavy
  1354.       Font.Height = -16
  1355.       Font.Name = 'MS Sans Serif'
  1356.       Font.Style = [fsBold]
  1357.       ParentFont = False
  1358.       Transparent = True
  1359.     end
  1360.     object Label51: TLabel
  1361.       Left = 20
  1362.       Top = 44
  1363.       Width = 205
  1364.       Height = 13
  1365.       Caption = 'Lista miejscowo∩┐╜ci z jednolitym PNA'
  1366.       Font.Color = clNavy
  1367.       Font.Height = -11
  1368.       Font.Name = 'MS Sans Serif'
  1369.       Font.Style = [fsBold]
  1370.       ParentFont = False
  1371.     end
  1372.     object Label52: TLabel
  1373.       Left = 20
  1374.       Top = 168
  1375.       Width = 52
  1376.       Height = 13
  1377.       Caption = 'Lista ulic'
  1378.       Font.Color = clNavy
  1379.       Font.Height = -11
  1380.       Font.Name = 'MS Sans Serif'
  1381.       Font.Style = [fsBold]
  1382.       ParentFont = False
  1383.     end
  1384.     object Label53: TLabel
  1385.       Left = 20
  1386.       Top = 116
  1387.       Width = 61
  1388.       Height = 13
  1389.       Caption = 'Lista miast'
  1390.       Font.Color = clNavy
  1391.       Font.Height = -11
  1392.       Font.Name = 'MS Sans Serif'
  1393.       Font.Style = [fsBold]
  1394.       ParentFont = False
  1395.     end
  1396.     object Label54: TLabel
  1397.       Left = 412
  1398.       Top = 64
  1399.       Width = 171
  1400.       Height = 13
  1401.       Caption = 'Podaj nazw∩┐╜ szukanej miejscowo∩┐╜ci'
  1402.       Font.Color = clNavy
  1403.       Font.Height = -11
  1404.       Font.Name = 'MS Sans Serif'
  1405.       Font.Style = []
  1406.       ParentFont = False
  1407.     end
  1408.     object Label55: TLabel
  1409.       Left = 412
  1410.       Top = 88
  1411.       Width = 130
  1412.       Height = 13
  1413.       Caption = 'Podaj nazw∩┐╜ szukanej ulicy'
  1414.       Font.Color = clNavy
  1415.       Font.Height = -11
  1416.       Font.Name = 'MS Sans Serif'
  1417.       Font.Style = []
  1418.       ParentFont = False
  1419.     end
  1420.     object Label56: TLabel
  1421.       Left = 412
  1422.       Top = 128
  1423.       Width = 146
  1424.       Height = 13
  1425.       Caption = 'Po wype∩┐╜nieniu naci∩┐╜nij Szukaj'
  1426.       Font.Color = clNavy
  1427.       Font.Height = -11
  1428.       Font.Name = 'MS Sans Serif'
  1429.       Font.Style = []
  1430.       ParentFont = False
  1431.     end
  1432.     object Label68: TLabel
  1433.       Left = 452
  1434.       Top = 156
  1435.       Width = 284
  1436.       Height = 13
  1437.       Caption = 'Aby obejrze∩┐╜ wynik szukania rozwi∩┐╜ poni∩┐╜sz∩┐╜ list∩┐╜'
  1438.       Font.Color = clNavy
  1439.       Font.Height = -11
  1440.       Font.Name = 'MS Sans Serif'
  1441.       Font.Style = [fsBold]
  1442.       ParentFont = False
  1443.     end
  1444.     object Label80: TLabel
  1445.       Left = 306
  1446.       Top = 168
  1447.       Width = 65
  1448.       Height = 13
  1449.       Alignment = taRightJustify
  1450.       Caption = 'Liczba ulic : 0'
  1451.       Font.Color = clPurple
  1452.       Font.Height = -11
  1453.       Font.Name = 'MS Sans Serif'
  1454.       Font.Style = []
  1455.       ParentFont = False
  1456.     end
  1457.     object Label81: TLabel
  1458.       Left = 292
  1459.       Top = 116
  1460.       Width = 79
  1461.       Height = 13
  1462.       Alignment = taRightJustify
  1463.       Caption = 'Liczba miast : 21'
  1464.       Font.Color = clPurple
  1465.       Font.Height = -11
  1466.       Font.Name = 'MS Sans Serif'
  1467.       Font.Style = []
  1468.       ParentFont = False
  1469.     end
  1470.     object Label82: TLabel
  1471.       Left = 368
  1472.       Top = 44
  1473.       Width = 3
  1474.       Height = 13
  1475.       Alignment = taRightJustify
  1476.       Font.Color = clPurple
  1477.       Font.Height = -11
  1478.       Font.Name = 'MS Sans Serif'
  1479.       Font.Style = []
  1480.       ParentFont = False
  1481.     end
  1482.     object Label83: TLabel
  1483.       Left = 12
  1484.       Top = 236
  1485.       Width = 100
  1486.       Height = 13
  1487.       Caption = 'p : = numery parzyste'
  1488.       Font.Color = clNavy
  1489.       Font.Height = -11
  1490.       Font.Name = 'MS Sans Serif'
  1491.       Font.Style = []
  1492.       ParentFont = False
  1493.     end
  1494.     object Label84: TLabel
  1495.       Left = 148
  1496.       Top = 236
  1497.       Width = 114
  1498.       Height = 13
  1499.       Caption = 'n : = numery nieparzyste'
  1500.       Font.Color = clNavy
  1501.       Font.Height = -11
  1502.       Font.Name = 'MS Sans Serif'
  1503.       Font.Style = []
  1504.       ParentFont = False
  1505.     end
  1506.     object ciag10: TLabel
  1507.       Left = 392
  1508.       Top = 44
  1509.       Width = 32
  1510.       Height = 11
  1511.       Caption = 'ciag10'
  1512.       Visible = False
  1513.     end
  1514.     object Button7: TButton
  1515.       Left = 8
  1516.       Top = 4
  1517.       Width = 269
  1518.       Height = 25
  1519.       Caption = 'Znajd∩┐╜/sprawd∩┐╜ numer kodu Nadawcy'
  1520.       Font.Color = clNavy
  1521.       Font.Height = -11
  1522.       Font.Name = 'MS Sans Serif'
  1523.       Font.Style = []
  1524.       ParentFont = False
  1525.       TabOrder = 0
  1526.       OnClick = Button7Click
  1527.     end
  1528.     object Button8: TButton
  1529.       Left = 552
  1530.       Top = 4
  1531.       Width = 233
  1532.       Height = 25
  1533.       Caption = 'Znajd∩┐╜/sprawd∩┐╜ numer kodu Adresata'
  1534.       Font.Color = clNavy
  1535.       Font.Height = -11
  1536.       Font.Name = 'MS Sans Serif'
  1537.       Font.Style = []
  1538.       ParentFont = False
  1539.       TabOrder = 1
  1540.       OnClick = Button8Click
  1541.     end
  1542.     object Lista_miejscowosci: TComboBox
  1543.       Left = 8
  1544.       Top = 88
  1545.       Width = 381
  1546.       Height = 24
  1547.       Style = csDropDownList
  1548.       Color = clNavy
  1549.       DropDownCount = 20
  1550.       Font.Color = clYellow
  1551.       Font.Height = -13
  1552.       Font.Name = 'MS Sans Serif'
  1553.       Font.Style = [fsBold]
  1554.       ItemHeight = 16
  1555.       MaxLength = 80
  1556.       ParentFont = False
  1557.       Sorted = True
  1558.       TabOrder = 25
  1559.       OnClick = Lista_miejscowosciClick
  1560.     end
  1561.     object Lista_miast: TComboBox
  1562.       Left = 8
  1563.       Top = 136
  1564.       Width = 381
  1565.       Height = 24
  1566.       Style = csDropDownList
  1567.       Color = clNavy
  1568.       DropDownCount = 21
  1569.       Font.Color = clYellow
  1570.       Font.Height = -13
  1571.       Font.Name = 'MS Sans Serif'
  1572.       Font.Style = [fsBold]
  1573.       ItemHeight = 16
  1574.       Items.Strings = (
  1575.         'Bia∩┐╜ystok'
  1576.         'Bielsko Bia∩┐╜a'
  1577.         'Bydgoszcz'
  1578.         'Gda∩┐╜sk'
  1579.         'Gdynia'
  1580.         'Katowice'
  1581.         'Kielce'
  1582.         'Koszalin'
  1583.         'Krak∩┐╜w'
  1584.         'Lublin'
  1585.         '∩┐╜∩┐╜d∩┐╜'
  1586.         'Olsztyn'
  1587.         'Opole'
  1588.         'Pozna∩┐╜'
  1589.         'Radom'
  1590.         'Rzesz∩┐╜w'
  1591.         'Sopot'
  1592.         'Szczecin'
  1593.         'Warszawa'
  1594.         'Wroc∩┐╜aw'
  1595.         'Zielona G∩┐╜ra')
  1596.       MaxLength = 80
  1597.       ParentFont = False
  1598.       Sorted = True
  1599.       TabOrder = 26
  1600.       OnClick = Lista_miastClick
  1601.     end
  1602.     object Lista_ulic: TComboBox
  1603.       Left = 8
  1604.       Top = 212
  1605.       Width = 381
  1606.       Height = 24
  1607.       Style = csDropDownList
  1608.       Color = clNavy
  1609.       DropDownCount = 29
  1610.       Font.Color = clYellow
  1611.       Font.Height = -13
  1612.       Font.Name = 'MS Sans Serif'
  1613.       Font.Style = [fsBold]
  1614.       ItemHeight = 16
  1615.       MaxLength = 80
  1616.       ParentFont = False
  1617.       Sorted = True
  1618.       TabOrder = 51
  1619.     end
  1620.     object e_miasto: TEdit
  1621.       Left = 620
  1622.       Top = 60
  1623.       Width = 165
  1624.       Height = 21
  1625.       Font.Color = clNavy
  1626.       Font.Height = -11
  1627.       Font.Name = 'MS Sans Serif'
  1628.       Font.Style = [fsBold]
  1629.       ParentFont = False
  1630.       TabOrder = 54
  1631.       Text = 'e_miasto'
  1632.     end
  1633.     object e_ulica: TEdit
  1634.       Left = 620
  1635.       Top = 84
  1636.       Width = 165
  1637.       Height = 21
  1638.       Font.Color = clNavy
  1639.       Font.Height = -11
  1640.       Font.Name = 'MS Sans Serif'
  1641.       Font.Style = [fsBold]
  1642.       ParentFont = False
  1643.       TabOrder = 55
  1644.       Text = 'e_ulica'
  1645.     end
  1646.     object Button9: TButton
  1647.       Left = 620
  1648.       Top = 124
  1649.       Width = 165
  1650.       Height = 25
  1651.       Caption = 'Szukaj'
  1652.       Font.Color = clNavy
  1653.       Font.Height = -11
  1654.       Font.Name = 'MS Sans Serif'
  1655.       Font.Style = [fsBold]
  1656.       ParentFont = False
  1657.       TabOrder = 56
  1658.       OnClick = Button9Click
  1659.     end
  1660.     object ComboBox4: TComboBox
  1661.       Left = 404
  1662.       Top = 176
  1663.       Width = 381
  1664.       Height = 24
  1665.       Style = csDropDownList
  1666.       Color = clNavy
  1667.       DropDownCount = 27
  1668.       Font.Color = clWhite
  1669.       Font.Height = -13
  1670.       Font.Name = 'MS Sans Serif'
  1671.       Font.Style = [fsBold]
  1672.       ItemHeight = 16
  1673.       MaxLength = 80
  1674.       ParentFont = False
  1675.       TabOrder = 57
  1676.       OnClick = ComboBox4Click
  1677.     end
  1678.     object Button14: TButton
  1679.       Left = 8
  1680.       Top = 258
  1681.       Width = 189
  1682.       Height = 25
  1683.       Caption = 'Dodaj kod do adresu nadawcy'
  1684.       Font.Color = clNavy
  1685.       Font.Height = -11
  1686.       Font.Name = 'MS Sans Serif'
  1687.       Font.Style = []
  1688.       ParentFont = False
  1689.       TabOrder = 52
  1690.       OnClick = Button14Click
  1691.     end
  1692.     object Button15: TButton
  1693.       Left = 196
  1694.       Top = 258
  1695.       Width = 193
  1696.       Height = 25
  1697.       Caption = 'Dodaj kod do adresu adresata'
  1698.       Font.Color = clNavy
  1699.       Font.Height = -11
  1700.       Font.Name = 'MS Sans Serif'
  1701.       Font.Style = []
  1702.       ParentFont = False
  1703.       TabOrder = 53
  1704.       OnClick = Button15Click
  1705.     end
  1706.     object Button16: TButton
  1707.       Left = 8
  1708.       Top = 64
  1709.       Width = 17
  1710.       Height = 17
  1711.       Caption = 'A'
  1712.       Font.Color = clNavy
  1713.       Font.Height = -9
  1714.       Font.Name = 'Small Fonts'
  1715.       Font.Style = [fsBold]
  1716.       ParentFont = False
  1717.       TabOrder = 2
  1718.       OnClick = Button16Click
  1719.     end
  1720.     object Button17: TButton
  1721.       Left = 24
  1722.       Top = 64
  1723.       Width = 17
  1724.       Height = 17
  1725.       Caption = 'B'
  1726.       Font.Color = clNavy
  1727.       Font.Height = -9
  1728.       Font.Name = 'Small Fonts'
  1729.       Font.Style = [fsBold]
  1730.       ParentFont = False
  1731.       TabOrder = 3
  1732.       OnClick = Button17Click
  1733.     end
  1734.     object Button18: TButton
  1735.       Left = 40
  1736.       Top = 64
  1737.       Width = 17
  1738.       Height = 17
  1739.       Caption = 'C'
  1740.       Font.Color = clNavy
  1741.       Font.Height = -9
  1742.       Font.Name = 'Small Fonts'
  1743.       Font.Style = [fsBold]
  1744.       ParentFont = False
  1745.       TabOrder = 4
  1746.       OnClick = Button18Click
  1747.     end
  1748.     object Button19: TButton
  1749.       Left = 56
  1750.       Top = 64
  1751.       Width = 17
  1752.       Height = 17
  1753.       Caption = 'D'
  1754.       Font.Color = clNavy
  1755.       Font.Height = -9
  1756.       Font.Name = 'Small Fonts'
  1757.       Font.Style = [fsBold]
  1758.       ParentFont = False
  1759.       TabOrder = 5
  1760.       OnClick = Button19Click
  1761.     end
  1762.     object Button20: TButton
  1763.       Left = 72
  1764.       Top = 64
  1765.       Width = 17
  1766.       Height = 17
  1767.       Caption = 'E'
  1768.       Font.Color = clNavy
  1769.       Font.Height = -9
  1770.       Font.Name = 'Small Fonts'
  1771.       Font.Style = [fsBold]
  1772.       ParentFont = False
  1773.       TabOrder = 6
  1774.       OnClick = Button20Click
  1775.     end
  1776.     object Button21: TButton
  1777.       Left = 88
  1778.       Top = 64
  1779.       Width = 17
  1780.       Height = 17
  1781.       Caption = 'F'
  1782.       Font.Color = clNavy
  1783.       Font.Height = -9
  1784.       Font.Name = 'Small Fonts'
  1785.       Font.Style = [fsBold]
  1786.       ParentFont = False
  1787.       TabOrder = 7
  1788.       OnClick = Button21Click
  1789.     end
  1790.     object Button22: TButton
  1791.       Left = 104
  1792.       Top = 64
  1793.       Width = 17
  1794.       Height = 17
  1795.       Caption = 'G'
  1796.       Font.Color = clNavy
  1797.       Font.Height = -9
  1798.       Font.Name = 'Small Fonts'
  1799.       Font.Style = [fsBold]
  1800.       ParentFont = False
  1801.       TabOrder = 8
  1802.       OnClick = Button22Click
  1803.     end
  1804.     object Button23: TButton
  1805.       Left = 120
  1806.       Top = 64
  1807.       Width = 17
  1808.       Height = 17
  1809.       Caption = 'H'
  1810.       Font.Color = clNavy
  1811.       Font.Height = -9
  1812.       Font.Name = 'Small Fonts'
  1813.       Font.Style = [fsBold]
  1814.       ParentFont = False
  1815.       TabOrder = 9
  1816.       OnClick = Button23Click
  1817.     end
  1818.     object Button24: TButton
  1819.       Left = 136
  1820.       Top = 64
  1821.       Width = 17
  1822.       Height = 17
  1823.       Caption = 'I'
  1824.       Font.Color = clNavy
  1825.       Font.Height = -9
  1826.       Font.Name = 'Small Fonts'
  1827.       Font.Style = [fsBold]
  1828.       ParentFont = False
  1829.       TabOrder = 10
  1830.       OnClick = Button24Click
  1831.     end
  1832.     object Button25: TButton
  1833.       Left = 152
  1834.       Top = 64
  1835.       Width = 17
  1836.       Height = 17
  1837.       Caption = 'J'
  1838.       Font.Color = clNavy
  1839.       Font.Height = -9
  1840.       Font.Name = 'Small Fonts'
  1841.       Font.Style = [fsBold]
  1842.       ParentFont = False
  1843.       TabOrder = 11
  1844.       OnClick = Button25Click
  1845.     end
  1846.     object Button26: TButton
  1847.       Left = 168
  1848.       Top = 64
  1849.       Width = 17
  1850.       Height = 17
  1851.       Caption = 'K'
  1852.       Font.Color = clNavy
  1853.       Font.Height = -9
  1854.       Font.Name = 'Small Fonts'
  1855.       Font.Style = [fsBold]
  1856.       ParentFont = False
  1857.       TabOrder = 12
  1858.       OnClick = Button26Click
  1859.     end
  1860.     object Button27: TButton
  1861.       Left = 184
  1862.       Top = 64
  1863.       Width = 17
  1864.       Height = 17
  1865.       Caption = 'L'
  1866.       Font.Color = clNavy
  1867.       Font.Height = -9
  1868.       Font.Name = 'Small Fonts'
  1869.       Font.Style = [fsBold]
  1870.       ParentFont = False
  1871.       TabOrder = 13
  1872.       OnClick = Button27Click
  1873.     end
  1874.     object Button28: TButton
  1875.       Left = 200
  1876.       Top = 64
  1877.       Width = 17
  1878.       Height = 17
  1879.       Caption = '∩┐╜'
  1880.       Font.Color = clNavy
  1881.       Font.Height = -9
  1882.       Font.Name = 'Small Fonts'
  1883.       Font.Style = [fsBold]
  1884.       ParentFont = False
  1885.       TabOrder = 14
  1886.       OnClick = Button28Click
  1887.     end
  1888.     object Button29: TButton
  1889.       Left = 216
  1890.       Top = 64
  1891.       Width = 17
  1892.       Height = 17
  1893.       Caption = 'M'
  1894.       Font.Color = clNavy
  1895.       Font.Height = -9
  1896.       Font.Name = 'Small Fonts'
  1897.       Font.Style = [fsBold]
  1898.       ParentFont = False
  1899.       TabOrder = 15
  1900.       OnClick = Button29Click
  1901.     end
  1902.     object Button30: TButton
  1903.       Left = 232
  1904.       Top = 64
  1905.       Width = 17
  1906.       Height = 17
  1907.       Caption = 'N'
  1908.       Font.Color = clNavy
  1909.       Font.Height = -9
  1910.       Font.Name = 'Small Fonts'
  1911.       Font.Style = [fsBold]
  1912.       ParentFont = False
  1913.       TabOrder = 16
  1914.       OnClick = Button30Click
  1915.     end
  1916.     object Button31: TButton
  1917.       Left = 248
  1918.       Top = 64
  1919.       Width = 17
  1920.       Height = 17
  1921.       Caption = 'O'
  1922.       Font.Color = clNavy
  1923.       Font.Height = -9
  1924.       Font.Name = 'Small Fonts'
  1925.       Font.Style = [fsBold]
  1926.       ParentFont = False
  1927.       TabOrder = 17
  1928.       OnClick = Button31Click
  1929.     end
  1930.     object Button32: TButton
  1931.       Left = 264
  1932.       Top = 64
  1933.       Width = 17
  1934.       Height = 17
  1935.       Caption = 'P'
  1936.       Font.Color = clNavy
  1937.       Font.Height = -9
  1938.       Font.Name = 'Small Fonts'
  1939.       Font.Style = [fsBold]
  1940.       ParentFont = False
  1941.       TabOrder = 18
  1942.       OnClick = Button32Click
  1943.     end
  1944.     object Button33: TButton
  1945.       Left = 280
  1946.       Top = 64
  1947.       Width = 17
  1948.       Height = 17
  1949.       Caption = 'R'
  1950.       Font.Color = clNavy
  1951.       Font.Height = -9
  1952.       Font.Name = 'Small Fonts'
  1953.       Font.Style = [fsBold]
  1954.       ParentFont = False
  1955.       TabOrder = 19
  1956.       OnClick = Button33Click
  1957.     end
  1958.     object Button34: TButton
  1959.       Left = 296
  1960.       Top = 64
  1961.       Width = 17
  1962.       Height = 17
  1963.       Caption = 'S'
  1964.       Font.Color = clNavy
  1965.       Font.Height = -9
  1966.       Font.Name = 'Small Fonts'
  1967.       Font.Style = [fsBold]
  1968.       ParentFont = False
  1969.       TabOrder = 20
  1970.       OnClick = Button34Click
  1971.     end
  1972.     object Button35: TButton
  1973.       Left = 312
  1974.       Top = 64
  1975.       Width = 17
  1976.       Height = 17
  1977.       Caption = 'T'
  1978.       Font.Color = clNavy
  1979.       Font.Height = -9
  1980.       Font.Name = 'Small Fonts'
  1981.       Font.Style = [fsBold]
  1982.       ParentFont = False
  1983.       TabOrder = 21
  1984.       OnClick = Button35Click
  1985.     end
  1986.     object Button36: TButton
  1987.       Left = 328
  1988.       Top = 64
  1989.       Width = 17
  1990.       Height = 17
  1991.       Caption = 'U'
  1992.       Font.Color = clNavy
  1993.       Font.Height = -9
  1994.       Font.Name = 'Small Fonts'
  1995.       Font.Style = [fsBold]
  1996.       ParentFont = False
  1997.       TabOrder = 22
  1998.       OnClick = Button36Click
  1999.     end
  2000.     object Button38: TButton
  2001.       Left = 344
  2002.       Top = 64
  2003.       Width = 17
  2004.       Height = 17
  2005.       Caption = 'W'
  2006.       Font.Color = clNavy
  2007.       Font.Height = -9
  2008.       Font.Name = 'Small Fonts'
  2009.       Font.Style = [fsBold]
  2010.       ParentFont = False
  2011.       TabOrder = 23
  2012.       OnClick = Button38Click
  2013.     end
  2014.     object Button39: TButton
  2015.       Left = 360
  2016.       Top = 64
  2017.       Width = 17
  2018.       Height = 17
  2019.       Caption = 'Z'
  2020.       Font.Color = clNavy
  2021.       Font.Height = -9
  2022.       Font.Name = 'Small Fonts'
  2023.       Font.Style = [fsBold]
  2024.       ParentFont = False
  2025.       TabOrder = 24
  2026.       OnClick = Button39Click
  2027.     end
  2028.     object Button40: TButton
  2029.       Left = 8
  2030.       Top = 188
  2031.       Width = 17
  2032.       Height = 17
  2033.       Caption = 'A'
  2034.       Enabled = False
  2035.       Font.Color = clNavy
  2036.       Font.Height = -9
  2037.       Font.Name = 'Small Fonts'
  2038.       Font.Style = [fsBold]
  2039.       ParentFont = False
  2040.       TabOrder = 27
  2041.       OnClick = Button40Click
  2042.     end
  2043.     object Button41: TButton
  2044.       Left = 24
  2045.       Top = 188
  2046.       Width = 17
  2047.       Height = 17
  2048.       Caption = 'B'
  2049.       Enabled = False
  2050.       Font.Color = clNavy
  2051.       Font.Height = -9
  2052.       Font.Name = 'Small Fonts'
  2053.       Font.Style = [fsBold]
  2054.       ParentFont = False
  2055.       TabOrder = 28
  2056.       OnClick = Button41Click
  2057.     end
  2058.     object Button42: TButton
  2059.       Left = 40
  2060.       Top = 188
  2061.       Width = 17
  2062.       Height = 17
  2063.       Caption = 'C'
  2064.       Enabled = False
  2065.       Font.Color = clNavy
  2066.       Font.Height = -9
  2067.       Font.Name = 'Small Fonts'
  2068.       Font.Style = [fsBold]
  2069.       ParentFont = False
  2070.       TabOrder = 29
  2071.       OnClick = Button42Click
  2072.     end
  2073.     object Button43: TButton
  2074.       Left = 56
  2075.       Top = 188
  2076.       Width = 17
  2077.       Height = 17
  2078.       Caption = 'D'
  2079.       Enabled = False
  2080.       Font.Color = clNavy
  2081.       Font.Height = -9
  2082.       Font.Name = 'Small Fonts'
  2083.       Font.Style = [fsBold]
  2084.       ParentFont = False
  2085.       TabOrder = 30
  2086.       OnClick = Button43Click
  2087.     end
  2088.     object Button44: TButton
  2089.       Left = 72
  2090.       Top = 188
  2091.       Width = 17
  2092.       Height = 17
  2093.       Caption = 'E'
  2094.       Enabled = False
  2095.       Font.Color = clNavy
  2096.       Font.Height = -9
  2097.       Font.Name = 'Small Fonts'
  2098.       Font.Style = [fsBold]
  2099.       ParentFont = False
  2100.       TabOrder = 31
  2101.       OnClick = Button44Click
  2102.     end
  2103.     object Button45: TButton
  2104.       Left = 88
  2105.       Top = 188
  2106.       Width = 17
  2107.       Height = 17
  2108.       Caption = 'F'
  2109.       Enabled = False
  2110.       Font.Color = clNavy
  2111.       Font.Height = -9
  2112.       Font.Name = 'Small Fonts'
  2113.       Font.Style = [fsBold]
  2114.       ParentFont = False
  2115.       TabOrder = 32
  2116.       OnClick = Button45Click
  2117.     end
  2118.     object Button46: TButton
  2119.       Left = 104
  2120.       Top = 188
  2121.       Width = 17
  2122.       Height = 17
  2123.       Caption = 'G'
  2124.       Enabled = False
  2125.       Font.Color = clNavy
  2126.       Font.Height = -9
  2127.       Font.Name = 'Small Fonts'
  2128.       Font.Style = [fsBold]
  2129.       ParentFont = False
  2130.       TabOrder = 33
  2131.       OnClick = Button46Click
  2132.     end
  2133.     object Button47: TButton
  2134.       Left = 120
  2135.       Top = 188
  2136.       Width = 17
  2137.       Height = 17
  2138.       Caption = 'H'
  2139.       Enabled = False
  2140.       Font.Color = clNavy
  2141.       Font.Height = -9
  2142.       Font.Name = 'Small Fonts'
  2143.       Font.Style = [fsBold]
  2144.       ParentFont = False
  2145.       TabOrder = 34
  2146.       OnClick = Button47Click
  2147.     end
  2148.     object Button48: TButton
  2149.       Left = 136
  2150.       Top = 188
  2151.       Width = 17
  2152.       Height = 17
  2153.       Caption = 'I'
  2154.       Enabled = False
  2155.       Font.Color = clNavy
  2156.       Font.Height = -9
  2157.       Font.Name = 'Small Fonts'
  2158.       Font.Style = [fsBold]
  2159.       ParentFont = False
  2160.       TabOrder = 35
  2161.       OnClick = Button48Click
  2162.     end
  2163.     object Button49: TButton
  2164.       Left = 152
  2165.       Top = 188
  2166.       Width = 17
  2167.       Height = 17
  2168.       Caption = 'J'
  2169.       Enabled = False
  2170.       Font.Color = clNavy
  2171.       Font.Height = -9
  2172.       Font.Name = 'Small Fonts'
  2173.       Font.Style = [fsBold]
  2174.       ParentFont = False
  2175.       TabOrder = 36
  2176.       OnClick = Button49Click
  2177.     end
  2178.     object Button50: TButton
  2179.       Left = 168
  2180.       Top = 188
  2181.       Width = 17
  2182.       Height = 17
  2183.       Caption = 'K'
  2184.       Enabled = False
  2185.       Font.Color = clNavy
  2186.       Font.Height = -9
  2187.       Font.Name = 'Small Fonts'
  2188.       Font.Style = [fsBold]
  2189.       ParentFont = False
  2190.       TabOrder = 37
  2191.       OnClick = Button50Click
  2192.     end
  2193.     object Button51: TButton
  2194.       Left = 184
  2195.       Top = 188
  2196.       Width = 17
  2197.       Height = 17
  2198.       Caption = 'L'
  2199.       Enabled = False
  2200.       Font.Color = clNavy
  2201.       Font.Height = -9
  2202.       Font.Name = 'Small Fonts'
  2203.       Font.Style = [fsBold]
  2204.       ParentFont = False
  2205.       TabOrder = 38
  2206.       OnClick = Button51Click
  2207.     end
  2208.     object Button52: TButton
  2209.       Left = 200
  2210.       Top = 188
  2211.       Width = 17
  2212.       Height = 17
  2213.       Caption = '∩┐╜'
  2214.       Enabled = False
  2215.       Font.Color = clNavy
  2216.       Font.Height = -9
  2217.       Font.Name = 'Small Fonts'
  2218.       Font.Style = [fsBold]
  2219.       ParentFont = False
  2220.       TabOrder = 39
  2221.       OnClick = Button52Click
  2222.     end
  2223.     object Button53: TButton
  2224.       Left = 216
  2225.       Top = 188
  2226.       Width = 17
  2227.       Height = 17
  2228.       Caption = 'M'
  2229.       Enabled = False
  2230.       Font.Color = clNavy
  2231.       Font.Height = -9
  2232.       Font.Name = 'Small Fonts'
  2233.       Font.Style = [fsBold]
  2234.       ParentFont = False
  2235.       TabOrder = 40
  2236.       OnClick = Button53Click
  2237.     end
  2238.     object Button54: TButton
  2239.       Left = 232
  2240.       Top = 188
  2241.       Width = 17
  2242.       Height = 17
  2243.       Caption = 'N'
  2244.       Enabled = False
  2245.       Font.Color = clNavy
  2246.       Font.Height = -9
  2247.       Font.Name = 'Small Fonts'
  2248.       Font.Style = [fsBold]
  2249.       ParentFont = False
  2250.       TabOrder = 41
  2251.       OnClick = Button54Click
  2252.     end
  2253.     object Button55: TButton
  2254.       Left = 248
  2255.       Top = 188
  2256.       Width = 17
  2257.       Height = 17
  2258.       Caption = 'O'
  2259.       Enabled = False
  2260.       Font.Color = clNavy
  2261.       Font.Height = -9
  2262.       Font.Name = 'Small Fonts'
  2263.       Font.Style = [fsBold]
  2264.       ParentFont = False
  2265.       TabOrder = 42
  2266.       OnClick = Button55Click
  2267.     end
  2268.     object Button56: TButton
  2269.       Left = 264
  2270.       Top = 188
  2271.       Width = 17
  2272.       Height = 17
  2273.       Caption = 'P'
  2274.       Enabled = False
  2275.       Font.Color = clNavy
  2276.       Font.Height = -9
  2277.       Font.Name = 'Small Fonts'
  2278.       Font.Style = [fsBold]
  2279.       ParentFont = False
  2280.       TabOrder = 43
  2281.       OnClick = Button56Click
  2282.     end
  2283.     object Button57: TButton
  2284.       Left = 280
  2285.       Top = 188
  2286.       Width = 17
  2287.       Height = 17
  2288.       Caption = 'R'
  2289.       Enabled = False
  2290.       Font.Color = clNavy
  2291.       Font.Height = -9
  2292.       Font.Name = 'Small Fonts'
  2293.       Font.Style = [fsBold]
  2294.       ParentFont = False
  2295.       TabOrder = 44
  2296.       OnClick = Button57Click
  2297.     end
  2298.     object Button58: TButton
  2299.       Left = 296
  2300.       Top = 188
  2301.       Width = 17
  2302.       Height = 17
  2303.       Caption = 'S'
  2304.       Enabled = False
  2305.       Font.Color = clNavy
  2306.       Font.Height = -9
  2307.       Font.Name = 'Small Fonts'
  2308.       Font.Style = [fsBold]
  2309.       ParentFont = False
  2310.       TabOrder = 45
  2311.       OnClick = Button58Click
  2312.     end
  2313.     object Button59: TButton
  2314.       Left = 312
  2315.       Top = 188
  2316.       Width = 17
  2317.       Height = 17
  2318.       Caption = 'T'
  2319.       Enabled = False
  2320.       Font.Color = clNavy
  2321.       Font.Height = -9
  2322.       Font.Name = 'Small Fonts'
  2323.       Font.Style = [fsBold]
  2324.       ParentFont = False
  2325.       TabOrder = 46
  2326.       OnClick = Button59Click
  2327.     end
  2328.     object Button60: TButton
  2329.       Left = 328
  2330.       Top = 188
  2331.       Width = 17
  2332.       Height = 17
  2333.       Caption = 'U'
  2334.       Enabled = False
  2335.       Font.Color = clNavy
  2336.       Font.Height = -9
  2337.       Font.Name = 'Small Fonts'
  2338.       Font.Style = [fsBold]
  2339.       ParentFont = False
  2340.       TabOrder = 47
  2341.       OnClick = Button60Click
  2342.     end
  2343.     object Button62: TButton
  2344.       Left = 344
  2345.       Top = 188
  2346.       Width = 17
  2347.       Height = 17
  2348.       Caption = 'W'
  2349.       Enabled = False
  2350.       Font.Color = clNavy
  2351.       Font.Height = -9
  2352.       Font.Name = 'Small Fonts'
  2353.       Font.Style = [fsBold]
  2354.       ParentFont = False
  2355.       TabOrder = 48
  2356.       OnClick = Button62Click
  2357.     end
  2358.     object Button63: TButton
  2359.       Left = 360
  2360.       Top = 188
  2361.       Width = 17
  2362.       Height = 17
  2363.       Caption = 'Z'
  2364.       Enabled = False
  2365.       Font.Color = clNavy
  2366.       Font.Height = -9
  2367.       Font.Name = 'Small Fonts'
  2368.       Font.Style = [fsBold]
  2369.       ParentFont = False
  2370.       TabOrder = 49
  2371.       OnClick = Button63Click
  2372.     end
  2373.     object Panel1: TPanel
  2374.       Left = 612
  2375.       Top = 210
  2376.       Width = 173
  2377.       Height = 37
  2378.       BevelInner = bvLowered
  2379.       BevelOuter = bvLowered
  2380.       Color = clYellow
  2381.       TabOrder = 58
  2382.     end
  2383.     object kod: TEdit
  2384.       Left = 656
  2385.       Top = 214
  2386.       Width = 97
  2387.       Height = 29
  2388.       BorderStyle = bsNone
  2389.       Color = clYellow
  2390.       Ctl3D = True
  2391.       Font.Color = clRed
  2392.       Font.Height = -23
  2393.       Font.Name = 'MS Sans Serif'
  2394.       Font.Style = [fsBold]
  2395.       MaxLength = 6
  2396.       ParentCtl3D = False
  2397.       ParentFont = False
  2398.       TabOrder = 59
  2399.       Text = '00-000'
  2400.     end
  2401.     object Button37: TButton
  2402.       Left = 376
  2403.       Top = 188
  2404.       Width = 13
  2405.       Height = 17
  2406.       Caption = '...'
  2407.       Enabled = False
  2408.       TabOrder = 50
  2409.       OnClick = Button37Click
  2410.     end
  2411.   end
  2412.   object b_kody: TButton
  2413.     Left = 404
  2414.     Top = 516
  2415.     Width = 381
  2416.     Height = 25
  2417.     Caption = 'Ksi∩┐╜∩┐╜ka kodowa'
  2418.     Font.Color = clBlack
  2419.     Font.Height = -11
  2420.     Font.Name = 'MS Sans Serif'
  2421.     Font.Style = [fsBold]
  2422.     ParentFont = False
  2423.     TabOrder = 16
  2424.     OnClick = b_kodyClick
  2425.   end
  2426.   object p_drukuj_seria: TPanel
  2427.     Left = 52
  2428.     Top = 300
  2429.     Width = 49
  2430.     Height = 121
  2431.     BevelOuter = bvNone
  2432.     TabOrder = 23
  2433.     Visible = False
  2434.     object Label25: TLabel
  2435.       Left = 8
  2436.       Top = 4
  2437.       Width = 373
  2438.       Height = 45
  2439.       Alignment = taCenter
  2440.       AutoSize = False
  2441.       Caption = 
  2442.         'Aby rozpocz∩┐╜∩┐╜ druk seryjny nale∩┐╜y zaznaczy∩┐╜ na li∩┐╜cie druk∩┐╜w ∩┐╜∩┐╜d' +
  2443.         'any typ druku i wybra∩┐╜ Nadawc∩┐╜. Nast∩┐╜pnie prosz∩┐╜ wybra∩┐╜ adresat∩┐╜' +
  2444.         'w na poni∩┐╜szej li∩┐╜cie (Ctrl+mysz lub Shift+mysz) i nacisn∩┐╜∩┐╜ Druk' +
  2445.         'owanie seryjne.'
  2446.     end
  2447.     object Label26: TLabel
  2448.       Left = 8
  2449.       Top = 496
  2450.       Width = 183
  2451.       Height = 13
  2452.       Caption = 'Liczba wybranych adresat∩┐╜w : 0'
  2453.       Font.Color = clBlack
  2454.       Font.Height = -11
  2455.       Font.Name = 'MS Sans Serif'
  2456.       Font.Style = [fsBold]
  2457.       ParentFont = False
  2458.       Transparent = True
  2459.     end
  2460.     object ListBox1: TListBox
  2461.       Left = 8
  2462.       Top = 48
  2463.       Width = 377
  2464.       Height = 441
  2465.       Color = clMaroon
  2466.       Font.Color = clWhite
  2467.       Font.Height = -13
  2468.       Font.Name = 'MS Sans Serif'
  2469.       Font.Style = []
  2470.       ItemHeight = 16
  2471.       Items.Strings = (
  2472.         '0000'
  2473.         '1010'
  2474.         '1111'
  2475.         '1111'
  2476.         '1212'
  2477.         '1313'
  2478.         '1414'
  2479.         '1515'
  2480.         '1616'
  2481.         '1717'
  2482.         '1818'
  2483.         '1919'
  2484.         '2020'
  2485.         '2121'
  2486.         '2222'
  2487.         '2222'
  2488.         '2323'
  2489.         '2424'
  2490.         '2525'
  2491.         '2626'
  2492.         '2727'
  2493.         '2828'
  2494.         '2929'
  2495.         '3030'
  2496.         '3333'
  2497.         '4444'
  2498.         '5555'
  2499.         '6666'
  2500.         '7777'
  2501.         '8888'
  2502.         '9999')
  2503.       MultiSelect = True
  2504.       ParentFont = False
  2505.       Style = lbOwnerDrawFixed
  2506.       TabOrder = 0
  2507.       OnClick = ListBox1Click
  2508.     end
  2509.     object Memo1: TMemo
  2510.       Left = 8
  2511.       Top = 348
  2512.       Width = 377
  2513.       Height = 141
  2514.       ScrollBars = ssVertical
  2515.       TabOrder = 4
  2516.       Visible = False
  2517.     end
  2518.     object b_druk_etykiet: TButton
  2519.       Left = 8
  2520.       Top = 516
  2521.       Width = 173
  2522.       Height = 25
  2523.       Caption = 'Druk na etykietach adresowych'
  2524.       TabOrder = 1
  2525.       OnClick = b_druk_etykietClick
  2526.     end
  2527.     object b_drukuj_panel: TButton
  2528.       Left = 180
  2529.       Top = 516
  2530.       Width = 137
  2531.       Height = 25
  2532.       Caption = 'Drukowanie seryjne'
  2533.       TabOrder = 2
  2534.       OnClick = b_drukuj_panelClick
  2535.     end
  2536.     object b_zamknij_panel: TButton
  2537.       Left = 316
  2538.       Top = 516
  2539.       Width = 69
  2540.       Height = 25
  2541.       Caption = 'Koniec'
  2542.       TabOrder = 3
  2543.       OnClick = b_zamknij_panelClick
  2544.     end
  2545.   end
  2546.   object p_adresat: TPanel
  2547.     Left = 216
  2548.     Top = 4
  2549.     Width = 69
  2550.     Height = 21
  2551.     TabOrder = 28
  2552.     Visible = False
  2553.     object GroupBox2: TGroupBox
  2554.       Left = 8
  2555.       Top = 4
  2556.       Width = 389
  2557.       Height = 257
  2558.       Caption = ' Adresat '
  2559.       TabOrder = 0
  2560.       object Label12: TLabel
  2561.         Left = 12
  2562.         Top = 20
  2563.         Width = 101
  2564.         Height = 13
  2565.         Caption = 'Imi∩┐╜ i nazwisko/Firma'
  2566.       end
  2567.       object Label13: TLabel
  2568.         Left = 12
  2569.         Top = 40
  2570.         Width = 114
  2571.         Height = 13
  2572.         Caption = 'Ulica, nr domu, nr lokalu'
  2573.       end
  2574.       object Label14: TLabel
  2575.         Left = 12
  2576.         Top = 60
  2577.         Width = 67
  2578.         Height = 13
  2579.         Caption = 'Kod pocztowy'
  2580.       end
  2581.       object Label15: TLabel
  2582.         Left = 12
  2583.         Top = 80
  2584.         Width = 61
  2585.         Height = 13
  2586.         Caption = 'Miejscowo∩┐╜∩┐╜'
  2587.       end
  2588.       object Label16: TLabel
  2589.         Left = 12
  2590.         Top = 100
  2591.         Width = 32
  2592.         Height = 13
  2593.         Caption = 'Powiat'
  2594.       end
  2595.       object Label17: TLabel
  2596.         Left = 12
  2597.         Top = 120
  2598.         Width = 67
  2599.         Height = 13
  2600.         Caption = 'Wojew∩┐╜dztwo'
  2601.       end
  2602.       object Label18: TLabel
  2603.         Left = 12
  2604.         Top = 140
  2605.         Width = 18
  2606.         Height = 13
  2607.         Caption = 'Kraj'
  2608.       end
  2609.       object Label19: TLabel
  2610.         Left = 12
  2611.         Top = 160
  2612.         Width = 25
  2613.         Height = 13
  2614.         Caption = 'Bank'
  2615.       end
  2616.       object Label20: TLabel
  2617.         Left = 12
  2618.         Top = 180
  2619.         Width = 79
  2620.         Height = 13
  2621.         Caption = 'Numer rachunku'
  2622.       end
  2623.       object Label74: TLabel
  2624.         Left = 12
  2625.         Top = 200
  2626.         Width = 36
  2627.         Height = 13
  2628.         Caption = 'Telefon'
  2629.       end
  2630.       object imie_i_nazwisko2: TEdit
  2631.         Left = 136
  2632.         Top = 16
  2633.         Width = 245
  2634.         Height = 21
  2635.         MaxLength = 80
  2636.         TabOrder = 0
  2637.         Text = 'imie_i_nazwisko2'
  2638.         OnEnter = imie_i_nazwisko2Enter
  2639.         OnExit = imie_i_nazwisko2Exit
  2640.       end
  2641.       object adres2: TEdit
  2642.         Left = 136
  2643.         Top = 36
  2644.         Width = 245
  2645.         Height = 21
  2646.         MaxLength = 80
  2647.         TabOrder = 1
  2648.         Text = 'adres2'
  2649.         OnEnter = adres2Enter
  2650.         OnExit = adres2Exit
  2651.       end
  2652.       object kod_pocztowy2: TEdit
  2653.         Left = 136
  2654.         Top = 56
  2655.         Width = 245
  2656.         Height = 21
  2657.         MaxLength = 10
  2658.         TabOrder = 2
  2659.         Text = 'kod_pocztowy2'
  2660.         OnEnter = kod_pocztowy2aEnter
  2661.         OnExit = kod_pocztowy2aExit
  2662.       end
  2663.       object miejscowosc2: TEdit
  2664.         Left = 136
  2665.         Top = 76
  2666.         Width = 245
  2667.         Height = 21
  2668.         MaxLength = 50
  2669.         TabOrder = 3
  2670.         Text = 'miejscowosc2'
  2671.         OnEnter = miejscowosc2Enter
  2672.         OnExit = miejscowosc2Exit
  2673.       end
  2674.       object powiat2: TEdit
  2675.         Left = 136
  2676.         Top = 96
  2677.         Width = 245
  2678.         Height = 21
  2679.         MaxLength = 25
  2680.         TabOrder = 4
  2681.         Text = 'powiat2'
  2682.         OnEnter = powiat2Enter
  2683.         OnExit = powiat2Exit
  2684.       end
  2685.       object wojewodztwo2: TEdit
  2686.         Left = 136
  2687.         Top = 116
  2688.         Width = 245
  2689.         Height = 21
  2690.         MaxLength = 25
  2691.         TabOrder = 5
  2692.         Text = 'wojewodztwo2'
  2693.         OnEnter = wojewodztwo2Enter
  2694.         OnExit = wojewodztwo2Exit
  2695.       end
  2696.       object kraj2: TEdit
  2697.         Left = 136
  2698.         Top = 136
  2699.         Width = 245
  2700.         Height = 21
  2701.         MaxLength = 25
  2702.         TabOrder = 6
  2703.         Text = 'kraj2'
  2704.         OnEnter = kraj2Enter
  2705.         OnExit = kraj2Exit
  2706.       end
  2707.       object bank2: TEdit
  2708.         Left = 136
  2709.         Top = 156
  2710.         Width = 245
  2711.         Height = 21
  2712.         MaxLength = 50
  2713.         TabOrder = 7
  2714.         Text = 'bank2'
  2715.         OnEnter = bank2Enter
  2716.         OnExit = bank2Exit
  2717.       end
  2718.       object numer_rachunku2: TEdit
  2719.         Left = 136
  2720.         Top = 176
  2721.         Width = 245
  2722.         Height = 21
  2723.         MaxLength = 30
  2724.         TabOrder = 8
  2725.         Text = 'numer_rachunku2'
  2726.         OnEnter = numer_rachunku2Enter
  2727.         OnExit = numer_rachunku2Exit
  2728.       end
  2729.       object b_nowy2: TButton
  2730.         Left = 8
  2731.         Top = 224
  2732.         Width = 69
  2733.         Height = 25
  2734.         Caption = 'Nowy'
  2735.         TabOrder = 10
  2736.         OnClick = b_nowy2Click
  2737.       end
  2738.       object b_usun2: TButton
  2739.         Left = 76
  2740.         Top = 224
  2741.         Width = 61
  2742.         Height = 25
  2743.         Caption = 'Usu∩┐╜'
  2744.         TabOrder = 11
  2745.         OnClick = b_usun2Click
  2746.       end
  2747.       object b_zapis2: TButton
  2748.         Left = 136
  2749.         Top = 224
  2750.         Width = 157
  2751.         Height = 25
  2752.         Caption = 'Dodaj do rejestru adresat∩┐╜w'
  2753.         TabOrder = 12
  2754.         OnClick = b_zapis2Click
  2755.       end
  2756.       object Button1: TButton
  2757.         Left = 72
  2758.         Top = 148
  2759.         Width = 63
  2760.         Height = 25
  2761.         Caption = 'Wczytaj'
  2762.         TabOrder = 14
  2763.         TabStop = False
  2764.         Visible = False
  2765.         OnClick = Button1Click
  2766.       end
  2767.       object b_korekta2: TButton
  2768.         Left = 292
  2769.         Top = 224
  2770.         Width = 89
  2771.         Height = 25
  2772.         Caption = 'Zapisz zmiany'
  2773.         TabOrder = 13
  2774.         OnClick = b_korekta2Click
  2775.       end
  2776.       object telefon2: TEdit
  2777.         Left = 136
  2778.         Top = 196
  2779.         Width = 245
  2780.         Height = 21
  2781.         MaxLength = 50
  2782.         TabOrder = 9
  2783.         Text = 'telefon2'
  2784.         OnEnter = telefon2Enter
  2785.         OnExit = telefon2Exit
  2786.       end
  2787.       object Panel4: TPanel
  2788.         Left = 288
  2789.         Top = 12
  2790.         Width = 93
  2791.         Height = 209
  2792.         Caption = 'Panel4'
  2793.         TabOrder = 15
  2794.         Visible = False
  2795.         object Label40: TLabel
  2796.           Left = 8
  2797.           Top = 8
  2798.           Width = 33
  2799.           Height = 13
  2800.         end
  2801.         object Label41: TLabel
  2802.           Left = 8
  2803.           Top = 28
  2804.           Width = 3
  2805.           Height = 13
  2806.         end
  2807.         object Label42: TLabel
  2808.           Left = 7
  2809.           Top = 48
  2810.           Width = 3
  2811.           Height = 13
  2812.         end
  2813.         object Label43: TLabel
  2814.           Left = 8
  2815.           Top = 68
  2816.           Width = 3
  2817.           Height = 13
  2818.         end
  2819.         object Label44: TLabel
  2820.           Left = 8
  2821.           Top = 88
  2822.           Width = 3
  2823.           Height = 13
  2824.         end
  2825.         object Label45: TLabel
  2826.           Left = 8
  2827.           Top = 108
  2828.           Width = 3
  2829.           Height = 13
  2830.         end
  2831.         object Label46: TLabel
  2832.           Left = 8
  2833.           Top = 128
  2834.           Width = 3
  2835.           Height = 13
  2836.         end
  2837.         object Label47: TLabel
  2838.           Left = 8
  2839.           Top = 148
  2840.           Width = 3
  2841.           Height = 13
  2842.         end
  2843.         object Label48: TLabel
  2844.           Left = 8
  2845.           Top = 168
  2846.           Width = 3
  2847.           Height = 13
  2848.         end
  2849.         object Label79: TLabel
  2850.           Left = 8
  2851.           Top = 188
  2852.           Width = 3
  2853.           Height = 13
  2854.         end
  2855.       end
  2856.     end
  2857.     object Button11: TButton
  2858.       Left = 16
  2859.       Top = 268
  2860.       Width = 373
  2861.       Height = 25
  2862.       Caption = 'Powr∩┐╜t'
  2863.       TabOrder = 1
  2864.       OnClick = Button11Click
  2865.     end
  2866.   end
  2867.   object p_nadawca: TPanel
  2868.     Left = 132
  2869.     Top = 4
  2870.     Width = 77
  2871.     Height = 21
  2872.     TabOrder = 27
  2873.     Visible = False
  2874.     object Button10: TButton
  2875.       Left = 16
  2876.       Top = 268
  2877.       Width = 373
  2878.       Height = 25
  2879.       Caption = 'Powr∩┐╜t'
  2880.       TabOrder = 1
  2881.       OnClick = Button10Click
  2882.     end
  2883.     object GroupBox1: TGroupBox
  2884.       Left = 8
  2885.       Top = 4
  2886.       Width = 389
  2887.       Height = 257
  2888.       Caption = ' Nadawca '
  2889.       Font.Color = clBlack
  2890.       Font.Height = -11
  2891.       Font.Name = 'MS Sans Serif'
  2892.       Font.Style = []
  2893.       ParentFont = False
  2894.       TabOrder = 0
  2895.       object Label1: TLabel
  2896.         Left = 12
  2897.         Top = 20
  2898.         Width = 101
  2899.         Height = 13
  2900.         Caption = 'Imi∩┐╜ i nazwisko/Firma'
  2901.       end
  2902.       object Label2: TLabel
  2903.         Left = 12
  2904.         Top = 40
  2905.         Width = 114
  2906.         Height = 13
  2907.         Caption = 'Ulica, nr domu, nr lokalu'
  2908.       end
  2909.       object Label3: TLabel
  2910.         Left = 12
  2911.         Top = 60
  2912.         Width = 67
  2913.         Height = 13
  2914.         Caption = 'Kod pocztowy'
  2915.       end
  2916.       object Label4: TLabel
  2917.         Left = 12
  2918.         Top = 80
  2919.         Width = 61
  2920.         Height = 13
  2921.         Caption = 'Miejscowo∩┐╜∩┐╜'
  2922.       end
  2923.       object Label5: TLabel
  2924.         Left = 12
  2925.         Top = 100
  2926.         Width = 32
  2927.         Height = 13
  2928.         Caption = 'Powiat'
  2929.       end
  2930.       object Label6: TLabel
  2931.         Left = 12
  2932.         Top = 120
  2933.         Width = 67
  2934.         Height = 13
  2935.         Caption = 'Wojew∩┐╜dztwo'
  2936.       end
  2937.       object Label7: TLabel
  2938.         Left = 12
  2939.         Top = 140
  2940.         Width = 24
  2941.         Height = 13
  2942.         Caption = 'Logo'
  2943.       end
  2944.       object Label8: TLabel
  2945.         Left = 12
  2946.         Top = 160
  2947.         Width = 25
  2948.         Height = 13
  2949.         Caption = 'Bank'
  2950.       end
  2951.       object Label9: TLabel
  2952.         Left = 12
  2953.         Top = 180
  2954.         Width = 79
  2955.         Height = 13
  2956.         Caption = 'Numer rachunku'
  2957.       end
  2958.       object Label70: TLabel
  2959.         Left = 12
  2960.         Top = 200
  2961.         Width = 36
  2962.         Height = 13
  2963.         Caption = 'Telefon'
  2964.       end
  2965.       object imie_i_nazwisko: TEdit
  2966.         Left = 136
  2967.         Top = 16
  2968.         Width = 245
  2969.         Height = 21
  2970.         MaxLength = 80
  2971.         TabOrder = 0
  2972.         Text = 'imie_i_nazwisko'
  2973.         OnEnter = imie_i_nazwiskoEnter
  2974.         OnExit = imie_i_nazwiskoExit
  2975.       end
  2976.       object adres: TEdit
  2977.         Left = 136
  2978.         Top = 36
  2979.         Width = 245
  2980.         Height = 21
  2981.         MaxLength = 80
  2982.         TabOrder = 1
  2983.         Text = 'adres'
  2984.         OnEnter = adresEnter
  2985.         OnExit = adresExit
  2986.       end
  2987.       object kod_pocztowy: TEdit
  2988.         Left = 136
  2989.         Top = 56
  2990.         Width = 245
  2991.         Height = 21
  2992.         MaxLength = 10
  2993.         TabOrder = 2
  2994.         Text = 'kod_pocztowy'
  2995.         OnEnter = kod_pocztowyEnter
  2996.         OnExit = kod_pocztowyExit
  2997.       end
  2998.       object miejscowosc: TEdit
  2999.         Left = 136
  3000.         Top = 76
  3001.         Width = 245
  3002.         Height = 21
  3003.         MaxLength = 50
  3004.         TabOrder = 3
  3005.         Text = 'miejscowosc'
  3006.         OnEnter = miejscowoscEnter
  3007.         OnExit = miejscowoscExit
  3008.       end
  3009.       object powiat: TEdit
  3010.         Left = 136
  3011.         Top = 96
  3012.         Width = 245
  3013.         Height = 21
  3014.         MaxLength = 25
  3015.         TabOrder = 4
  3016.         Text = 'powiat'
  3017.         OnEnter = powiatEnter
  3018.         OnExit = powiatExit
  3019.       end
  3020.       object wojewodztwo: TEdit
  3021.         Left = 136
  3022.         Top = 116
  3023.         Width = 245
  3024.         Height = 21
  3025.         MaxLength = 25
  3026.         TabOrder = 5
  3027.         Text = 'wojewodztwo'
  3028.         OnEnter = wojewodztwoEnter
  3029.         OnExit = wojewodztwoExit
  3030.       end
  3031.       object logo: TEdit
  3032.         Left = 136
  3033.         Top = 136
  3034.         Width = 245
  3035.         Height = 21
  3036.         MaxLength = 100
  3037.         TabOrder = 6
  3038.         Text = 'logo'
  3039.         OnEnter = logoEnter
  3040.         OnExit = logoExit
  3041.       end
  3042.       object bLogo: TButton
  3043.         Left = 358
  3044.         Top = 170
  3045.         Width = 21
  3046.         Height = 18
  3047.         Caption = '...'
  3048.         TabOrder = 7
  3049.         TabStop = False
  3050.         OnClick = bLogoClick
  3051.       end
  3052.       object bank: TEdit
  3053.         Left = 136
  3054.         Top = 156
  3055.         Width = 245
  3056.         Height = 21
  3057.         MaxLength = 50
  3058.         TabOrder = 8
  3059.         Text = 'bank'
  3060.         OnEnter = bankEnter
  3061.         OnExit = bankExit
  3062.       end
  3063.       object numer_rachunku: TEdit
  3064.         Left = 136
  3065.         Top = 176
  3066.         Width = 245
  3067.         Height = 21
  3068.         MaxLength = 30
  3069.         TabOrder = 9
  3070.         Text = 'numer_rachunku'
  3071.         OnEnter = numer_rachunkuEnter
  3072.         OnExit = numer_rachunkuExit
  3073.       end
  3074.       object b_nowy1: TButton
  3075.         Left = 8
  3076.         Top = 224
  3077.         Width = 69
  3078.         Height = 25
  3079.         Caption = 'Nowy'
  3080.         TabOrder = 11
  3081.         OnClick = b_nowy1Click
  3082.       end
  3083.       object b_usun1: TButton
  3084.         Left = 76
  3085.         Top = 224
  3086.         Width = 61
  3087.         Height = 25
  3088.         Caption = 'Usu∩┐╜'
  3089.         TabOrder = 12
  3090.         OnClick = b_usun1Click
  3091.       end
  3092.       object b_zapis1: TButton
  3093.         Left = 136
  3094.         Top = 224
  3095.         Width = 157
  3096.         Height = 25
  3097.         Caption = 'Dodaj do rejestru nadawc∩┐╜w'
  3098.         TabOrder = 13
  3099.         OnClick = b_zapis1Click
  3100.       end
  3101.       object b_korekta1: TButton
  3102.         Left = 292
  3103.         Top = 224
  3104.         Width = 89
  3105.         Height = 25
  3106.         Caption = 'Zapisz zmiany'
  3107.         TabOrder = 14
  3108.         OnClick = b_korekta1Click
  3109.       end
  3110.       object a1: TEdit
  3111.         Left = 96
  3112.         Top = 16
  3113.         Width = 21
  3114.         Height = 21
  3115.         TabOrder = 15
  3116.         Text = 'a1'
  3117.         Visible = False
  3118.       end
  3119.       object a2: TEdit
  3120.         Left = 96
  3121.         Top = 36
  3122.         Width = 21
  3123.         Height = 21
  3124.         TabOrder = 16
  3125.         Text = 'a2'
  3126.         Visible = False
  3127.       end
  3128.       object a3: TEdit
  3129.         Left = 96
  3130.         Top = 56
  3131.         Width = 21
  3132.         Height = 21
  3133.         TabOrder = 17
  3134.         Text = 'a3'
  3135.         Visible = False
  3136.       end
  3137.       object a4: TEdit
  3138.         Left = 96
  3139.         Top = 76
  3140.         Width = 21
  3141.         Height = 21
  3142.         TabOrder = 18
  3143.         Text = 'a4'
  3144.         Visible = False
  3145.       end
  3146.       object a5: TEdit
  3147.         Left = 96
  3148.         Top = 96
  3149.         Width = 21
  3150.         Height = 21
  3151.         TabOrder = 19
  3152.         Text = 'a5'
  3153.         Visible = False
  3154.       end
  3155.       object a6: TEdit
  3156.         Left = 96
  3157.         Top = 116
  3158.         Width = 21
  3159.         Height = 21
  3160.         TabOrder = 20
  3161.         Text = 'a6'
  3162.         Visible = False
  3163.       end
  3164.       object a7: TEdit
  3165.         Left = 96
  3166.         Top = 136
  3167.         Width = 21
  3168.         Height = 21
  3169.         TabOrder = 21
  3170.         Text = 'a7'
  3171.         Visible = False
  3172.       end
  3173.       object a8: TEdit
  3174.         Left = 96
  3175.         Top = 156
  3176.         Width = 21
  3177.         Height = 21
  3178.         TabOrder = 22
  3179.         Text = 'a8'
  3180.         Visible = False
  3181.       end
  3182.       object a9: TEdit
  3183.         Left = 96
  3184.         Top = 176
  3185.         Width = 21
  3186.         Height = 21
  3187.         TabOrder = 23
  3188.         Text = 'a9'
  3189.         Visible = False
  3190.       end
  3191.       object telefon: TEdit
  3192.         Left = 136
  3193.         Top = 196
  3194.         Width = 245
  3195.         Height = 21
  3196.         MaxLength = 50
  3197.         TabOrder = 10
  3198.         Text = 'telefon'
  3199.         OnEnter = telefonEnter
  3200.         OnExit = telefonExit
  3201.       end
  3202.       object Panel5: TPanel
  3203.         Left = 292
  3204.         Top = 12
  3205.         Width = 93
  3206.         Height = 209
  3207.         Caption = 'Panel5'
  3208.         TabOrder = 24
  3209.         Visible = False
  3210.         object Label30: TLabel
  3211.           Left = 12
  3212.           Top = 8
  3213.           Width = 3
  3214.           Height = 13
  3215.         end
  3216.         object Label31: TLabel
  3217.           Left = 12
  3218.           Top = 28
  3219.           Width = 3
  3220.           Height = 13
  3221.         end
  3222.         object Label32: TLabel
  3223.           Left = 12
  3224.           Top = 48
  3225.           Width = 3
  3226.           Height = 13
  3227.         end
  3228.         object Label33: TLabel
  3229.           Left = 12
  3230.           Top = 68
  3231.           Width = 3
  3232.           Height = 13
  3233.         end
  3234.         object Label34: TLabel
  3235.           Left = 12
  3236.           Top = 88
  3237.           Width = 3
  3238.           Height = 13
  3239.         end
  3240.         object Label35: TLabel
  3241.           Left = 12
  3242.           Top = 108
  3243.           Width = 3
  3244.           Height = 13
  3245.         end
  3246.         object Label36: TLabel
  3247.           Left = 12
  3248.           Top = 128
  3249.           Width = 3
  3250.           Height = 13
  3251.         end
  3252.         object Label37: TLabel
  3253.           Left = 12
  3254.           Top = 148
  3255.           Width = 3
  3256.           Height = 13
  3257.         end
  3258.         object Label38: TLabel
  3259.           Left = 12
  3260.           Top = 168
  3261.           Width = 3
  3262.           Height = 13
  3263.         end
  3264.         object Label69: TLabel
  3265.           Left = 8
  3266.           Top = 192
  3267.           Width = 3
  3268.           Height = 13
  3269.         end
  3270.       end
  3271.       object a10: TEdit
  3272.         Left = 96
  3273.         Top = 196
  3274.         Width = 25
  3275.         Height = 21
  3276.         TabStop = False
  3277.         TabOrder = 25
  3278.         Text = 'a10'
  3279.         Visible = False
  3280.       end
  3281.     end
  3282.   end
  3283.   object OpenDialog1: TOpenDialog
  3284.     FileEditStyle = fsEdit
  3285.     Left = 16
  3286.   end
  3287.   object dsNadawca: TDataSource
  3288.     Left = 48
  3289.     Top = 32
  3290.   end
  3291.   object T_Adresat: TTable
  3292.     TableName = 'private.DB'
  3293.     Left = 412
  3294.     Top = 28
  3295.   end
  3296.   object dsAdresat: TDataSource
  3297.     DataSet = T_Adresat
  3298.     Left = 440
  3299.     Top = 28
  3300.   end
  3301.   object dsNadawca2: TDataSource
  3302.     Left = 56
  3303.     Top = 220
  3304.   end
  3305.   object Query1: TQuery
  3306.     DataSource = dsNadawca2
  3307.     Left = 28
  3308.     Top = 220
  3309.   end
  3310.   object Query2: TQuery
  3311.     DataSource = dsAdresat2
  3312.     Left = 420
  3313.     Top = 220
  3314.   end
  3315.   object dsAdresat2: TDataSource
  3316.     DataSet = T_Adresat
  3317.     Left = 448
  3318.     Top = 220
  3319.   end
  3320.   object PrintDialog1: TPrintDialog
  3321.     Left = 44
  3322.   end
  3323.   object FontDialog1: TFontDialog
  3324.     Font.Color = clWindowText
  3325.     Font.Height = -11
  3326.     Font.Name = 'MS Sans Serif'
  3327.     Font.Style = []
  3328.     MinFontSize = 0
  3329.     MaxFontSize = 0
  3330.     Left = 72
  3331.   end
  3332.   object Query3: TQuery
  3333.     Left = 532
  3334.     Top = 256
  3335.   end
  3336.   object dsQuery3: TDataSource
  3337.     DataSet = Query3
  3338.     Left = 560
  3339.     Top = 256
  3340.   end
  3341.   object MarsCaption1: TMarsCaption
  3342.     ActiveBeginColor = clBlack
  3343.     ActiveEndColor = clBlue
  3344.     ActiveFontColor = clYellow
  3345.     InactiveBeginColor = clGray
  3346.     InactiveEndColor = clSilver
  3347.     InactiveFontColor = clBlack
  3348.     ApplicationNameFont.Color = clWindowText
  3349.     ApplicationNameFont.Height = -11
  3350.     ApplicationNameFont.Name = 'MS Sans Serif'
  3351.     ApplicationNameFont.Style = [fsBold]
  3352.     CaptionFont.Color = clWindowText
  3353.     CaptionFont.Height = -11
  3354.     CaptionFont.Name = 'MS Sans Serif'
  3355.     CaptionFont.Style = []
  3356.     NumColors = 64
  3357.     AutoSize = False
  3358.     Left = 100
  3359.   end
  3360.   object T_Nadawca: TTable
  3361.     TableName = 'nadawca.DB'
  3362.     Left = 20
  3363.     Top = 32
  3364.   end
  3365.   object dsMiejscowosci: TDataSource
  3366.     DataSet = T_Miejscowosci
  3367.     Left = 116
  3368.     Top = 220
  3369.   end
  3370.   object T_Miejscowosci: TTable
  3371.     TableName = 'miejsc.DB'
  3372.     Left = 88
  3373.     Top = 220
  3374.   end
  3375.   object T_Miasta: TTable
  3376.     TableName = 'miasta.db'
  3377.     Left = 152
  3378.     Top = 220
  3379.   end
  3380.   object dsMiasta: TDataSource
  3381.     DataSet = T_Miasta
  3382.     Left = 180
  3383.     Top = 220
  3384.   end
  3385.   object Q_Miasta: TQuery
  3386.     Left = 228
  3387.     Top = 220
  3388.   end
  3389.   object dsQ_Miasta: TDataSource
  3390.     DataSet = Q_Miasta
  3391.     Left = 256
  3392.     Top = 220
  3393.   end
  3394. end
  3395.