-
Notifications
You must be signed in to change notification settings - Fork 0
/
Mod_Profesor.fmx
executable file
·388 lines (388 loc) · 15.7 KB
/
Mod_Profesor.fmx
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
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
object ModProfesor: TModProfesor
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 553
ClientWidth = 981
Fill.Color = xFFBFC9AA
Fill.Kind = Solid
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
FullScreen = True
OnActivate = FormActivate
DesignerMasterStyle = 0
object Top_Bar: TRectangle
Align = Scale
Fill.Color = xFF8EBA20
Size.Width = 1003.519348144531000000
Size.Height = 67.405448913574220000
Size.PlatformDefault = False
Stroke.Color = claNull
end
object Lectii_List: TListBox
Align = Scale
Position.X = 43.000000000000000000
Position.Y = 121.054702758789100000
Size.Width = 364.000000000000000000
Size.Height = 309.515075683593800000
Size.PlatformDefault = False
TabOrder = 1
OnClick = Lectii_ListClick
DisableFocusEffect = True
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
end
object Exit: TImage
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
023A494441546843ED9AEB4DC43010840F2AA0143A8012E8003A814EA0044A80
0AA003E8003A80FDA4AC6419DB377E1E3F32D2A7538EF366278E270F71D8B56B
575167DBE7285D1857C6E506DBA1BE8DF78DD76DFBDF88666F8D37E3A712C630
3636BC54ECFCDEF832524DD6400D6A2D3774638C3010F361507BBA38628F46AA
8991B08F69B343E19675D00AFB1A6E66B50967A899539970869959B1268E410F
5D224152854F41739A319D6AC472854E7DAFA08E259A9B4EB10723553086DB0D
76F0147CA7C218C65223F5F7187AAA923A1B6EC2556386DFBA5433F414EEEFA8
EE8C54A1905C51C54C68C2A51E3C7A93A5C66D2E4D4A665226909A8EF4268923
932A90A3C64CAF09473ABD5A22573133CA044851ACA6554CC9CC481320A5D7B3
911AAC90339352AB09A0C7A37A3152835514333D26801E8FAAD70894CCF49A80
3F46CEB7CFD12ABDD418FDC223ABDE19C92DEC50619AB5209D5A3D8B5D31E1EA
31232DF6D6F82D456C6ECDB49A91E2B7E5825832E1BF196946BA20D6DEA22826
9C5166A45B14A43E1FD498707ACDD09B2CE5361E78BF1BAB64C24999A156EAB7
3155B7F14C9DF208CAF343684631E18466A8A13C8BD0937C5AB9D4F472333526
1CC6A826404AAB58EAACACE2D3A89E0D574B14CF428ADC925A727E34B974AC12
D3A9C6F10CE237355D3A9599A1265CABCD4C31E1A2F08A35C33EA69908458210
87A9267AA066773AD58A23C6056AC4B5861AD45A320B39B173EE7F5AD60F6318
DB6D60C63F0C5C1BDC7640DC20479EE681C755B677EDDA355D87C32F219B6E37
29A138E00000000049454E44AE426082}
FileName = 'C:\Users\Panaite\Downloads\Close-50.png'
end>
Align = Scale
Position.X = 912.000000000000000000
Position.Y = 488.000000000000000000
Size.Width = 58.000000000000000000
Size.Height = 54.000000000000000000
Size.PlatformDefault = False
WrapMode = Stretch
OnClick = ExitClick
end
object PreviewBox: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
Align = Scale
Position.X = 574.000000000000000000
Position.Y = 132.000000000000000000
Size.Width = 351.000000000000000000
Size.Height = 299.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
CanFocus = False
ReadOnly = True
ShowScrollBars = False
TextSettings.Font.Family = 'Calibri'
TextSettings.Font.Size = 30.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.WordWrap = True
StyledSettings = [FontColor]
end
object Preview: TLabel
Align = Scale
StyledSettings = [FontColor]
Position.X = 574.243713378906300000
Position.Y = 110.049720764160200000
Size.Width = 168.895446777343800000
Size.Height = 23.385643005371090000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Calibri'
TextSettings.Font.Size = 22.000000000000000000
TextSettings.Font.Style = [fsBold]
Text = 'Preview'
end
object Prev_Back: TImage
MultiResBitmap.Height = 50
MultiResBitmap.Width = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
0099494441546843EDD9D10983301485E1D8093A8AA37683BA51BB896E506F24
174A40F0453907FF0F0EC1C79FF8960240D6B39DD66AC427F6DEBE4C65C4AFCD
32A68FC8BD6236F62296D818B340840A225410A182081544A8204205112A8838
DBA39D470DEDFC5763ECD45BF9C6FA5B996336BF5622461531AA8851458C2A62
5411A38A1855B788B17A7A4B7DCC14B39531D611A9C600B844292B6A63DB4D59
79F0730000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Previous-50.png'
end>
Align = Scale
Position.X = 574.243713378906300000
Position.Y = 429.193908691406300000
Size.Width = 57.706176757812500000
Size.Height = 45.395629882812500000
Size.PlatformDefault = False
OnClick = Prev_BackClick
OnMouseEnter = Prev_BackMouseEnter
OnMouseLeave = Prev_BackMouseLeave
end
object Prev_Next: TImage
MultiResBitmap.Height = 50
MultiResBitmap.Width = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
0099494441546843EDD9D10983301485E1D8093A8AA37683BA51BB896E506F24
174A40F0453907FF0F0EC1C79FF8960240D6B39DD66AC427F6DEBE4C65C4AFCD
32A68FC8BD6236F62296D818B340840A225410A182081544A8204205112A8838
DBA39D470DEDFC5763ECD45BF9C6FA5B996336BF5622461531AA8851458C2A62
5411A38A1855B788B17A7A4B7DCC14B39531D611A9C600B844292B6A63DB4D59
79F0730000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Previous-50.png'
end>
Align = Scale
Position.X = 866.995300292968800000
Position.Y = 429.193908691406300000
RotationAngle = 180.000000000000000000
Size.Width = 57.705871582031250000
Size.Height = 45.395629882812500000
Size.PlatformDefault = False
OnClick = Prev_NextClick
OnMouseEnter = Prev_NextMouseEnter
OnMouseLeave = Prev_NextMouseLeave
end
object Low_Bar: TRectangle
Align = Scale
Fill.Color = xFF8EBA20
Position.X = 43.631294250488280000
Position.Y = 427.818389892578100000
Size.Width = 363.124694824218800000
Size.Height = 46.771270751953130000
Size.PlatformDefault = False
end
object Modificare_Test: TImage
MultiResBitmap.Height = 50
MultiResBitmap.Width = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
01E6494441546843ED998F35043110879706E8800EE80095A00325E880122841
05A8E0E8800A5001F3259BF7E6B2F3F69F753B7BF2BDF77B9B757B97F95D32C9
E4548542A15028FC829DFA6A71283A179D86BBF97912DD8BDEC25D4FAE44DF4E
456CBD6004AC0FF0A4C62CD9ADAF9A8BFAEA99468C961172C33B8D182D238BA4
18F186B58FB05E9FC466E055F4199BB3B12F3A8ACDC0B3A8737FC348EB523703
F996408C6B941CF1469F1C3913E9A1640D3F88CDC097E8253603F97C1EC3BB48
D7544CADC7D80C4C9223D722FD7A3E5FF3F93C46F4A12939B238B6C68845578E
CC41C991C5B13546C66C889CCEF851224151A9CFD1C7A29BD8EC45FE7E0B72C4
F58648454025D085EB64672408709223C25C46263501638B467DF82798BC6824
4FDAE0796DE256940A4DFE7E595F13F4C77BF6C29DE38355DEE74A94E70E5F0E
E678DD558EB441D0AC52DA0C23C297CAB1A18117237A1A25DACC349EEF932377
A2413F1CF7E04194E715FD5A07329E234F75F03C6F995F83C0F57CFD0B7D88F2
0581E008DA7ADECA994E183AEBC3A6D646CC6CEADF0A9399B17224C1DA4D5D45
4783BF890130D7E927CF812139E39A5123E3957F6186A995E7977B7233C904CA
374DF72433DA04AB1EC6566DAB964730932A6F3D1266FDB50474B5BCC85C49A4
69460D2826AAEA073FE06286B84B316A0000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Edit Property-50.png'
end>
Align = Scale
Position.X = 326.530700683593800000
Position.Y = 429.193908691406300000
Size.Width = 57.705871582031250000
Size.Height = 45.395629882812500000
Size.PlatformDefault = False
OnClick = Modificare_TestClick
OnMouseEnter = Modificare_TestMouseEnter
OnMouseLeave = Modificare_TestMouseLeave
end
object Stergere_Lectie: TImage
MultiResBitmap.Height = 50
MultiResBitmap.Width = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
01C0494441546843ED99D14DC4300C860B1330026CC00630021B009BC006F08E
046C001BF0C0000CC0031BC006E0BFAD252BB2DBE4D25C8CE44FFA95A6CDB5F9
2FCEF5640F41102C7230B74B5C902E494763AF3D5FA47BD2C7D8DB883BD26F27
5D9136E19CA43D605FFA261D93B2389C5B0D84544F10CAD97358DA236FA4B3E9
70E499F4341D3603E184FDC8DC926EA6C3DD8111B9D4D537CC00CFD8E9994BA1
F5AF0823DE0823DE0823DE0823DE0823DE0823DE0823DE0823DE0823DE0823DE
F066244D9366A74DBD1979215D4F87638B7E16BD8D9C92D21C2F928027732BC1
388C2FA675820E93427E17F75E4B58E33AC6617CB1999646A4099665864DB054
33BD420B934BEB2D8FA4D40CFA382FC1E72CD32AAD430B7B40DE9FC59344AB5D
2F4EA4EF23896D997950CE41A68992B202FA500DAFA4F4DD80C9C9528205CA1A
4521C5B428BB59BF3AD6CAB08AC349D2AAF406335A61F59DA48DC7F96AB02FB4
9BD7480B0F6B63B356432AA73C8D95412DAFF845A4801049C304934C7F6235F0
97A52AC45A62ADC4A7720E5A5D991E5826F85B47AB5D776566CD04E3DE0CF6DB
0F494ECE8AFFD40C3EB7C57EDD0C69C632C1B0197726184C0A2FDE1C30CE3031
0C7F86FD2401F6614C6B0000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Delete File-50.png'
end>
Align = Scale
Position.X = 247.712982177734400000
Position.Y = 429.193908691406300000
Size.Width = 57.705780029296880000
Size.Height = 45.395629882812500000
Size.PlatformDefault = False
OnClick = Stergere_LectieClick
OnMouseEnter = Stergere_LectieMouseEnter
OnMouseLeave = Stergere_LectieMouseLeave
end
object Adaugare_Lectie: TImage
MultiResBitmap.Height = 50
MultiResBitmap.Width = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
013A494441546843ED998B8DC23010440315D001944007400774002550027440
07777440075002254025B0938FE4CB05CB18874CD03C6964AF84E28CB28BA5DD
4C08E16550AE3E96A695699447ED73351D4CE73C4AC48FE9DE9136A624E04B34
1DF0494D4C410CCBB50918E99AE077F0D5087274566C7390B7BFC5B635D626D4
63C5CEB42DB6F1C088FB99DF7E60003823EA4C5F6AF50A19614346D890113664
840D19614346D890113664840D196183CD089A1B0B47499A1D5D341FA2516AB1
C166040DBA9323C441B01941AF77EE2849EFB757C8081B5F63E495B102622806
8C075CF06F342EB67FA88ABCE2D9993753F0ADBF37B937FB3BAA83976BFA5DA8
FE99F3A5D6B15C7B81CF085CD753829690F1347216B3BC691EC5E1E63D40DA36
3D0F17A05B3BA8058CABEB5C4CC9A6BE6DA0D19B8CB021235C64D90392BA8E82
A884A05C0000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Add File-50.png'
end>
Align = Scale
Position.X = 67.558097839355470000
Position.Y = 429.193908691406300000
Size.Width = 57.705863952636720000
Size.Height = 45.395629882812500000
Size.PlatformDefault = False
OnClick = Adaugare_LectieClick
OnMouseEnter = Adaugare_LectieMouseEnter
OnMouseLeave = Adaugare_LectieMouseLeave
end
object Modificare_Lectie: TImage
MultiResBitmap.Height = 50
MultiResBitmap.Width = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
017F494441546843ED99814DC33010450313300223B00130096C002330021B94
4E529800D88011D800EE2539C9500B1BE5E273AB7BD297934A8DFCEA73EC2643
100441102CE0646E739C4B6E2457E3993FCF92ADE4633CABE45EF2D569E85B15
8C40EE023D65AF4A4EE736E5766E7B66AF8FB939422D5E4E8723FFAECB15D0F9
AABC488A7317913F87D181DFE54E1F7F902BAD832444167226B99B0E6DF01041
622779946CF8C0020F1116B48BE970BC8D9AC8B4146124E83423C12D5D4166F1
9DB1958896139DA6655454E65DF2361DDA62BD8E20F12A49AFC9399F3FCC6D89
E23A92C3522427A17992D4E2BA206A39E9C44EA19CAA77B135AC255292E017FE
1CCF8C5843A4B904588BB84880A5889B045889B84A808588BB04588820E02A01
D6935D692A016B883497000B11367CD7499A4B8085089D66EFA3692E016BCD91
E61C8D48CD033AB6DB3D3CA04B9F2E563DA0A3E3E9DEBFC754FD97C134F7E59E
521C0DE5E05E2B945EF450976C3FD84F79C22D9DF5AA87F91A0441101C1DC3F0
0D0FD627B17BF711A50000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Edit Image-50.png'
end>
Align = Scale
Position.X = 157.635543823242200000
Position.Y = 429.193908691406300000
Size.Width = 57.705886840820310000
Size.Height = 45.395629882812500000
Size.PlatformDefault = False
OnClick = Modificare_LectieClick
OnMouseEnter = Modificare_LectieMouseEnter
OnMouseLeave = Modificare_LectieMouseLeave
end
object Title: TLabel
Align = Scale
StyledSettings = [FontColor]
Position.X = 11.000000000000000000
Position.Y = 3.000000000000000000
Size.Width = 430.000000000000000000
Size.Height = 70.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Calibri'
TextSettings.Font.Size = 72.000000000000000000
TextSettings.Font.Style = [fsBold]
Text = 'Mod Profesor'
end
object In: TTimer
Enabled = False
Interval = 400
OnTimer = InTimer
Left = 448
Top = 160
end
object OutX: TTimer
Enabled = False
Interval = 400
OnTimer = OutXTimer
Left = 448
Top = 208
end
object OutAdd: TTimer
Enabled = False
Interval = 400
OnTimer = OutAddTimer
Left = 448
Top = 256
end
object tag: TLabel
Align = Scale
Position.X = 8.000000000000000000
Position.Y = 528.000000000000000000
Size.Width = 169.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Dorinel Panaite, Teodor Oanca'
end
object Finalizare_BG: TImage
MultiResBitmap.Height = 50
MultiResBitmap = <
item
Width = 50
Height = 50
PNG = {
89504E470D0A1A0A0000000D49484452000000320000003208060000001E3F88
B1000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
011C494441546843ED98E10D82400C46D1091CC10D740437316EE0088EE006C6
4D184137700437D036C504638B701C77DF91BEE40BFD41084DEE41DACA719C4E
16CDB5CD99B29112963BE528A54D4D798187DFF18B65732D9ED934A239B2A5AC
A484E549B949E93893A239329635652FA5C995F29012971D45FBF6B7C3F744C5
FF2368782368782368782368782368782368782368CCA69190C18A07A78B942A
BCB8E0054617BC38E00582C5819264F03A51B4812946F8D949996223F9B3414C
011F213E1EDA0B85849F956D9FD6673EEF9BE873FC5062F892DC0B8B31BE64F1
C222D497AC5E5884F892DD0B8B21BEC07861D1C717282F2CFEF902E98545972F
B05E5868BEC07B61D1F6A5082F2C3EBE14E585053B519C178E332FAAEA0D6970
F74F206A9E5F0000000049454E44AE426082}
FileName = 'C:\Users\Vali\Downloads\Download-50.png'
end>
Align = Scale
Position.X = 920.000000000000000000
Position.Y = 8.000000000000000000
RotationAngle = -90.000000000000000000
Size.Width = 50.000000000000000000
Size.Height = 58.000000000000000000
Size.PlatformDefault = False
OnClick = Finalizare_BGClick
end
end