-
Notifications
You must be signed in to change notification settings - Fork 0
/
UPenitAktaArch.frm
294 lines (294 loc) · 10.6 KB
/
UPenitAktaArch.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
object PenitAktaArch: TPenitAktaArch
Left = 334
Height = 588
Top = 226
Width = 910
BorderStyle = bsDialog
Caption = 'Druk Wniosku o Akta Archiwalne'
ClientHeight = 588
ClientWidth = 910
Position = poDesktopCenter
LCLVersion = '6.6'
object Panel1: TPanel
Left = 0
Height = 50
Top = 0
Width = 910
Align = alTop
ClientHeight = 50
ClientWidth = 910
Color = clWhite
ParentColor = False
TabOrder = 0
object Label1: TLabel
Left = 64
Height = 15
Top = 15
Width = 173
Caption = 'Druk Wniosku o Akta Archiwalne'
ParentColor = False
end
object Image1: TImage
Left = 16
Height = 32
Top = 8
Width = 32
AutoSize = True
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869632403000089504E47
0D0A1A0A0000000D494844520000002000000020080300000044A48AC6000000
0373424954080808DBE14FE00000000970485973000007A3000007A301302FB2
C50000001974455874536F667477617265007777772E696E6B73636170652E6F
72679BEE3C1A00000135504C5445FFFFFF80D58071C68E76C48971C68072C386
70C18970C28572C48572C285E7E1D7E6E2D5E6E1D6E2DDD5E2DCD471C48671C3
8771C38571C38671C48571C38771C38671C38672C38670C386DCD6CEE0DAD17A
C58C71C386ABCDAD71C38674C48971C38672C38673C48775C48976C48A7AC78E
84C69386CC9887C99589C7968BCE9C8CCE9D91D0A196CDA09BCAA2A0CBA5A1D0
A7A1D7AFADCEAEBDD7BBC1D1BBCCD3C2D1DDC9DCD6CDDCD7CDDDD7CEDDD8CEDE
D8CEDED8CFDED9CFDFD9D0E0DAD0E0DAD1E0DBD1E0E1D3E1DBD2E1DCD2E2DCD3
E2DDD2E2E1D5E3DED4E4DFD4E4DFD5E4E2D6E5E0D6E6E0D7E6E1D6E6E1D7E7E2
D8E8E3D7E8E3D8E8E3D9E8E4D8E9E5D9EAE5D9EAE6DAEBE6DAEBE7DBECE7DBEC
E8DBECE8DCEDE8DCEDE9DCEEE9DDEEEADDEEF8F1EFEBDEF6FBF7F7FBF8F8FCF9
FFFFFF6310B0810000002074524E530006090D12262932415C5F6870727C8190
999CB0C5D0D1D3DCE8ECEDF2F2FBFE10987E49000001354944415438CBA5D359
53C2301486E1E0BEE38EBB414594E2BE1C5B6B1171C18D5683202E2C52FCFF3F
C1263098D0841BBE8BDC3CEF4C673A7310EA78C323ED368450B2F4A35E710121
B0BE95FE61CE7B01980585E7756001E839A9673DAA07002F12CF001740C6E7F7
20049016B97C0B2D015C97392F25C11740A2D8F42F0B24015C7C36BC700ED200
8C77E66F3A2802D3CE7B9E7B3614C1A54388937DF51E4B1ADC90FFA58E773737
B6F74EB8E0EC81F3BB7DCCB67ED80C0C9B73B24335429FE5466039BC1F518A56
E8BBDACB821411B6454973D957C6699016FD718D0BA611E84FA293538CE355B7
F6EBBA95085E42A6DDE2E40AE3704C3BA8695A14E359343AE6DB22F78949D925
04A9C4AA2C189005819027E138F509F931F585EA7F124F752BCE2D109CC37865
66B0DD49F6F477757ED76C7FC6E3BF51F56FBC6E0000000049454E44AE426082
}
end
end
object BitBtn8: TBitBtn
Left = 8
Height = 30
Top = 552
Width = 184
Caption = 'Drukuj ...'
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
00000000000000000000D7C39BFFECE3D6FFECE3D6FFECE3D6FFECE3D6FFECE3
D6FFECE3D6FFD7C39BFF00000000000000000000000000000000958F8FBF9C96
96CB9C9696E469636AF1C4AB7FFFEDE1D5FFEDE1D5FFEDE1D5FFEDE1D5FFEDE1
D5FFEDE1D5FFC4AB7FFF69636AE99C9696EC9C9696DF999292D3958F8FFFC3C0
BFFFC3C0BFFF837D84FFC6A874FFE0CBAEFFE0CBAEFFE0CBAEFFE0CBAEFFE0CB
AEFFE0CBAEFFC6A874FF837D84FFC3C0BFFFC3C0BFFF999292FFA49FA1FFD1CF
CEFFD1CFCEFFD3D2D1FFD2D2D3FFD0D0D2FFD0D0D2FFD0D0D2FFD0D0D2FFD0D0
D2FFD0D0D2FFD2D2D3FFD3D2D1FFBACAD7FF6E9BE3FFA49FA1FFAAA7A7FFD9D7
D7FFD9D7D7FFD9D7D7FFD9D7D7FFD9D7D7FFD9D7D7FFD9D7D7FFD9D7D7FFD9D7
D7FFD9D7D7FFD9D7D7FFD9D7D7FF8AC3E9FF004BFBFFABA8A8FFB7B3B3FFE6E8
E9FFD6C5AFFFBC6B10FFBB6A0FFFBB6A0FFFBB6A0FFFBB6A0FFFBB6A0FFFBB6A
0FFFBB6A0FFFBB6A0FFFBC6B10FFD6C5AFFFE6E8E9FFB8B5B5FFBCB9BAFFEEF2
F5FFBA7B3EFFE1A942FFE1A842FFE1A842FFE1A842FFE1A842FFE1A842FFE1A8
42FFE1A842FFE1A842FFE1A942FFBA7B3EFFEEF2F5FFBFBBBCFFCDC8C9FFF8FC
FFFFCD9753FFEEC670FFEEC771FFEEC771FFEEC771FFEEC771FFEEC771FFEEC7
71FFEEC771FFEEC771FFEEC670FFCD9753FFF8FCFFFFCECBCCFFD2D0D0FFFCFF
FFFFD7A55CFFEDC977FFE9BF68FFE9BF68FFE9BF68FFE9BF68FFE9BF68FFE9BF
68FFE9BF68FFE9BF68FFEDC977FFD7A55CFFFCFFFFFFD4D1D0FFDEDCDBFFFFFF
FFFFE8C070FFE0AC54FFB99D6BFFD7BD91FFD7BD91FFD7BD91FFD7BD91FFD7BD
91FFD7BD91FFB99D6BFFE0AC54FFE8C070FFFFFFFFFFE3DFDFFFCAC3C5E0B0AF
B4D9D8A859D8C9924BE4C4AB7FFFDFCAADFFDFCAADFFDFCAADFFDFCAADFFDFCA
ADFFDFCAADFFC4AB7FFFC9924BF0D8A859DFB0AFB4D5CAC2C4E0000000000000
00000000000000000000D0BD98FFECDFD1FFECDFD1FFECDFD1FFECDFD1FFECDF
D1FFECDFD1FFD0BD98FF00000000000000000000000000000000000000000000
00000000000000000000D5C4A4FFEFE4D8FFEFE4D8FFEFE4D8FFEFE4D8FFEFE4
D8FFEFE4D8FFD5C4A4FF00000000000000000000000000000000000000000000
00000000000000000000DED0B8FFF5EDE4FFF5EDE4FFF5EDE4FFF5EDE4FFF5ED
E4FFF5EDE4FFDED0B8FF00000000000000000000000000000000000000000000
00000000000000000000E2D6C1FFF8F3EAFFF8F3EAFFF8F3EAFFF8F3EAFFF8F3
EAFFF8F3EAFFE2D6C1FF00000000000000000000000000000000000000000000
00000000000000000000E3D8C6E3EFE8DBFFEFE8DBFFEFE8DBFFEFE8DBFFEFE8
DBFFEFE8DBFFE3D8C6D300000000000000000000000000000000
}
OnClick = BitBtn8Click
TabOrder = 1
end
object moNaglowek: TMemo
Left = 8
Height = 42
Top = 232
Width = 888
Font.CharSet = EASTEUROPE_CHARSET
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Lines.Strings = (
'Zwracam się z uprzejmą prośbą o nadesłanie celem dalszego wykorzystania akt archiwalnych "teczka osobopoznawcza" osadzonego:'
)
ParentFont = False
ScrollBars = ssVertical
TabOrder = 2
end
object edNazwiskoImie: TEdit
Left = 8
Height = 27
Top = 280
Width = 888
Font.CharSet = EASTEUROPE_CHARSET
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Text = 'edNazwiskoImie'
end
object Label2: TLabel
Left = 8
Height = 15
Top = 64
Width = 64
Caption = 'Znak pisma:'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentColor = False
ParentFont = False
end
object edSygnatura: TEdit
Left = 8
Height = 26
Top = 88
Width = 224
Font.CharSet = EASTEUROPE_CHARSET
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
ParentFont = False
TabOrder = 4
end
object moTresc: TMemo
Left = 8
Height = 114
Top = 400
Width = 888
Font.CharSet = EASTEUROPE_CHARSET
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Lines.Strings = (
'który został zwolniony z podległej jednostki w [ROKP] roku.'
'Wyżej wymieniony został ponownie osadzony w dniu [ROKT] roku.'
)
ParentFont = False
TabOrder = 5
end
object Label3: TLabel
Left = 8
Height = 15
Top = 330
Width = 209
Caption = 'poprzednią jednostkę opuszczał w roku:'
ParentColor = False
end
object edROKP: TEdit
Left = 226
Height = 23
Top = 328
Width = 104
TabOrder = 6
end
object Label4: TLabel
Left = 69
Height = 15
Top = 360
Width = 148
Caption = 'ponownie osadzony w dniu:'
ParentColor = False
end
object edROKT: TEdit
Left = 226
Height = 23
Top = 356
Width = 104
TabOrder = 7
end
object Label5: TLabel
Left = 504
Height = 15
Top = 64
Width = 43
Caption = 'Adresat:'
ParentColor = False
end
object moAdresat: TMemo
Left = 504
Height = 138
Top = 88
Width = 392
Font.CharSet = EASTEUROPE_CHARSET
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
Lines.Strings = (
'Pani/Pan Dyrektor'
)
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 8
end
object BitBtn1: TBitBtn
Left = 688
Height = 30
Top = 56
Width = 208
Caption = 'Wstaw adresata ...'
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000003786B21A3973F56E2F2367000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000044695C2008EECFF009AF4FF1F4B80FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000004496010953A3D82BA7F5FF16C0FFFF00A0F3FF0150A5AA000000000000
000000000000000000000000000000000000000000000000000000000000004D
A8010D62B2E268C4F8FF6BD4FFFF279CE6FF0754A69E00000000000000000000
0000000000000000000000000000000000000000000000000000000000001C7C
CEDBA4E3FEFFB5EEFFFF4CAAE7FF015CB39A0000000000000000000000000000
0000491A1A024B1C1D86613535BD7B534DD15F3335C15B22227B8E71809D359E
E8FFBDF5FFFF77C4EFFF0065C29C000000000000000000000000000000004E20
203A7C5655FCDFD3CBFFFFFFF7FFFFFFE7FFFFFEDBFFD6BB9EFF90584DFF817B
8EFF1794E4FF0180D995000000000000000000000000000000005526281B8865
65FFFFFFFFFFFFFFFFFFFDF8E8FFFAF2DCFFF8EDCFFFFFF1CFFFF6DEBAFF9F59
45FF4B5E885A0000000000000000000000000000000000000000673B3C9BF6EF
EAFFFFFFFFFFFEFBF5FFFBF7E8FFF9F4DAFFF5EBCCFFE6CEACFFF3DAB8FFE2BD
99FF7D4C50A600000000000000000000000000000000000000008E6F6DF4FFFF
FFFFFDFBF1FFFCF8EEFFFAF3E1FFFCF5E3FFF7F0D7FFF0DFC1FFE7C9A9FFF0D1
ABFFA07369EC845F660F00000000000000000000000000000000957875F7FFFF
FCFFF9F2E1FFFAF3DEFFFAF7E5FFFAF1DCFFF1DFC0FFEDD9BAFFECD8B9FFEDCA
A5FFAF8679FF8969722800000000000000000000000000000000997C77F9FFFF
EBFFF9EED5FFFAF1D7FFF9F2DAFFF2E3C6FFFEFBF9FFFFFFF0FFEFDFC0FFE9C6
9EFFAC7F75F49478811A000000000000000000000000000000008B6566B0F7EA
C8FFF9EBCCFFEFDCBEFFF4E4C7FFF0E1C5FFFDFCECFFFAF5DDFFEFDCBCFFDFB0
87FFA27F7FCB00000000000000000000000000000000000000007F5B6343BA99
8CFFFDECC4FFEDD4B0FFE5CAA8FFEFDBBFFFF2E3C4FFF2DEBCFFEABF93FFBB8E
7DFFA68B95470000000000000000000000000000000000000000000000008A65
746BBE9A8DFFE6C7A5FFEFCBA3FFECC8A2FFE8BE94FFDCAA86FFBE9585FFAB94
9964000000000000000000000000000000000000000000000000000000000000
0000977B8536AA8889A3B79990F9C09B91F3BC9B92F7B29693ABAD9CA52E0000
0000000000000000000000000000000000000000000000000000
}
OnClick = BitBtn1Click
TabOrder = 9
end
object frReport1: TfrReport
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
Left = 496
Top = 8
end
end