-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathunit5.lfm
269 lines (269 loc) · 12.4 KB
/
unit5.lfm
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
object FBar: TFBar
Left = 224
Height = 480
Top = 160
Width = 330
Caption = 'Деталь: брусок'
ClientHeight = 480
ClientWidth = 330
LCLVersion = '1.2.6.0'
object Label1: TLabel
Left = 16
Height = 15
Top = 16
Width = 147
Caption = 'Введите длину бруска, мм:'
ParentColor = False
end
object EditA: TEdit
Left = 200
Height = 23
Top = 16
Width = 120
TabOrder = 0
Text = '-a-'
end
object CBCompute: TButton
Left = 120
Height = 32
Top = 56
Width = 75
Caption = 'Посчитать!'
Default = True
OnClick = CBComputeClick
TabOrder = 1
end
object EditM: TEdit
Left = 200
Height = 23
Top = 120
Width = 120
TabOrder = 2
Text = '-масса-'
end
object Label2: TLabel
Left = 16
Height = 15
Top = 120
Width = 134
Caption = 'Введите массу бруска, г:'
ParentColor = False
end
object LblDensity: TLabel
Left = 16
Height = 15
Top = 152
Width = 67
Caption = '-плотность-'
ParentColor = False
end
object Lbl_found: TLabel
Left = 16
Height = 15
Top = 184
Width = 63
Caption = '-материал-'
ParentColor = False
end
object Lbl_dRho: TLabel
Left = 16
Height = 15
Top = 216
Width = 77
Caption = '-абсолютная-'
ParentColor = False
end
object Lbl_eps: TLabel
Left = 16
Height = 15
Top = 248
Width = 92
Caption = '-относительная-'
ParentColor = False
end
object Image1: TImage
Left = 16
Height = 184
Top = 280
Width = 240
AntialiasingMode = amOn
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963C111000089504E47
0D0A1A0A0000000D4948445200000126000000E20806000000E3CA6ACC000000
1974455874536F6674776172650041646F626520496D616765526561647971C9
653C0000032269545874584D4C3A636F6D2E61646F62652E786D700000000000
3C3F787061636B657420626567696E3D22EFBBBF222069643D2257354D304D70
43656869487A7265537A4E54637A6B633964223F3E203C783A786D706D657461
20786D6C6E733A783D2261646F62653A6E733A6D6574612F2220783A786D7074
6B3D2241646F626520584D5020436F726520352E332D633031312036362E3134
353636312C20323031322F30322F30362D31343A35363A323720202020202020
20223E203C7264663A52444620786D6C6E733A7264663D22687474703A2F2F77
77772E77332E6F72672F313939392F30322F32322D7264662D73796E7461782D
6E7323223E203C7264663A4465736372697074696F6E207264663A61626F7574
3D222220786D6C6E733A786D703D22687474703A2F2F6E732E61646F62652E63
6F6D2F7861702F312E302F2220786D6C6E733A786D704D4D3D22687474703A2F
2F6E732E61646F62652E636F6D2F7861702F312E302F6D6D2F2220786D6C6E73
3A73745265663D22687474703A2F2F6E732E61646F62652E636F6D2F7861702F
312E302F73547970652F5265736F75726365526566232220786D703A43726561
746F72546F6F6C3D2241646F62652050686F746F73686F702043533620285769
6E646F7773292220786D704D4D3A496E7374616E636549443D22786D702E6969
643A374439414138313335343733313145333841323238363633453232414435
37322220786D704D4D3A446F63756D656E7449443D22786D702E6469643A3744
394141383134353437333131453338413232383636334532324144353732223E
203C786D704D4D3A4465726976656446726F6D2073745265663A696E7374616E
636549443D22786D702E6969643A374439414138313135343733313145333841
3232383636334532324144353732222073745265663A646F63756D656E744944
3D22786D702E6469643A37443941413831323534373331314533384132323836
36334532324144353732222F3E203C2F7264663A4465736372697074696F6E3E
203C2F7264663A5244463E203C2F783A786D706D6574613E203C3F787061636B
657420656E643D2272223F3E018D6F1C00000E354944415478DAEC9D61681457
1EC0D7D9ED9A641B8FB22EA4C5960D3984A42D315F0E09187AB884E025542E9C
08423984A2F950100EAE20725FB405EF9320FA5904852BB42507558C0BB5A2A9
918345BC1E587B4D3CA4B75C2E074623317437F7FEEB4C18C7CD26D99DD97933
F3FBC130333B9399EC7FE7FFDBF7DEBC79BB697979390600A01306210000C404
008098002068241A3D405F5F5F546235CDE502E00E8542A1B3D6F64D8D367E47
444C9694B25C52000D33B3969CA8CA21258066B3662E2126A404D074D2E974A6
D6F60421DAB8943299CC22E101A8CDECEC6C4BBD7F8B98EA2C294D4C4C4C1226
80EA0C0E0EF637F2F788A90E2995CBE5929A150915C0CBE472B9F7D5AC84989A
28258BBEBEBE03840BA24EA15070E685E4D06CACC17659C454434AF6B6A446EA
CB0051C094922B39C45DB935A4445B12406352AA27872831D596D2173237DB94
0060E352AA2B87A25E625A33A0B42501342625C5867328CA62424A001EE7503D
528AB298901280A6528AAA98901280C6528AA298901280E6528A9A9890124000
A41425312125808048292A62424A0001925214C48494000226A5B08B09290104
504A611613520208700E1904140074CB21838002806E399420A0EBC33EAE4CB9
5CE6F205A48498FC0D683E9F1F57B30EDB4BC508FDD02720A5A6D736120474DD
30C6372025C4A44F40699702A4D45C0C020A809474CB218380022025DD72C820
A0004849B71C3208280052D22D870C020A809474CBA10401DDD0F9ED74729D03
528AAE98740968D6B63CC3750E4829BA55392D029A4EA733B5D601C8A1E88889
36258088E690414001901262424A00E450C0C4849400C821ADC4849400C821AD
C4849400C821ADC4849400C821ADC4849400C821ADC4849400C821ADC4849400
C821ADC4849400C821ADC4849400C821ADC4849400C821ADC4849400C821ADC4
849400C821ADC4849400C8A10D9320A0EBC3FADF8572B94CBA00520AA0984215
D07C3E3FAE661DB6978AEAFF276D002905484C610D68915C01A4144C318532A0
B48301526A2E060105404A61151301052087B4121301052087F411930A160105
404AFA880929012025AFA8EBAE5C04A5345DE5B54EF20A909226628A7049296B
5B9E21AF00296952958BAA94D2E974A6D63A0052F2494CB429012025ADC48494
0090925662424A0048492B31212500A4A49598AA49C9C20AA88280022025D749
6C544AE572B994CBE5DE9F9B9B9B8D55EFDF13B58B0EA01648C90D31D59292A0
84943217535109927ACFD56290E2F281F58294DCA9CA65090D0052D2464C741E
04701FA4D460556E35DB479DD9D9D9166202F55C2FD22E8B945C169369FBC928
07697070B09F984023D70B5272594CA6ED233D10BFF58D474CA09EEB053C2A31
C56AF4578AC2CF18A5D3E9277C034223D70B6C0C83100000620200404C001034
1284607DD8BB0894CB6502028098FC259FCF8FAB5987EDA562141AFD011093FE
D03D000031E9035D03009A0B8DDF008098000010130020260000C40400A183BB
72EBA3DAF8DE9D84050031F94DD6B63C433800A8CAF98A73B861861F06404C00
8098000010130000620200C4040080980000310100202600404C000088090010
130000620200404C008098000010130020260000C404009182A175D749269359
B496CBE5320101404CFE92CFE7C7D5ACC3F652B1AFAF8FC0002026DF29120200
C4A40DAA7474802800340F1ABF0100310100202600404C0000880900420777E5
D6C77495D73A090B0062F29BAC6D798670005095F395743A9DA9B50E00880900
10130000620200C4040080980000101300202600002DC4241D35A7CD692F6105
804685E2067F8CBDD8331A00C0DF12936118EFC83C9D4E2F5CBF7EFD7F841500
7C17536B6B6B4EE66FBFFDF693F6F6F612610500BFC5B4371E8F57AA84030303
F7D4EC16610500BFC5F4BBF9F9F9D7E477D7464646AEF6F5F551620200FFC4A4
2494482693BF96E5EEEEEE476AF96B420A008DD2E85DB9E1A5A5A5D765E1E0C1
837F33AB7117D4D4EFD88F41D500A0392526C330F659CB9F7DF6595295A07E70
48296BCEE9DB0400DE8B49AA718AF7ACF52B57AE74CBFCA38F3EBA59281426F7
EFDFFFC826A7EF09350034A32AB7528D9386EFA74F9F6EBE71E3C675B5BAC9BE
93F46DFAF2CB2FB70E0C0C106D00F0564C528D2B97CB1529C9BA92D25573D359
559ABA994AA5FE232B66DFA607841A003C1593124F4F32997C4F95982AEB1313
135F98AF1F3077E9B1F67DE38D378A6AF6905003C0BA0B3E75FEDD5EA9C64969
E9D0A143B71D52AA6C5F5858C8C8F65DBB765DA36F1300785E628AC7E363A5D2
73D78C8E8E3E7448E985EDFDFDFDB7431ABB69978FD7C9F9385F50CFA71C50F3
7CE974DA5B3149352E954A6D5625A2D8EEDDBBE51194B3CE63B6B4B454B67775
754935EE66D88C3437379752B3948B879C59E77E59CE17BCF371BD5462E07955
6EA59A36343424A525A77886657BE5BFCC661FA9ED416FF89EF6FA04EBF99D3A
377FCB8EF335FF7C5C2F1B63436292BE4B524D93657904A5B7B7F762956A5E65
081411979AFE1E062999DF7800E002D69D7C37AB72DBA59AD6D6D6B6683E82F2
5235ADA7A7E7CD62B15839B1DAE7D2E9D3A7835E52CA6E24A0F520DD2EDCFA40
399F7EE773FBBA094A3C6767675B56DB279FCF8FBB26A642A1206D4AD25FA943
4D936A7AA99A76FEFCF96FD4EC976A2A56DB1E74294D4C4C4C7A70BEA22A8DD6
DCC1FC203B385F30CFE7F275A37D3C070707FB579392D5BDC8CD12D336EB1F8D
3D7F5877D5376256FD6E864C4A5FF8FCBF15395FF0CEA74A1C251FDE9B6FF1CC
E572EFAB59690D291DA875A04DCBCBCB2FBCA00EFAC4DEA6228F94281BBEBADA
01D63269D8A4E4EC1A01E044E5CC4B39A4D65F0DE37B55B528A70FD6F3C5BE66
0EF1F34D4809C015DC921262424A00DA490931212500EDA484989ED3299DC3A4
1D002901F82F25C414AB34DE5D905B9D8661C4911280BBB58D7AA484986CF2B1
02899400FC9512625A454E4809C03F2921A62A72424A00FE4A0931AD222700F0
4F4A880900B4935254C434CD3505101C2945414CD3C8092058520ABB989C0145
4E0001905298C5E40C28720270594A5EDE2C4A4421A0E6E32699B00E3D011026
2985B1C45435A0F2B8893C76228F9F70CD01E82DA5B089895102004292430601
0500DD72282C6262E81280107DB187424C0C5D02E09E942CFCCCA1508889A14B
00DC2B29C92439343636D6AF72487E86692F6272494E4809A0EEEADBE4E79F7F
BEEDD6AD5BD6B6EF11930B72424A00754B49BED88B274E9C784BD677EEDC294D
25AF212697E4040075494972E8936432B9599673B9DCBFD4EC216202003FA524
5FEC7B9796965E976D23232357D56B0F1053ED800280B7528AC5E3F131997777
773F5225A7AFFDF8678D0005143901782C25454F4B4B4BA51A373030704FCD6E
F9F10F270214D01973BD93EB0CC01329097B17161632B2303A3A7A456DFBA1CA
313DCF41234001CD527202F0544A2BD53873DB27358EEB69A1C6084A40E57113
79EC841213803752B257E3CC7D676EDFBEFD6DA150989449BA0E98C79369386A
6262E81280E64B69A51A27FB9E3A75EA8ECAB51F5F79E595656BE3E1C387BFB3
95ACDEF1F20D2442125000683087A41A572A952A77E37A7A7AFE69BEFC81DABF
240B535353C7D4EC3795A2554FCF9B77EFDE8D84989012807F3954A9C6B5B5B5
2D9A77E38E3AFB2F9D3C7972E50EDD8E1D3B16BC14931182800240E339E4BC1B
F752A7CAF1F1F19DD671C7C6C60A5EBE195DC4C4784A003E7EB15B77E376EFDE
2DA5A56F56A95D1D92E3EED9B3E7A7D6D6D61F432F26C65302F0B5B6B172376E
6868E8A1DAFF661529DDB7F63972E48854E93CED78A98598184F09C0D7269095
6ADCF1E3C79D2309C8584CF7654189A9CD3CEE57568378D8AB728CA704E08F94
5EE854393333F396796C6BFA83BC2E7D98A456631EF7A2D76F4EABEE021248A9
D6212580E648491C60DD8D939567CF9EA5E6E7E71F591B93C964D7D4D4D4D7CE
0244A4C4444909A0A952127EBE71E3C65535EF30D78B8EEDFF55D356357DA78E
FB69B3DE6482CF1920B252921B4FF1558464B1D58FC242A28901E51937008DA4
64FE8D34626B574B319A1850460500D0484A3A633439A0C8090029F92A26C653
02404A7591685640CDC74D32737373AF72BD0120A5669798184F291817BD733A
4A589052584B4C8C12108C0B5E7E276C9BED75F9BC3E34973F254C48294C2526
02AA2F3DB6CF27B67FFFFE76C770A9B19442CDFE4CA89052D8C4C4D025FA4AE9
2BB9D8E5F391319C3FFEF8E3CAB01677EEDCF9C5FDFBF72B0F6F8E8C8CFCA444
B58F7021A55055E5CCB6A3F1C1C1C1DF2225ADB0A4B470F9F2E5BF9A63384F99
0F62CA679692CF4B86BB50CB7F215C4829542526862ED192A3F1783C21523A72
E48835B0FC07D6D3E16ADB80B5636F6FEF45AF87B200A4E447558EA14BF4E3C3
52A9B44DEE880E0F0FDF8DD90696972A9ED9AE648D5A78937021A5508AC91E48
A4E43B2BE2E9EAEA920734CF3A4A44DBE7E7E72B838299A3163E20644829B462
424ADAB0DD1A95309BCD3E720E97BA65CB96DFAFECB87D3B6D4B4829FC6202FF
79F7DD7733D6F2A54B97DE7226C6E2E2E2AFAC95C78F1F4F1231A4144831A960
F18C5B803873E6CC3DEB822F954A3FC75EECE51D5B5A5A7ADD4A8A7DFBF6B511
31A41438315952424EC1A1BDBDBDA44A4ADFCA852F83C8DBB79D3B77EEBB63C7
8E5DB792E2DAB56BFF2062484927D6ECC7343737270DA829737546E454281418
F44D7F6E2512897FAB8B5EAA692F8D4ED8DBDBDB3A3A3A6A6D93C75368FCF608
470E212537AB7276DB5372D21FF30EDC07B1EA43A6CA03BB7FB2B67147AEB920
25174A4C4EE4B1867C3ECFD025C191D36A17BDC888BE4B48291C621272B9DC13
553C9D257C0048490B3199F5E598B3CE0C002B3982941A847E4C009494822126
2B90008094FC60D3F2F2B2F3B50B327409A1017087304BA95028344F4CE6BC83
4B0AA061ACEE1A94941A14935D4E00D03848C925310100F80677E50000310100
202600081CFF176000085AC3E9D0FFBD3D0000000049454E44AE426082
}
Proportional = True
end
object Label3: TLabel
Left = 16
Height = 15
Top = 48
Width = 72
Caption = 'Ширина, мм:'
ParentColor = False
end
object Label4: TLabel
Left = 16
Height = 15
Top = 80
Width = 67
Caption = 'Высота, мм:'
ParentColor = False
end
object EditB: TEdit
Left = 200
Height = 23
Top = 48
Width = 120
TabOrder = 3
Text = '-b-'
end
object EditC: TEdit
Left = 200
Height = 23
Top = 80
Width = 120
TabOrder = 4
Text = '-c-'
end
end