-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUOchUpdPodkultury.frm
187 lines (187 loc) · 4.88 KB
/
UOchUpdPodkultury.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
object OchUpdPodkultury: TOchUpdPodkultury
Left = 342
Height = 531
Top = 242
Width = 645
Caption = 'Aktualizacja uczestników podkultury'
ClientHeight = 531
ClientWidth = 645
OnCreate = FormCreate
Position = poOwnerFormCenter
LCLVersion = '6.6'
object Panel1: TPanel
Left = 0
Height = 50
Top = 0
Width = 645
Align = alTop
BevelOuter = bvNone
ClientHeight = 50
ClientWidth = 645
Color = clWhite
ParentColor = False
TabOrder = 0
object StaticText1: TStaticText
Left = 40
Height = 32
Top = 8
Width = 575
Caption = 'Aktualizacja uczestników podkultury na podstawie danych z NoeNet.'#13#10'Wyszukiwarka penitencjarna - Podkultura przestępcza - Status (Obecny status) - Forma (Uczestniczący...)'
Font.Color = clGreen
ParentFont = False
TabOrder = 0
end
object Image1: TImage
Left = 8
Height = 24
Top = 8
Width = 24
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963EE02000089504E47
0D0A1A0A0000000D49484452000000100000001008060000001FF3FF61000002
B54944415478DAA5937B48537114C7BFF7B579E774B30798896966204C651AA1
3D507BA0B0C0688906FDA115669054644244FD6B61444458E13F9594529081C2
200AFF101F919A46A296A93D6639371F73BBF7EE3E76BB2C4C62AB7F3AE78F1F
9C737E1FBEE7FCCE8FC05FCCDE325DB537CD5417C3321B0D7A5A9DF74BCADC92
6FA8F163FC996FC789C1953A22D2E50B0E6743557E42ED2C0FB8384047FF8AC7
1980B1EF40B6C30236F6539F68CE190A031C691EDF75B628A56B8A23B1C02930
33C0ABC149CC7E9E41D9E142282C81CDEFAAE1753C3864BB29B485014A1A874F
9D3E98D93831CFC3C0509095209E77F4847265F602CC0A24D8991114775BC045
E37218C0767BA0AEA238F39A8717A1065508418057482C0932FCBC048261E0F5
91C81D286EC831F5F687018A6EF49EAFB059AF8FCE05A06880655186A2129A12
05A496A72902739C1EAD25B144C421EEB9DA559B9B97D1A048229C0B8BF08941
AC31C66895145435088A22C1F3021E952647066CBFF2B2BAB020FBCEDBF129BC
78FD1588A261301950BA231D5240064553F0733C9E1D4D5D05E45D72947F712D
8D3A9BCA876DF59DADD9F9D965CDED7D987673D03304186D98453BB3204A5A1B
140591F7C35199BE0A38F6F0BD606669FD0FA7BB635346DA81A0166E6CE904A7
C957781E1B92E261B5A6431044D03A1DBC1E0FFACE6D5B05AC3FF1E456D6EE9C
1A9221B13CEFC54877BF56E405A25998D6C521DD6A09499764193A030BD7F8E4
F487FAFD29BF0166FBDD98A8C4C4AEB596AD59BCCB0DDFA22FB47D3A8311C638
13829A2BA2269F26A092345C3D6F2ADD8F2BEEFF3144536953029598E064B7A4
820ACA80D6AFAAB9224BA17DD0248476801B9B180BCCBA32F8B69372D82B18EC
F752A4D8D8A7484ECA9129162A6F84363510BA65E8543F94C9E901CA33BF2FD0
5EB3F8CFCFB46233F58C9A70512256CE4835FF0DF80947FB28FFCA3A49B60000
000049454E44AE426082
}
Proportional = True
Stretch = True
end
end
object Memo1: TMemo
Left = 0
Height = 431
Top = 50
Width = 398
Align = alLeft
OnChange = Memo1Change
ScrollBars = ssAutoBoth
TabOrder = 1
WordWrap = False
end
object Panel2: TPanel
Left = 0
Height = 50
Top = 481
Width = 645
Align = alBottom
ClientHeight = 50
ClientWidth = 645
TabOrder = 2
object BitBtn1: TBitBtn
Left = 8
Height = 30
Top = 8
Width = 128
Caption = 'Aktualizacja'
Enabled = False
OnClick = BitBtn1Click
TabOrder = 0
end
end
object Label1: TLabel
Left = 408
Height = 15
Top = 56
Width = 130
Caption = 'Uczestników podkultury:'
ParentColor = False
end
object Label2: TLabel
Left = 552
Height = 15
Top = 56
Width = 36
Caption = 'Label2'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 408
Height = 15
Top = 80
Width = 134
Caption = 'Sprawdzono osadzonych:'
ParentColor = False
end
object Label4: TLabel
Left = 552
Height = 15
Top = 80
Width = 36
Caption = 'Label4'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 408
Height = 15
Top = 128
Width = 45
Caption = 'Dodano:'
ParentColor = False
end
object Label6: TLabel
Left = 552
Height = 15
Top = 128
Width = 36
Caption = 'Label6'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 408
Height = 15
Top = 104
Width = 90
Caption = 'Zmodyfikowano:'
ParentColor = False
end
object Label8: TLabel
Left = 552
Height = 15
Top = 104
Width = 36
Caption = 'Label8'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object MemPodkultura: TMemDataset
Active = True
FieldDefs = <
item
Name = 'IDO'
DataType = ftInteger
end
item
Name = 'GR'
DataType = ftInteger
end>
Left = 301
Top = 112
end
end