object fMain: TfMain Left = 253 Top = 82 Width = 799 Height = 600 Caption = ' PostBank� JaPa Software ��d� tel. 042/ 650 58 59' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poDefault Scaled = False OnActivate = FormActivate OnClose = FormClose OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label73: TLabel Left = 500 Top = 144 Width = 278 Height = 29 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label72: TLabel Left = 500 Top = 108 Width = 278 Height = 29 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label71: TLabel Left = 500 Top = 88 Width = 278 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label75: TLabel Left = 108 Top = 176 Width = 278 Height = 13 Alignment = taRightJustify Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label63: TLabel Left = 108 Top = 144 Width = 278 Height = 29 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label62: TLabel Left = 108 Top = 108 Width = 278 Height = 29 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label61: TLabel Left = 108 Top = 88 Width = 278 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label64: TLabel Left = 416 Top = 88 Width = 44 Height = 13 Caption = 'Adresat' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label65: TLabel Left = 416 Top = 108 Width = 33 Height = 13 Caption = 'Adres' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label66: TLabel Left = 416 Top = 144 Width = 78 Height = 13 Caption = 'Bank i nr r-ku' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label67: TLabel Left = 20 Top = 144 Width = 78 Height = 13 Caption = 'Bank i nr r-ku' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label60: TLabel Left = 20 Top = 108 Width = 33 Height = 13 Caption = 'Adres' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label59: TLabel Left = 20 Top = 88 Width = 54 Height = 13 Caption = 'Nadawca' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label23: TLabel Left = 416 Top = 200 Width = 131 Height = 13 Caption = 'Poszukiwany ci�g znak�w :' end object Label24: TLabel Left = 20 Top = 200 Width = 131 Height = 13 Caption = 'Poszukiwany ci�g znak�w :' end object Label57: TLabel Left = 12 Top = 8 Width = 66 Height = 16 Caption = 'Nadawca' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label58: TLabel Left = 408 Top = 8 Width = 55 Height = 16 Caption = 'Adresat' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label76: TLabel Left = 20 Top = 176 Width = 44 Height = 13 Caption = 'Telefon' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label77: TLabel Left = 416 Top = 176 Width = 44 Height = 13 Caption = 'Telefon' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label78: TLabel Left = 500 Top = 176 Width = 278 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '-' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Klucz2: TLabel Left = 600 Top = 180 Width = 32 Height = 13 Caption = 'Klucz2' Visible = False end object Klucz1: TLabel Left = 204 Top = 180 Width = 32 Height = 13 Caption = 'Klucz1' Visible = False end object RadioGroup1: TRadioGroup Left = 8 Top = 256 Width = 381 Height = 285 Caption = ' Lista druk�w ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'przelew bankowy' 'wp�ata na konto/druk 3-cz.' 'wp�ata na konto/druk 4-cz.' 'potw. nadania listu poleconego' 'pobranie pocztowe - stare' 'pobranie pocztowe - nowe' 'koperta A4' 'koperta A5' 'koperta A6' 'koperta C6' 'paczka' 'przekaz telegraficzny' 'przekaz pocztowy' 'etykieta adresowa') ParentFont = False TabOrder = 13 OnClick = RadioGroup1Click end object Memo3: TMemo Left = 112 Top = 296 Width = 45 Height = 21 Lines.Strings = ( 'Memo3') TabOrder = 32 Visible = False end object GroupBox3: TGroupBox Left = 404 Top = 256 Width = 381 Height = 253 Caption = ' Dodatkowe dane ' TabOrder = 14 object Label10: TLabel Left = 12 Top = 20 Width = 164 Height = 13 Caption = 'Kwota przelewu/przekazu z�otych' end object Label11: TLabel Left = 12 Top = 40 Width = 107 Height = 13 Caption = 'Tytu� wp�aty/przelewu' end object Label21: TLabel Left = 12 Top = 60 Width = 84 Height = 13 Caption = 'Zawarto�� paczki' end object Label22: TLabel Left = 12 Top = 80 Width = 112 Height = 13 Caption = 'Warto�� paczki z�otych' end object Edit10: TEdit Left = 204 Top = 16 Width = 169 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 10 ParentFont = False TabOrder = 0 Text = '0,00' OnEnter = Edit10Enter OnExit = Edit10Exit end object Edit20: TComboBox Left = 204 Top = 36 Width = 169 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 MaxLength = 25 ParentFont = False TabOrder = 2 OnEnter = Edit20Enter OnExit = Edit20Exit end object Edit21: TComboBox Left = 204 Top = 56 Width = 169 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 MaxLength = 25 ParentFont = False TabOrder = 4 OnEnter = Edit21Enter OnExit = Edit21Exit end object Edit22: TEdit Left = 204 Top = 76 Width = 169 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 10 ParentFont = False TabOrder = 5 Text = '0,00' OnEnter = Edit22Enter OnExit = Edit22Exit end object b_plus1: TButton Left = 184 Top = 40 Width = 17 Height = 17 Caption = '...' TabOrder = 1 OnClick = b_plus1Click end object b_plus2: TButton Left = 184 Top = 60 Width = 17 Height = 17 Caption = '...' TabOrder = 3 OnClick = b_plus2Click end end object p_ksiazka_nadawcza: TPanel Left = 404 Top = 360 Width = 381 Height = 149 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 15 object Label85: TLabel Left = 20 Top = 5 Width = 353 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Pocztowa Ksi��ka Nadawcza' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label29: TLabel Left = 12 Top = 20 Width = 133 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Adresat' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label86: TLabel Left = 252 Top = 20 Width = 57 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Warto��' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label87: TLabel Left = 312 Top = 20 Width = 61 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Pobranie' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label88: TLabel Left = 152 Top = 20 Width = 93 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Miejscowo��' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ListPobranie: TListBox Left = 312 Top = 36 Width = 61 Height = 73 TabStop = False ItemHeight = 13 TabOrder = 3 end object ListWartosc: TListBox Left = 248 Top = 36 Width = 65 Height = 73 TabStop = False ItemHeight = 13 TabOrder = 2 end object ListAdres: TListBox Left = 148 Top = 36 Width = 101 Height = 73 TabStop = False ItemHeight = 13 TabOrder = 1 end object ListName: TListBox Left = 8 Top = 36 Width = 141 Height = 73 TabStop = False ItemHeight = 13 TabOrder = 0 end object b_ksiazka: TButton Left = 8 Top = 116 Width = 141 Height = 25 Caption = 'Dopisanie do Ksi��ki' TabOrder = 4 OnClick = b_ksiazkaClick end object b_pokaz: TButton Left = 148 Top = 116 Width = 101 Height = 25 Caption = 'Druk Ksi��ki' TabOrder = 5 OnClick = b_pokazClick end object b_clear: TButton Left = 248 Top = 116 Width = 125 Height = 25 Caption = 'Kasowanie zawarto�ci' TabOrder = 6 OnClick = b_clearClick end end object Panel2: TPanel Left = 200 Top = 264 Width = 185 Height = 273 BevelOuter = bvNone Color = clWhite TabOrder = 29 object Image1: TImage Left = 4 Top = 4 Width = 177 Height = 265 Center = True Picture.Data = {} end end object Button13: TButton Left = 404 Top = 56 Width = 381 Height = 25 Caption = 'Dodaj - usu� - zmie� wpis w Bazie adresat�w' TabOrder = 8 OnClick = Button13Click end object Lista_adresatow: TComboBox Left = 404 Top = 28 Width = 381 Height = 24 Style = csDropDownList Color = clMaroon DropDownCount = 30 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False TabOrder = 7 OnChange = Lista_adresatowChange OnClick = Lista_adresatowChange OnEnter = Lista_adresatowEnter end object Lista_nadawcow: TComboBox Left = 8 Top = 28 Width = 381 Height = 24 Style = csDropDownList Color = clTeal DropDownCount = 30 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False TabOrder = 0 OnClick = Lista_nadawcowChange OnEnter = Lista_nadawcowEnter end object Button12: TButton Left = 8 Top = 56 Width = 381 Height = 25 Caption = 'Dodaj - usu� - zmie� wpis w Bazie nadawc�w' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button12Click end object b_drukuj1: TButton Left = 8 Top = 548 Width = 126 Height = 25 Caption = 'Drukowanie bez druku' Enabled = False TabOrder = 17 OnClick = b_drukuj1Click end object b_drukuj2: TButton Left = 133 Top = 548 Width = 130 Height = 25 Caption = 'Drukowanie na druku' TabOrder = 18 OnClick = b_drukuj2Click end object ciag_2: TEdit Left = 556 Top = 196 Width = 133 Height = 21 TabStop = False MaxLength = 30 TabOrder = 9 OnEnter = ciag_2Enter OnExit = ciag_2Exit end object ciag_1: TEdit Left = 160 Top = 196 Width = 133 Height = 21 TabStop = False MaxLength = 30 TabOrder = 2 OnEnter = ciag_1Enter OnExit = ciag_1Exit end object b_szukaj1: TButton Left = 300 Top = 196 Width = 89 Height = 21 Caption = 'Szukaj' TabOrder = 3 TabStop = False OnClick = b_szukaj1Click end object b_szukaj2: TButton Left = 696 Top = 196 Width = 89 Height = 21 Caption = 'Szukaj' TabOrder = 10 TabStop = False OnClick = b_szukaj2Click end object find1: TComboBox Left = 8 Top = 224 Width = 381 Height = 24 TabStop = False Style = csDropDownList Color = clTeal DropDownCount = 13 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False Sorted = True TabOrder = 11 OnChange = find1Change end object find2: TComboBox Left = 404 Top = 224 Width = 381 Height = 24 TabStop = False Style = csDropDownList Color = clMaroon DropDownCount = 13 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False Sorted = True TabOrder = 12 OnChange = find2Change end object b_odwrotny: TButton Left = 262 Top = 548 Width = 99 Height = 25 Caption = 'Druk odwrotny' TabOrder = 19 OnClick = b_odwrotnyClick end object p_opcje: TPanel Left = 484 Top = 88 Width = 165 Height = 45 BevelOuter = bvNone TabOrder = 24 Visible = False object Label28: TLabel Left = 28 Top = 20 Width = 127 Height = 20 Caption = 'Panel ustawie�' Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Drukarka: TRadioGroup Left = 24 Top = 48 Width = 141 Height = 105 Caption = ' Wybierz rodzaj drukarki ' ItemIndex = 1 Items.Strings = ( 'ig�owa' 'atramentowa' 'laserowa') TabOrder = 0 end object MultiLineBtn1: TMultiLineBtn Left = 24 Top = 176 Width = 141 Height = 25 Caption = 'Ustawienia drukarki' TabOrder = 1 OnClick = MultiLineBtn1Click end object Button2: TButton Left = 24 Top = 220 Width = 141 Height = 25 Caption = 'Zamknij panel ustawie�' TabOrder = 2 OnClick = Button2Click end end object b_drukuj_seria: TButton Left = 360 Top = 548 Width = 181 Height = 25 Caption = 'Lista druku seryjnego' TabOrder = 20 OnClick = b_drukuj_seriaClick end object b_urzedy: TButton Left = 544 Top = 4 Width = 81 Height = 21 Caption = 'Urz�dy' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = b_urzedyClick end object b_opcje: TButton Left = 540 Top = 548 Width = 137 Height = 25 Caption = 'Drukarka' TabOrder = 21 TabStop = False OnClick = b_opcjeClick end object b_zamknij: TButton Left = 676 Top = 548 Width = 109 Height = 25 Caption = 'Zamknij' TabOrder = 22 OnClick = b_zamknijClick end object b_firmy: TButton Left = 624 Top = 4 Width = 81 Height = 21 Caption = 'Firmy' TabOrder = 5 OnClick = b_firmyClick end object b_prywatne: TButton Left = 704 Top = 4 Width = 81 Height = 21 Caption = 'Prywatne' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = b_prywatneClick end object Memo2: TMemo Left = 200 Top = 261 Width = 189 Height = 280 Alignment = taCenter Lines.Strings = ( 'PostBank�' 'JaPa Software ��d�' 'tel. 042/ 650 58 59' 'e-mail:japasoft@polbox.com' '===========================' 'PostBank� - to program do ' 'adresowania kopert, etykiet ' 'adresowych, wype�niania wszelkich ' 'druk�w pocztowych i bankowych ' 'oraz prowadzenia Bazy ' 'teleadresowej. Pozwala na ' 'uporz�dkowanie ca�ej ' 'korespondencji wychodz�cej z ' 'firmy, biura lub domu. Prostota ' 'obs�ugi - to co� co wyr�nia ten ' 'program. Kontrolowanie ' 'poprawno�ci pocztowych numer�w ' 'adresowych (kod�w), pozwoli na ' 'bezb��dne adresowanie przesy�ek - ' 'a co za tym idzie - na szybsze jej ' 'dostarczenie do adresata. Program ' 'obs�uguje drukowanie seryjne, np. ' 'etykiet adresowych, kopert i innych. ' 'Jest przeznaczony do pracy w ' 'rozdzielczo�ci min. 800x600. ' 'Wsp�pracuje z drukarkami ' 'atramentowymi i laserowymi. Jest ' 'przystosowany do nowego podzia�u ' 'terytorialnego kraju. ' '"Przygotowany" na rok 2000 - ' 'zapewnia bezb��dn� prac� po ' 'wkroczeniu w nowe tysi�clecie. ' 'Wsp�pracuje z naszymi ' 'programami ksi�gowymi. ' 'Cena pe�nej wersji programu to ' 'tylko' '49,00 z� z VAT.' 'Prezent !!! Do ka�dego programu ' 'jest dodawana nieodp�atnie ' 'Ksi��ka Kodowa: Polska.' 'Wystawiamy faktury VAT.' '===========================' 'Inne opcje programu (np. dla ' 'drukarek ig�owych, z inn� ksi��k� ' 'kodow� itd.) - po uzgodnieniu ' 'telefonicznym lub mail'#39'owym.' 'W ofercie posiadamy aktualnie ' 'Ksi��ki Kodowe : Czechy, ' 'Szwajcaria, Dania, Rumunia, ' 'Bu�garia, Holandia, Chorwacja, ' 'S�owenia, W�ochy, Australia (cena ' 'jednostkowa 19,00 z� z VAT). ' 'Uwaga! Oferta specjalna dla ' 'klient�w zamawiaj�cych wersj� ze ' 'wszystkimi ksi��kami kodowymi: ' '99,00 z� z VAT.' '' 'INSTRUKCJA OBS�UGI' '' '1. Dodawanie nadawcy :' '- nacisn�� "Dodaj - Usu� ..." po ' 'stronie: Nadawca;' '- w nowo otwartym okienku ' 'nacisn�� "Nowy";' '- wype�ni� kolejne rubryki;' '- nacisn�� "Dodaj do rejestru ' 'nadawc�w";' '- zamkn�� okienko naciskaj�c ' '"Powr�t".' '' '2. Dodawanie adresata :' '- nacisn�� "Dodaj - Usu� ..." po ' 'stronie: Adresat;' '- w nowo otwartym okienku ' 'nacisn�� "Nowy";' '- wype�ni� kolejne rubryki;' '- nacisn�� "Dodaj do rejestru ' 'adresat�w";' '- wybra� grup�, w kt�rej dokonany ' 'wpis b�dzie przechowywany ' '(mo�na doda� tego samego ' 'adresata do wszystkich grup ' 'naciskaj�c ponownie "Dodaj do ' 'rejestru ..." i wybieraj�c inn� grup�);' '- zamkn�� okienko naciskaj�c ' '"Powr�t".' '' '3. Aby wybra� ��danego Nadawc� ' 'nale�y wybra� go z listy : ' '"Nadawca". Po wybraniu ' 'odpowiednie rubryki (Nadawca, ' 'Adres ...) powinny zosta� ' 'wype�nione.' '' '4. Aby wybra� ��danego Adresata ' 'nale�y nacisn�� przycisk ' 'odpowiadaj�cy grupie, z kt�rej ' 'chcemy pobra� dane adresata, a ' 'nast�pnie wybra� go z listy : ' '"Adresat". Po wybraniu - ' 'odpowiednie rubryki (Nadawca, ' 'Adres ...) powinny zosta� ' 'wype�nione (program domy�lnie po ' 'uruchomieniu wczytuje grup�: ' '"Prywatne", co jest uwidocznione ' 'poprzez pogrubienie napisu na ' 'okre�lonym klawiszu).' '' '5. Zmiany w adresie nadawcy lub ' 'adresata.' 'Aby tego dokona� nale�y po ' 'wybraniu ��danego ' 'Nadawcy/Adresata nacisn�� ' '"Dodaj - Usu� ..." i po ' 'wprowadzeniu odpowiednich zmian ' 'nacisn�� "Zapisz zmiany".' '' '6. Wyszukiwanie ' 'nadawcy/adresata wg okre�lonego ' 'ci�gu znak�w.' 'Procedur� wyszukiwania nale�y ' 'zacz�� od wpisania w pole ' '"Poszukiwany ci�g znak�w": ' 'klucza, wg kt�rego program ma ' 'wyszuka� Nadawc�/Adresata ' '(Uwaga! Wa�na jest wielko�� ' 'wprowadzanych liter). Kluczem tym ' 'mo�e by� dowolny ci�g znak�w ' '(np. Wars). Po naci�ni�ciu "Szukaj" ' '- program odnajdzie ��dane adresy ' 'zawieraj�ce ci�g liter: Wars (np. ' 'adresy zawieraj�ce : miasto ' 'Warszawa, ulica Warszawska lub ' 'firm� o nazwie Wars). Nale�y przy ' 'tym pami�ta�, i� w przypadku ' 'adresat�w program dokonuje ' 'przeszukania tylko w aktywnej ' 'grupie (np. "Prywatne"). Znaleziona ' 'lista nadawc�w/adresat�w zostanie ' 'wczytana do listy poni�ej klawisza ' '"Szukaj". Wykaz znalezionych ' 'adresat�w zostaje r�wnie� ' 'automatycznie zapisany na li�cie ' '"Drukowania seryjnego".' '' '7. Adresowanie.' 'Po wybraniu (z listy) nadawcy ' 'przesy�ki, nale�y wybra� adresata ' 'oraz zaznaczy�, jakiego typu ' 'blankiet lub koperta b�dzie ' 'wype�niany. W tym okienku pojawi ' 'si� w�wczas schematyczny rysunek ' 'blankietu wraz z opisem sposobu ' 'podawania go do ' 'drukarki.Poniewa� na niekt�rych ' 'formularzach konieczne jest ' 'umieszczenie dodatkowych danych ' 'mo�na je okre�li� wykorzystuj�c ' 'przeznaczone do tego pola. Wpisa� ' 'tu mo�emy:' '-kwot� przelewu lub przekazu ' 'cyframi (w druku pojawi si� ona ' 'r�wnie� w postaci s�ownej),' '-tytu� wp�aty b�d� przelewu na ' 'konto (po klikni�ciu na odpowiedni ' 'kwadracik z wielokropkiem mo�emy ' 'uzupe�nia� wpisy dodatkowego ' 'okienka, aby p�niej korzysta� z ' 'niego rozwijaj�c utworzon� w ten ' 'spos�b list� tytu��w),' '-zawarto�� paczki tworz�c ' 'analogicznie jak poprzednio wykaz ' 'towar�w w postaci listy do ' 'rozwini�cia,' '-warto�� paczki cyframi ' '(wydrukowana ona zostanie ' 'rownie� s�ownie).' 'Po uzupe�nieniu powy�szych ' 'danych nale�y w�o�y� do drukarki ' 'odpowiedni typ druku lub koperty i ' 'nacisn�� "Drukowanie na druku". ' 'Je�eli nie posiadamy okre�lonego ' 'typu blankietu potrzebny formularz ' 'wype�niony okre�lonymi wcze�niej ' 'danymi otrzymamy po naci�ni�ciu ' '"Drukowanie bez druku" i podaniu ' 'do drukarki czystej kartki ' 'odpowiedniego formatu. Niniejszy ' 'program umo�liwia wydrukowanie ' 'wi�kszej ilo�ci kopert lub blankiet�w ' 'jednego typu (oczywi�cie z r�nymi ' 'adresatami przy zachowaniu ' 'niezmienno�ci pozosta�ych wpis�w) ' 'za pomoc� pojedynczej komendy. ' 'S�u�y do tego klawisz "Lista druku ' 'seryjnego". Po jego naci�ni�ciu ' 'otwiera si� okno, z kt�rego ' 'wybieramy zgodnie ze ' 'wskaz�wkami dowoln� ilo�� ' 'adresat�w (funkcjonuj�ce tu listy ' 'adresat�w "prywatnych", ' '"urz�dowych" i "firmowych" s� od ' 'siebie ca�kowicie niezale�ne). ' 'Klikni�cie na klawisz "Drukowanie ' 'seryjne" uruchamia proces ' 'drukowania zaordynowanej ilo�ci ' 'kopert lub blankiet�w. Dotyczy to ' 'r�wnie� druku seryjnego etykiet ' '(naklejek) adresowych. W ' 'przypadku drukowania ' 'pojedynczych etykiet korzystamy z ' 'dodatkowego okienka otwieranego ' 'przy wyborze rodzaju druku ' '("etykieta adresowa"). Ukazuje nam ' 'si� wtedy uk�ad etykiet na arkuszu, ' 'z kt�rego wybieramy jak�� pozycj�. ' 'Pozwala to wykorzysta� pozosta�e ' 'jeszcze naklejki na u�ywanych ' 'wcze�niej arkuszach. W pe�nej ' 'wersji program obs�uguje kilka ' 'r�nych format�w etykiet ' 'adresowych. Przydatna w wielu ' 'firmach oka�e si� zapewne funkcja ' '"drukowania odwrotnego". ' 'Oznacza ona zamian� adres�w ' 'nadawcy i adresata na wydrukach. ' 'Cz�sto w celu u�atwienia klientom ' 'dokonania czynno�ci wysy�kowych ' 'lub p�atniczych na nasz� rzecz ' 'do��czamy do przesy�ek koperty ' 'zwrotne, wype�nione blankiety itp. ' 'Mo�emy je z �atwo�ci� ' 'wydrukowa�, bez dokonywania ' 'ponownych wpis�w, klikaj�c na ' 'klawisz "Druk odwrotny".' '' '8. Ksi��ka Nadawcza.' 'W trakcie adresowania mo�na ' 'wybranego adresata b�d� ca�� ich ' 'list� (w przypadku druku seryjnego) ' 'doda� do Ksi��ki Nadawczej bez ' 'konieczno�ci jej posiadania. ' 'Program wydrukuje stron� Ksi��ki w ' 'jej oryginalnym kszta�cie wraz z ' 'wype�nionymi rubrykami. Nale�y ' 'pami�ta�, i� strona Ksi��ki ' 'Nadawczej musi by� wydrukowana ' 'w 2 egzemplarzach. W tym celu ' 'nale�y w�o�y� do drukarki arkusz ' 'papieru A4 i po wydrukowaniu ' 'jednej strony mo�na ten sam arkusz ' 'w�o�y� powt�rnie do drukarki ' '"okr�caj�c" go o 180 stopni. W ' 'efekcie tego - z�o�enie kartki na ' 'p� - spowoduje (po w�o�eniu kalki ' 'lub zastosowaniu papieru ' 'samokopiuj�cego) mo�liwo�� ' 'jednorazowego wype�nienia strony ' 'Ksi��ki przez pracownika Poczty. ' 'Poniewa� ka�da strona Ksi��ki ' 'Nadawczej zawiera tylko dziesi�� ' 'pozycji - nale�y pami�ta�, aby w ' 'drukarce umie�ci� odpowiedni� ' 'ilo�� arkuszy papieru wystarczaj�c� ' 'na wydrukowanie wszystkich ' 'adresat�w.' '' '9.Ksi��ka kodowa.' 'Umo�liwia ona znalezienie ' 'nieznanego wcze�niej numeru kodu ' 'lub sprawdzenie kodu ju� ' 'wpisanego zar�wno w adresie ' 'nadawcy jak i adresata. Po ' 'dokonaniu wyboru z listy nadawc�w ' 'albo adresat�w i wci�ni�ciu ' 'klawisza "Znajd�, sprawd�...", w ' 'dw�ch wolnych bia�ych polach ' 'pojawi si� nazwa miasta i nazwa ' 'ulicy wybranego nadawcy lub ' 'adresata. Po klikni�ciu w klawisz ' '"Szukaj" poni�ej zostanie ' 'utworzona lista adres�w ' 'odpowiadaj�cych podanym ' 'parametrom. Trzeba j� rozwin�� i ' 'odszuka� interesuj�cy nas ' 'dok�adny adres. Odpowiedni numer ' 'kodu pocztowego zostanie ' 'wczytany do pola "Kod pocztowy". ' 'Teraz mo�na b�dzie go doda� do ' 'konkretnego adresu wciskaj�c ' 'klawisz "Dodaj kod do...". Kod ' 'mo�emy znale�� r�wnie�:' '- wpisuj�c r�cznie nazw� miasta i ' 'ulicy w wolne bia�e pola okna ' 'post�puj�c nast�pnie tak jak ' 'opisano powy�ej' '- rozwijaj�c list� miejscowo�ci z ' 'jednym numerem kodowym i ' 'dokonuj�c w jej ramach wyboru' '- wybieraj�c z nast�pnej listy miasto ' 'i rozwijaj�c poni�sz� list� z nazwami ' 'ulic w ramach tego miasta.' 'Aby przyspieszy� wyszukiwanie ' 'kodu, przy listach umieszczone s� ' 'litery alfabetu. Wybranie jednej z ' 'nich (tej na kt�r� zaczyna si� ' 'nazwa miejscowo�ci lub ulicy) ' 'pozwoli na skr�cenie ca�ego ' 'procesu wyszukiwania numeru ' 'kodowego poprzez wczytanie do ' 'listy tylko nazw zaczynaj�cych si� ' 'na wskazan� liter�. Dwucz�onowe ' 'nazwy miast nie zawieraj� my�lnika ' '(np. Bielsko Bia�a). Nale�y pami�ta� ' 'o tym przy wpisywaniu nowych ' 'adresat�w i nadawc�w.') ScrollBars = ssVertical TabOrder = 30 end object Button61: TButton Left = 180 Top = 520 Width = 17 Height = 17 Caption = '?' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 31 OnClick = Button61Click end object p_et1: TPanel Left = 116 Top = 92 Width = 213 Height = 33 TabOrder = 25 Visible = False object Ety: TRadioGroup Left = 16 Top = 16 Width = 181 Height = 229 Caption = ' Zaznacz etykiet� do druku ' Columns = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Items.Strings = ( 'nr 01' 'nr 02' 'nr 03' 'nr 04' 'nr 05' 'nr 06' 'nr 07' 'nr 08' 'nr 09' 'nr 10' 'nr 11' 'nr 12' 'nr 13' 'nr 14' 'nr 15' 'nr 16') ParentFont = False TabOrder = 0 end object Button3: TButton Left = 16 Top = 256 Width = 181 Height = 25 Caption = 'Drukuj etykiet� adresow�' TabOrder = 1 OnClick = Button3Click end object Button5: TButton Left = 16 Top = 280 Width = 181 Height = 25 Caption = 'Drukuj rozkr�j' TabOrder = 2 OnClick = Button5Click end object Button6: TButton Left = 16 Top = 304 Width = 181 Height = 25 Caption = 'Czcionka do druku' TabOrder = 3 OnClick = Button6Click end object Button4: TButton Left = 16 Top = 328 Width = 181 Height = 25 Caption = 'Zamknij' TabOrder = 4 OnClick = Button4Click end end object p_kody: TPanel Left = 44 Top = 92 Width = 509 Height = 37 BevelOuter = bvNone Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 26 Visible = False object Label39: TLabel Left = 312 Top = 4 Width = 201 Height = 20 Caption = 'Ksi��ka kodowa: Polska' Font.Color = clNavy Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label49: TLabel Left = 376 Top = 24 Width = 69 Height = 13 Caption = 'wersja 1.1pl' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label50: TLabel Left = 404 Top = 220 Width = 206 Height = 20 Caption = 'Kod pocztowy .................' Font.Color = clNavy Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label51: TLabel Left = 20 Top = 44 Width = 205 Height = 13 Caption = 'Lista miejscowo�ci z jednolitym PNA' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label52: TLabel Left = 20 Top = 168 Width = 52 Height = 13 Caption = 'Lista ulic' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label53: TLabel Left = 20 Top = 116 Width = 61 Height = 13 Caption = 'Lista miast' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label54: TLabel Left = 412 Top = 64 Width = 171 Height = 13 Caption = 'Podaj nazw� szukanej miejscowo�ci' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label55: TLabel Left = 412 Top = 88 Width = 130 Height = 13 Caption = 'Podaj nazw� szukanej ulicy' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label56: TLabel Left = 412 Top = 128 Width = 146 Height = 13 Caption = 'Po wype�nieniu naci�nij Szukaj' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label68: TLabel Left = 452 Top = 156 Width = 284 Height = 13 Caption = 'Aby obejrze� wynik szukania rozwi� poni�sz� list�' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label80: TLabel Left = 306 Top = 168 Width = 65 Height = 13 Alignment = taRightJustify Caption = 'Liczba ulic : 0' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label81: TLabel Left = 292 Top = 116 Width = 79 Height = 13 Alignment = taRightJustify Caption = 'Liczba miast : 21' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label82: TLabel Left = 368 Top = 44 Width = 3 Height = 13 Alignment = taRightJustify Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label83: TLabel Left = 12 Top = 236 Width = 100 Height = 13 Caption = 'p : = numery parzyste' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label84: TLabel Left = 148 Top = 236 Width = 114 Height = 13 Caption = 'n : = numery nieparzyste' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ciag10: TLabel Left = 392 Top = 44 Width = 32 Height = 11 Caption = 'ciag10' Visible = False end object Button7: TButton Left = 8 Top = 4 Width = 269 Height = 25 Caption = 'Znajd�/sprawd� numer kodu Nadawcy' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = Button7Click end object Button8: TButton Left = 552 Top = 4 Width = 233 Height = 25 Caption = 'Znajd�/sprawd� numer kodu Adresata' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button8Click end object Lista_miejscowosci: TComboBox Left = 8 Top = 88 Width = 381 Height = 24 Style = csDropDownList Color = clNavy DropDownCount = 20 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False Sorted = True TabOrder = 25 OnClick = Lista_miejscowosciClick end object Lista_miast: TComboBox Left = 8 Top = 136 Width = 381 Height = 24 Style = csDropDownList Color = clNavy DropDownCount = 21 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 Items.Strings = ( 'Bia�ystok' 'Bielsko Bia�a' 'Bydgoszcz' 'Gda�sk' 'Gdynia' 'Katowice' 'Kielce' 'Koszalin' 'Krak�w' 'Lublin' '��d�' 'Olsztyn' 'Opole' 'Pozna�' 'Radom' 'Rzesz�w' 'Sopot' 'Szczecin' 'Warszawa' 'Wroc�aw' 'Zielona G�ra') MaxLength = 80 ParentFont = False Sorted = True TabOrder = 26 OnClick = Lista_miastClick end object Lista_ulic: TComboBox Left = 8 Top = 212 Width = 381 Height = 24 Style = csDropDownList Color = clNavy DropDownCount = 29 Font.Color = clYellow Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False Sorted = True TabOrder = 51 end object e_miasto: TEdit Left = 620 Top = 60 Width = 165 Height = 21 Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 54 Text = 'e_miasto' end object e_ulica: TEdit Left = 620 Top = 84 Width = 165 Height = 21 Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 55 Text = 'e_ulica' end object Button9: TButton Left = 620 Top = 124 Width = 165 Height = 25 Caption = 'Szukaj' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 56 OnClick = Button9Click end object ComboBox4: TComboBox Left = 404 Top = 176 Width = 381 Height = 24 Style = csDropDownList Color = clNavy DropDownCount = 27 Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 MaxLength = 80 ParentFont = False TabOrder = 57 OnClick = ComboBox4Click end object Button14: TButton Left = 8 Top = 258 Width = 189 Height = 25 Caption = 'Dodaj kod do adresu nadawcy' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 52 OnClick = Button14Click end object Button15: TButton Left = 196 Top = 258 Width = 193 Height = 25 Caption = 'Dodaj kod do adresu adresata' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 53 OnClick = Button15Click end object Button16: TButton Left = 8 Top = 64 Width = 17 Height = 17 Caption = 'A' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button16Click end object Button17: TButton Left = 24 Top = 64 Width = 17 Height = 17 Caption = 'B' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button17Click end object Button18: TButton Left = 40 Top = 64 Width = 17 Height = 17 Caption = 'C' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button18Click end object Button19: TButton Left = 56 Top = 64 Width = 17 Height = 17 Caption = 'D' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = Button19Click end object Button20: TButton Left = 72 Top = 64 Width = 17 Height = 17 Caption = 'E' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = Button20Click end object Button21: TButton Left = 88 Top = 64 Width = 17 Height = 17 Caption = 'F' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = Button21Click end object Button22: TButton Left = 104 Top = 64 Width = 17 Height = 17 Caption = 'G' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = Button22Click end object Button23: TButton Left = 120 Top = 64 Width = 17 Height = 17 Caption = 'H' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = Button23Click end object Button24: TButton Left = 136 Top = 64 Width = 17 Height = 17 Caption = 'I' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 10 OnClick = Button24Click end object Button25: TButton Left = 152 Top = 64 Width = 17 Height = 17 Caption = 'J' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 11 OnClick = Button25Click end object Button26: TButton Left = 168 Top = 64 Width = 17 Height = 17 Caption = 'K' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 12 OnClick = Button26Click end object Button27: TButton Left = 184 Top = 64 Width = 17 Height = 17 Caption = 'L' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 13 OnClick = Button27Click end object Button28: TButton Left = 200 Top = 64 Width = 17 Height = 17 Caption = '�' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 14 OnClick = Button28Click end object Button29: TButton Left = 216 Top = 64 Width = 17 Height = 17 Caption = 'M' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 15 OnClick = Button29Click end object Button30: TButton Left = 232 Top = 64 Width = 17 Height = 17 Caption = 'N' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 16 OnClick = Button30Click end object Button31: TButton Left = 248 Top = 64 Width = 17 Height = 17 Caption = 'O' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 17 OnClick = Button31Click end object Button32: TButton Left = 264 Top = 64 Width = 17 Height = 17 Caption = 'P' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 18 OnClick = Button32Click end object Button33: TButton Left = 280 Top = 64 Width = 17 Height = 17 Caption = 'R' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 19 OnClick = Button33Click end object Button34: TButton Left = 296 Top = 64 Width = 17 Height = 17 Caption = 'S' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 20 OnClick = Button34Click end object Button35: TButton Left = 312 Top = 64 Width = 17 Height = 17 Caption = 'T' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 21 OnClick = Button35Click end object Button36: TButton Left = 328 Top = 64 Width = 17 Height = 17 Caption = 'U' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 22 OnClick = Button36Click end object Button38: TButton Left = 344 Top = 64 Width = 17 Height = 17 Caption = 'W' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 23 OnClick = Button38Click end object Button39: TButton Left = 360 Top = 64 Width = 17 Height = 17 Caption = 'Z' Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 24 OnClick = Button39Click end object Button40: TButton Left = 8 Top = 188 Width = 17 Height = 17 Caption = 'A' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 27 OnClick = Button40Click end object Button41: TButton Left = 24 Top = 188 Width = 17 Height = 17 Caption = 'B' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 28 OnClick = Button41Click end object Button42: TButton Left = 40 Top = 188 Width = 17 Height = 17 Caption = 'C' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 29 OnClick = Button42Click end object Button43: TButton Left = 56 Top = 188 Width = 17 Height = 17 Caption = 'D' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 30 OnClick = Button43Click end object Button44: TButton Left = 72 Top = 188 Width = 17 Height = 17 Caption = 'E' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 31 OnClick = Button44Click end object Button45: TButton Left = 88 Top = 188 Width = 17 Height = 17 Caption = 'F' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 32 OnClick = Button45Click end object Button46: TButton Left = 104 Top = 188 Width = 17 Height = 17 Caption = 'G' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 33 OnClick = Button46Click end object Button47: TButton Left = 120 Top = 188 Width = 17 Height = 17 Caption = 'H' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 34 OnClick = Button47Click end object Button48: TButton Left = 136 Top = 188 Width = 17 Height = 17 Caption = 'I' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 35 OnClick = Button48Click end object Button49: TButton Left = 152 Top = 188 Width = 17 Height = 17 Caption = 'J' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 36 OnClick = Button49Click end object Button50: TButton Left = 168 Top = 188 Width = 17 Height = 17 Caption = 'K' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 37 OnClick = Button50Click end object Button51: TButton Left = 184 Top = 188 Width = 17 Height = 17 Caption = 'L' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 38 OnClick = Button51Click end object Button52: TButton Left = 200 Top = 188 Width = 17 Height = 17 Caption = '�' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 39 OnClick = Button52Click end object Button53: TButton Left = 216 Top = 188 Width = 17 Height = 17 Caption = 'M' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 40 OnClick = Button53Click end object Button54: TButton Left = 232 Top = 188 Width = 17 Height = 17 Caption = 'N' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 41 OnClick = Button54Click end object Button55: TButton Left = 248 Top = 188 Width = 17 Height = 17 Caption = 'O' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 42 OnClick = Button55Click end object Button56: TButton Left = 264 Top = 188 Width = 17 Height = 17 Caption = 'P' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 43 OnClick = Button56Click end object Button57: TButton Left = 280 Top = 188 Width = 17 Height = 17 Caption = 'R' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 44 OnClick = Button57Click end object Button58: TButton Left = 296 Top = 188 Width = 17 Height = 17 Caption = 'S' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 45 OnClick = Button58Click end object Button59: TButton Left = 312 Top = 188 Width = 17 Height = 17 Caption = 'T' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 46 OnClick = Button59Click end object Button60: TButton Left = 328 Top = 188 Width = 17 Height = 17 Caption = 'U' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 47 OnClick = Button60Click end object Button62: TButton Left = 344 Top = 188 Width = 17 Height = 17 Caption = 'W' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 48 OnClick = Button62Click end object Button63: TButton Left = 360 Top = 188 Width = 17 Height = 17 Caption = 'Z' Enabled = False Font.Color = clNavy Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [fsBold] ParentFont = False TabOrder = 49 OnClick = Button63Click end object Panel1: TPanel Left = 612 Top = 210 Width = 173 Height = 37 BevelInner = bvLowered BevelOuter = bvLowered Color = clYellow TabOrder = 58 end object kod: TEdit Left = 656 Top = 214 Width = 97 Height = 29 BorderStyle = bsNone Color = clYellow Ctl3D = True Font.Color = clRed Font.Height = -23 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 6 ParentCtl3D = False ParentFont = False TabOrder = 59 Text = '00-000' end object Button37: TButton Left = 376 Top = 188 Width = 13 Height = 17 Caption = '...' Enabled = False TabOrder = 50 OnClick = Button37Click end end object b_kody: TButton Left = 404 Top = 516 Width = 381 Height = 25 Caption = 'Ksi��ka kodowa' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 16 OnClick = b_kodyClick end object p_drukuj_seria: TPanel Left = 52 Top = 300 Width = 49 Height = 121 BevelOuter = bvNone TabOrder = 23 Visible = False object Label25: TLabel Left = 8 Top = 4 Width = 373 Height = 45 Alignment = taCenter AutoSize = False Caption = 'Aby rozpocz�� druk seryjny nale�y zaznaczy� na li�cie druk�w ��d' + 'any typ druku i wybra� Nadawc�. Nast�pnie prosz� wybra� adresat�' + 'w na poni�szej li�cie (Ctrl+mysz lub Shift+mysz) i nacisn�� Druk' + 'owanie seryjne.' end object Label26: TLabel Left = 8 Top = 496 Width = 183 Height = 13 Caption = 'Liczba wybranych adresat�w : 0' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object ListBox1: TListBox Left = 8 Top = 48 Width = 377 Height = 441 Color = clMaroon Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 Items.Strings = ( '0000' '1010' '1111' '1111' '1212' '1313' '1414' '1515' '1616' '1717' '1818' '1919' '2020' '2121' '2222' '2222' '2323' '2424' '2525' '2626' '2727' '2828' '2929' '3030' '3333' '4444' '5555' '6666' '7777' '8888' '9999') MultiSelect = True ParentFont = False Style = lbOwnerDrawFixed TabOrder = 0 OnClick = ListBox1Click end object Memo1: TMemo Left = 8 Top = 348 Width = 377 Height = 141 ScrollBars = ssVertical TabOrder = 4 Visible = False end object b_druk_etykiet: TButton Left = 8 Top = 516 Width = 173 Height = 25 Caption = 'Druk na etykietach adresowych' TabOrder = 1 OnClick = b_druk_etykietClick end object b_drukuj_panel: TButton Left = 180 Top = 516 Width = 137 Height = 25 Caption = 'Drukowanie seryjne' TabOrder = 2 OnClick = b_drukuj_panelClick end object b_zamknij_panel: TButton Left = 316 Top = 516 Width = 69 Height = 25 Caption = 'Koniec' TabOrder = 3 OnClick = b_zamknij_panelClick end end object p_adresat: TPanel Left = 216 Top = 4 Width = 69 Height = 21 TabOrder = 28 Visible = False object GroupBox2: TGroupBox Left = 8 Top = 4 Width = 389 Height = 257 Caption = ' Adresat ' TabOrder = 0 object Label12: TLabel Left = 12 Top = 20 Width = 101 Height = 13 Caption = 'Imi� i nazwisko/Firma' end object Label13: TLabel Left = 12 Top = 40 Width = 114 Height = 13 Caption = 'Ulica, nr domu, nr lokalu' end object Label14: TLabel Left = 12 Top = 60 Width = 67 Height = 13 Caption = 'Kod pocztowy' end object Label15: TLabel Left = 12 Top = 80 Width = 61 Height = 13 Caption = 'Miejscowo��' end object Label16: TLabel Left = 12 Top = 100 Width = 32 Height = 13 Caption = 'Powiat' end object Label17: TLabel Left = 12 Top = 120 Width = 67 Height = 13 Caption = 'Wojew�dztwo' end object Label18: TLabel Left = 12 Top = 140 Width = 18 Height = 13 Caption = 'Kraj' end object Label19: TLabel Left = 12 Top = 160 Width = 25 Height = 13 Caption = 'Bank' end object Label20: TLabel Left = 12 Top = 180 Width = 79 Height = 13 Caption = 'Numer rachunku' end object Label74: TLabel Left = 12 Top = 200 Width = 36 Height = 13 Caption = 'Telefon' end object imie_i_nazwisko2: TEdit Left = 136 Top = 16 Width = 245 Height = 21 MaxLength = 80 TabOrder = 0 Text = 'imie_i_nazwisko2' OnEnter = imie_i_nazwisko2Enter OnExit = imie_i_nazwisko2Exit end object adres2: TEdit Left = 136 Top = 36 Width = 245 Height = 21 MaxLength = 80 TabOrder = 1 Text = 'adres2' OnEnter = adres2Enter OnExit = adres2Exit end object kod_pocztowy2: TEdit Left = 136 Top = 56 Width = 245 Height = 21 MaxLength = 10 TabOrder = 2 Text = 'kod_pocztowy2' OnEnter = kod_pocztowy2aEnter OnExit = kod_pocztowy2aExit end object miejscowosc2: TEdit Left = 136 Top = 76 Width = 245 Height = 21 MaxLength = 50 TabOrder = 3 Text = 'miejscowosc2' OnEnter = miejscowosc2Enter OnExit = miejscowosc2Exit end object powiat2: TEdit Left = 136 Top = 96 Width = 245 Height = 21 MaxLength = 25 TabOrder = 4 Text = 'powiat2' OnEnter = powiat2Enter OnExit = powiat2Exit end object wojewodztwo2: TEdit Left = 136 Top = 116 Width = 245 Height = 21 MaxLength = 25 TabOrder = 5 Text = 'wojewodztwo2' OnEnter = wojewodztwo2Enter OnExit = wojewodztwo2Exit end object kraj2: TEdit Left = 136 Top = 136 Width = 245 Height = 21 MaxLength = 25 TabOrder = 6 Text = 'kraj2' OnEnter = kraj2Enter OnExit = kraj2Exit end object bank2: TEdit Left = 136 Top = 156 Width = 245 Height = 21 MaxLength = 50 TabOrder = 7 Text = 'bank2' OnEnter = bank2Enter OnExit = bank2Exit end object numer_rachunku2: TEdit Left = 136 Top = 176 Width = 245 Height = 21 MaxLength = 30 TabOrder = 8 Text = 'numer_rachunku2' OnEnter = numer_rachunku2Enter OnExit = numer_rachunku2Exit end object b_nowy2: TButton Left = 8 Top = 224 Width = 69 Height = 25 Caption = 'Nowy' TabOrder = 10 OnClick = b_nowy2Click end object b_usun2: TButton Left = 76 Top = 224 Width = 61 Height = 25 Caption = 'Usu�' TabOrder = 11 OnClick = b_usun2Click end object b_zapis2: TButton Left = 136 Top = 224 Width = 157 Height = 25 Caption = 'Dodaj do rejestru adresat�w' TabOrder = 12 OnClick = b_zapis2Click end object Button1: TButton Left = 72 Top = 148 Width = 63 Height = 25 Caption = 'Wczytaj' TabOrder = 14 TabStop = False Visible = False OnClick = Button1Click end object b_korekta2: TButton Left = 292 Top = 224 Width = 89 Height = 25 Caption = 'Zapisz zmiany' TabOrder = 13 OnClick = b_korekta2Click end object telefon2: TEdit Left = 136 Top = 196 Width = 245 Height = 21 MaxLength = 50 TabOrder = 9 Text = 'telefon2' OnEnter = telefon2Enter OnExit = telefon2Exit end object Panel4: TPanel Left = 288 Top = 12 Width = 93 Height = 209 Caption = 'Panel4' TabOrder = 15 Visible = False object Label40: TLabel Left = 8 Top = 8 Width = 33 Height = 13 end object Label41: TLabel Left = 8 Top = 28 Width = 3 Height = 13 end object Label42: TLabel Left = 7 Top = 48 Width = 3 Height = 13 end object Label43: TLabel Left = 8 Top = 68 Width = 3 Height = 13 end object Label44: TLabel Left = 8 Top = 88 Width = 3 Height = 13 end object Label45: TLabel Left = 8 Top = 108 Width = 3 Height = 13 end object Label46: TLabel Left = 8 Top = 128 Width = 3 Height = 13 end object Label47: TLabel Left = 8 Top = 148 Width = 3 Height = 13 end object Label48: TLabel Left = 8 Top = 168 Width = 3 Height = 13 end object Label79: TLabel Left = 8 Top = 188 Width = 3 Height = 13 end end end object Button11: TButton Left = 16 Top = 268 Width = 373 Height = 25 Caption = 'Powr�t' TabOrder = 1 OnClick = Button11Click end end object p_nadawca: TPanel Left = 132 Top = 4 Width = 77 Height = 21 TabOrder = 27 Visible = False object Button10: TButton Left = 16 Top = 268 Width = 373 Height = 25 Caption = 'Powr�t' TabOrder = 1 OnClick = Button10Click end object GroupBox1: TGroupBox Left = 8 Top = 4 Width = 389 Height = 257 Caption = ' Nadawca ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 12 Top = 20 Width = 101 Height = 13 Caption = 'Imi� i nazwisko/Firma' end object Label2: TLabel Left = 12 Top = 40 Width = 114 Height = 13 Caption = 'Ulica, nr domu, nr lokalu' end object Label3: TLabel Left = 12 Top = 60 Width = 67 Height = 13 Caption = 'Kod pocztowy' end object Label4: TLabel Left = 12 Top = 80 Width = 61 Height = 13 Caption = 'Miejscowo��' end object Label5: TLabel Left = 12 Top = 100 Width = 32 Height = 13 Caption = 'Powiat' end object Label6: TLabel Left = 12 Top = 120 Width = 67 Height = 13 Caption = 'Wojew�dztwo' end object Label7: TLabel Left = 12 Top = 140 Width = 24 Height = 13 Caption = 'Logo' end object Label8: TLabel Left = 12 Top = 160 Width = 25 Height = 13 Caption = 'Bank' end object Label9: TLabel Left = 12 Top = 180 Width = 79 Height = 13 Caption = 'Numer rachunku' end object Label70: TLabel Left = 12 Top = 200 Width = 36 Height = 13 Caption = 'Telefon' end object imie_i_nazwisko: TEdit Left = 136 Top = 16 Width = 245 Height = 21 MaxLength = 80 TabOrder = 0 Text = 'imie_i_nazwisko' OnEnter = imie_i_nazwiskoEnter OnExit = imie_i_nazwiskoExit end object adres: TEdit Left = 136 Top = 36 Width = 245 Height = 21 MaxLength = 80 TabOrder = 1 Text = 'adres' OnEnter = adresEnter OnExit = adresExit end object kod_pocztowy: TEdit Left = 136 Top = 56 Width = 245 Height = 21 MaxLength = 10 TabOrder = 2 Text = 'kod_pocztowy' OnEnter = kod_pocztowyEnter OnExit = kod_pocztowyExit end object miejscowosc: TEdit Left = 136 Top = 76 Width = 245 Height = 21 MaxLength = 50 TabOrder = 3 Text = 'miejscowosc' OnEnter = miejscowoscEnter OnExit = miejscowoscExit end object powiat: TEdit Left = 136 Top = 96 Width = 245 Height = 21 MaxLength = 25 TabOrder = 4 Text = 'powiat' OnEnter = powiatEnter OnExit = powiatExit end object wojewodztwo: TEdit Left = 136 Top = 116 Width = 245 Height = 21 MaxLength = 25 TabOrder = 5 Text = 'wojewodztwo' OnEnter = wojewodztwoEnter OnExit = wojewodztwoExit end object logo: TEdit Left = 136 Top = 136 Width = 245 Height = 21 MaxLength = 100 TabOrder = 6 Text = 'logo' OnEnter = logoEnter OnExit = logoExit end object bLogo: TButton Left = 358 Top = 170 Width = 21 Height = 18 Caption = '...' TabOrder = 7 TabStop = False OnClick = bLogoClick end object bank: TEdit Left = 136 Top = 156 Width = 245 Height = 21 MaxLength = 50 TabOrder = 8 Text = 'bank' OnEnter = bankEnter OnExit = bankExit end object numer_rachunku: TEdit Left = 136 Top = 176 Width = 245 Height = 21 MaxLength = 30 TabOrder = 9 Text = 'numer_rachunku' OnEnter = numer_rachunkuEnter OnExit = numer_rachunkuExit end object b_nowy1: TButton Left = 8 Top = 224 Width = 69 Height = 25 Caption = 'Nowy' TabOrder = 11 OnClick = b_nowy1Click end object b_usun1: TButton Left = 76 Top = 224 Width = 61 Height = 25 Caption = 'Usu�' TabOrder = 12 OnClick = b_usun1Click end object b_zapis1: TButton Left = 136 Top = 224 Width = 157 Height = 25 Caption = 'Dodaj do rejestru nadawc�w' TabOrder = 13 OnClick = b_zapis1Click end object b_korekta1: TButton Left = 292 Top = 224 Width = 89 Height = 25 Caption = 'Zapisz zmiany' TabOrder = 14 OnClick = b_korekta1Click end object a1: TEdit Left = 96 Top = 16 Width = 21 Height = 21 TabOrder = 15 Text = 'a1' Visible = False end object a2: TEdit Left = 96 Top = 36 Width = 21 Height = 21 TabOrder = 16 Text = 'a2' Visible = False end object a3: TEdit Left = 96 Top = 56 Width = 21 Height = 21 TabOrder = 17 Text = 'a3' Visible = False end object a4: TEdit Left = 96 Top = 76 Width = 21 Height = 21 TabOrder = 18 Text = 'a4' Visible = False end object a5: TEdit Left = 96 Top = 96 Width = 21 Height = 21 TabOrder = 19 Text = 'a5' Visible = False end object a6: TEdit Left = 96 Top = 116 Width = 21 Height = 21 TabOrder = 20 Text = 'a6' Visible = False end object a7: TEdit Left = 96 Top = 136 Width = 21 Height = 21 TabOrder = 21 Text = 'a7' Visible = False end object a8: TEdit Left = 96 Top = 156 Width = 21 Height = 21 TabOrder = 22 Text = 'a8' Visible = False end object a9: TEdit Left = 96 Top = 176 Width = 21 Height = 21 TabOrder = 23 Text = 'a9' Visible = False end object telefon: TEdit Left = 136 Top = 196 Width = 245 Height = 21 MaxLength = 50 TabOrder = 10 Text = 'telefon' OnEnter = telefonEnter OnExit = telefonExit end object Panel5: TPanel Left = 292 Top = 12 Width = 93 Height = 209 Caption = 'Panel5' TabOrder = 24 Visible = False object Label30: TLabel Left = 12 Top = 8 Width = 3 Height = 13 end object Label31: TLabel Left = 12 Top = 28 Width = 3 Height = 13 end object Label32: TLabel Left = 12 Top = 48 Width = 3 Height = 13 end object Label33: TLabel Left = 12 Top = 68 Width = 3 Height = 13 end object Label34: TLabel Left = 12 Top = 88 Width = 3 Height = 13 end object Label35: TLabel Left = 12 Top = 108 Width = 3 Height = 13 end object Label36: TLabel Left = 12 Top = 128 Width = 3 Height = 13 end object Label37: TLabel Left = 12 Top = 148 Width = 3 Height = 13 end object Label38: TLabel Left = 12 Top = 168 Width = 3 Height = 13 end object Label69: TLabel Left = 8 Top = 192 Width = 3 Height = 13 end end object a10: TEdit Left = 96 Top = 196 Width = 25 Height = 21 TabStop = False TabOrder = 25 Text = 'a10' Visible = False end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Left = 16 end object dsNadawca: TDataSource Left = 48 Top = 32 end object T_Adresat: TTable TableName = 'private.DB' Left = 412 Top = 28 end object dsAdresat: TDataSource DataSet = T_Adresat Left = 440 Top = 28 end object dsNadawca2: TDataSource Left = 56 Top = 220 end object Query1: TQuery DataSource = dsNadawca2 Left = 28 Top = 220 end object Query2: TQuery DataSource = dsAdresat2 Left = 420 Top = 220 end object dsAdresat2: TDataSource DataSet = T_Adresat Left = 448 Top = 220 end object PrintDialog1: TPrintDialog Left = 44 end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 72 end object Query3: TQuery Left = 532 Top = 256 end object dsQuery3: TDataSource DataSet = Query3 Left = 560 Top = 256 end object MarsCaption1: TMarsCaption ActiveBeginColor = clBlack ActiveEndColor = clBlue ActiveFontColor = clYellow InactiveBeginColor = clGray InactiveEndColor = clSilver InactiveFontColor = clBlack ApplicationNameFont.Color = clWindowText ApplicationNameFont.Height = -11 ApplicationNameFont.Name = 'MS Sans Serif' ApplicationNameFont.Style = [fsBold] CaptionFont.Color = clWindowText CaptionFont.Height = -11 CaptionFont.Name = 'MS Sans Serif' CaptionFont.Style = [] NumColors = 64 AutoSize = False Left = 100 end object T_Nadawca: TTable TableName = 'nadawca.DB' Left = 20 Top = 32 end object dsMiejscowosci: TDataSource DataSet = T_Miejscowosci Left = 116 Top = 220 end object T_Miejscowosci: TTable TableName = 'miejsc.DB' Left = 88 Top = 220 end object T_Miasta: TTable TableName = 'miasta.db' Left = 152 Top = 220 end object dsMiasta: TDataSource DataSet = T_Miasta Left = 180 Top = 220 end object Q_Miasta: TQuery Left = 228 Top = 220 end object dsQ_Miasta: TDataSource DataSet = Q_Miasta Left = 256 Top = 220 end end