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
Wrap
Text File
|
1997-02-09
|
78KB
|
3,395 lines
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 = {<image000.ico>}
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 = {<image001.bmp>}
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