Check-in [fc3eeca3d7]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added popup menu. Added list of projects (in VCL form).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fc3eeca3d79bbd0d4c2ab0f0e72340c759e3c2dc
User & Date: Martijn 2013-07-25 20:22:49
Context
2013-07-27
11:09
Added an FMX form for the list of projects. Added all .vlb files (Visual LiveBinding settings). check-in: 8472f72a3f user: Martijn tags: trunk
2013-07-25
20:22
Added popup menu. Added list of projects (in VCL form). check-in: fc3eeca3d7 user: Martijn tags: trunk
13:30
Added project "ProjectIt", which provides a UI to easily keep track of what the user is currently working on (first version of rewrite using the FireMonkey framework). check-in: b0cbac6608 user: MCO tags: trunk
Changes

Changes to ProjectIt/src/F_ActiveProject.fmx.

21
22
23
24
25
26
27

28
29
30
31
32
33
34
..
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
...
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
...
436
437
438
439
440
441
442
443
































































































































































444
445
446
447
448
449
450
451
452





453





















    Width = 325.000000000000000000
    object btnProject: TCornerButton
      DisableFocusEffect = True
      Font.Size = 30.000000000000000000
      Font.Style = [fsBold]
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000

      Position.X = 8.000000000000000000
      Position.Y = 8.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 0
      Text = 'Pauze'
      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
................................................................................
        Width = 50.000000000000000000
        object anmProjectIcon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            02EE494441545847E5973F68144114C6BF9DDD93BB4B0CD14282859DA0B5F682
            ADBD8D588B458A808DAD206823D808A6B1504867A7ADB5959501054B0917EE5F
            2EDEBFDCFEF17BB37361676E63F12CF3C1BB99B97BBF8F376F67371B9C7B456E
            2C75EB6D03B3F425F2FC21E2780D455EC9E0A428C6C8D33D44579F60FFFE89FB
            A194924DDC586AB67871E3E6959D77CFEE629115989FE448F30269213C102749
            EBCDDEB7ED4F9FBF67CCDE29212725EB77E0FAEB83DD57F7B6DACD0447938535
            5A7023198D72A6C67184CDCD361E3DFED8C1CFED2D479552B2C68DA5A2A8D59F
            E5E88CE6E88F53F4FE2C23B3636794E2F760C1C462A3042A52B27E01287034CE
            D077504F8C4E83DF31BAFC1E49ECF2ABD2B141070C06F314FD098D6CE476EC71
            ECD931C321A3B600251B14000C67856DE1604A83A933E0DC06E7DD312F6C1C34
            4EA464FD150FCA8826035ECBD284868CD244C6028753E625FED9B552B2413906
            C7BC4307B2936A3883DE0CE8722792B722251B7420C6110FEA90C9C37969D693
            E0BC4BF33EA33BE70E98B72225EB17C003722C264CB6B18830CD0DD288904950
            98183903A6E61228D9A003062382231A4D080B84840F4B09A97C39A7E18A946C
            70410CC699C11C04AA5075DE6830AFA6034A362820C24C0C96405DC86D547B08
            756CE0E4AA3F6B07366417FC6E453AD62F40EE510F08420C1B1CEB3AA064FD15
            1FA72B50756D83BB081B2752B2C1AA0E725135AC3D843AD62F808F537B5243A8
            3AB727B9A6034A365871B934392BC4B051538092F5571177214667EDC086B4D0
            6FA395920DCAE1F25FBBB0862E2F9492F5573CC991DC2A1E54994B0851770895
            6C508E418B2F95A7A0C4F2E0C8534CDA2C927928251BAC0C2EB6412382310D04
            1609CC57EB5389792825EB1710C5934B4DE0723BC2C605E686AD966CBE537032
            924F4F4AD62FA01D7FE87CFD8182060DEEA6B9CE5863528BFE34B78768FF97EC
            F0BDCDAF4AC9FA65DEF992E09A79CE7F691E105D2FCBE387911EDAD4315BBA87
            66F329766FF32F7F45FFC39E63017F015D8C30C2DF904E900000000049454E44
            AE426082}
          StopValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            022A494441545847E597498A1B411045530378586A2B04DAEB085A7A3880C157
            B0CFA143182FEC13E80836ED5B4868A985B6020D609766E70FF28BC8CA2883C2
            CBFE10444666BCAFC8AA6E351D9EBD5A298BA6D36967369B7D8ECBF7315ECA66
            AEEA76BB3DB55AADAF93C9E49CF6445EB69BB2683E9F7FEAF57A1FC7E371B85C
            2E2102E17ABD4A8622FC62B1587C582E97D7587E91CD242FDB4E5914C1B7A3D1
            28EC76BBB0D96CC276BB953532D7C3E110AD6F0450F2B2D90098F2783C06C4F9
            7C0E87C341E2743A49605D55155A5F0BA0E465B3012034C3A40E6BC3F861A93B
            9787AD3F01999E300286BA86913580972D9E004D906980350375BB5D60220F6B
            0E00B80EEAB09E00E461CD0134C89AC6C84DF2B0D900980EBFC3041130D2B742
            6DC9CB6603E0FDE0CB03CD3043A0E619840FB27E06BC6CE144101902D0E97404
            A601B2250F9B0D80430BA66864C9CB660300C477B76EE61A86D60D282F5BBC82
            3A0C9030EB2679D8E215F0D1A1996B04CF75AD853D0F6B5E87308535F6781BEB
            26D4A36CE14418B90EB36E9287FDE72BD030CF75D6C29E87359F008D3484A069
            9370F6289B0D80262D0DEBDB59F2B2C50E9B91354CD1D892872D06400360DDCC
            35EB26E1FC51361B004D7A6AD6108C115CD7E5650BA76EB72B4123C8FA404B1E
            363B8D60451344131CF77FA7E55D5E36EB8A873FD7EBF5FDF1D1083563BFDF23
            FF48C85D5E36FBCF6830187C5FAD56B7D8F82EC2AFD2B60806517FE25FBC5FFD
            7EFF9B6C2AFD0FFB9C15C25F669658EE3967D58C0000000049454E44AE426082}
        end
      end
      object efctGlow: TInnerGlowEffect
        Softness = 0.400000005960464500
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
    object btnProject2: TCornerButton
      DisableFocusEffect = True
      Font.Size = 30.000000000000000000
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000
      Opacity = 0.750000000000000000

      Position.X = 8.000000000000000000
      Position.Y = 80.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 1
      Text = 'Project'
      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
................................................................................
        Position.X = 8.000000000000000000
        Position.Y = 7.000000000000000000
        Width = 50.000000000000000000
        object anmProject2Icon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            0685494441545847D5565B6C145518FE7677DA6EB7DDDE2F945E81B614D0AE04
            686981700B11096A498C4A5292C6607C90073546E283313E1B1330C154898404
            25520452F44191962E41B104B0E1525AA805B657A8740BBDECCEECCE8CDF99DD
            2DDBB205561F8C5F7B7276CECC39DF77FEDB39F8AF610AF6FF0AB5B5B509A3A3
            A31B636363B7F8FDFE6AB3D9FCFE9123478E065F3F16FF58C0B66DDBD2D96DF6
            F97C5BBC5EEF0640B7B1A1B2B21AA9A9294EBBDDB64B92E2DC8D8D8DC3494949
            EFF1DB2BF5F5F59F1993C3109580BABABA7C59965F16A48AA2ACE2508C892B14
            1414A0AA6A15CACBAB91939307B7BB8F6D10E3E31E7DEFDE7A3D3E3EDECC79FD
            070E1CC80DACF4104F14B075EBD6324EDEC29F35245D4A42B318CFCACAC48A15
            ABB164C92A9216C1EF9739AAC16A956036C7C0E5FA0B4D4DC770EDDA05BE5341
            2BDD3C78F0E05C31371C9105BCED7A76E9F0BEDAC2D1B32FCABA54A6F33BB153
            BBDD8E952B57A3A2621572734BA1AA2A74DD074D5361B3C51AC45D5D83B878F1
            34DADA9CB4C03818179C6C16023A2860419061129105D49D1F9C953192BDB4FF
            1B64ABC386799755AD437ED1224C7855883F45F1915CA7BF6DEC2DE8E8E8C7F5
            EBE70DE2A1A13B888BB3529025B820E0F178DA0E1D3AB438F83889C8026ACFB8
            B176458AF8991C07AC61B8954BE328CD30A3501B456992092999097830AEE152
            FB007A7AAFE1EAD5169ABD079214038B450A988C08F51470B6A1A1A1DA780843
            6401AF3B070AD63B66ED2E1FC377B7349C188C857B220531C91624C50285893A
            AAEC32E2EFDD457C473DDA3BFF0C125B0CC2501310BDB0145DD072F8F0E1B5C6
            60188C807A041ABC8AACA0A6340BFB37E4A3E7D564DCAC19C21725B7B1CE7C03
            AE9E7EECF983793528A3F3CA25C4C408FF9B0DA2999AA669DEE0EA5310598049
            9327140D13B20F6E4E1B51AD884BCA43CDA279D8BF79011AAB3D80AA2156624A
            70D79108C39B08D6E804689A2C2B7E4E04EED1CC02E483C70F43904FA37935CD
            78D622104E6F02D10AF0FA7C1A34D56FE4707BFB39E6732B83EC3A7C248D118B
            5290AA53489084045348C39F03E9AA472100AA5753742864CBCCCC41595905E6
            CFAF4472720EC6C61E80314E62151E1F09F8758870BA08D142E0EF682CC08FFD
            010B0C0CF4308544B1011212EC48B427C16CE283E6A72BCCC6EE589A590F5259
            159784763BA5893136512A1F4164012A64AE0E9916484CCC422FF3BCA3A39585
            E61C2D30018BCE693ADF334EAC2C38CF391CAC8CB97455BB317DBA2504D83372
            1F45640126060C05886A176F8D435151394A4A2A31674E05D3CD1A281EC2028C
            81B48C2C0CBBDD2CBF17296ECC982E102E20FA18503559B84061E80F0CF6D00D
            B7B98858142C369C626289E519E06740BA6EDF6270BA8C2224104E1C6AC1F888
            C2053A2DC003466106CCCACEE7819288EEEE0B3C68CEF1981DE27B8916101A69
            0B93348528BC0F1F678BCA02FC58C34F3778A6DF71213F3D1D0B4B96A0A4B882
            2762264CAC7AC2058A411008565172CBCACA220661504414024CF41783F6C3CE
            623C734CC19AAF9BF1F98933E8EDBE8404CE4888B552242DE0D721D35559D9D9
            58BC78314646468CE911C8C5701402FC5C9DBB82998E97ACE8B23AD0E2CBC3FA
            D369A8F8F2677CFA8B93870F53902ECACFCD437171318FE136664B6F4472D168
            992804806928A24E2837C560A7BC1B39475FC107967D18B239F095BB027E732A
            B355474F7F3F4E3B9DE0AD69F2E40B35013126DC421151A4A1F0971040133B32
            64DCBAFC1B1273E6C17DFB325E48EF36FC2F9AC6F7A498BC784C2717FDFDFBF7
            E92AFFEF3C2D9DC6E034CC2040C480C83B712EAB4861954B4E664BCF429E7E47
            BC172219ABCC7116251188824C983A444E5211133A2DB087AE59E3743A030132
            0D9105584C2CC5DC2533A173C882A285CB60E7657376662ADC960C0E531CE117
            42C47F70D721725E5EC5CEC72449DA76F2E4C91D5D5D5D116B80C00C3160EFC6
            D8B8B8C6D0C21A768D6E42C65C07C6D21CF8BE3B8D8C1427FC4A17181A82C402
            BC7A89CB6807C9AB9A9A9ABE0D0ECF08A3AA46C4C653EFC0D3F72E6B7101D273
            80F4ECC0B81EB87E8B9D5BC664AC747D04ABC478E03303915AF4C33C98B61F3F
            7E7C3430E1F198598081060B365837C1A3BC05D5F33CD253249646F084322C80
            112F56F77F0C89E78CC72B2B56AB75677373F36E4E7C689227E00902C2B0F6C7
            42C8E3DB21DF7F0336EB6CCCA255A4042CEFFB0492CFDD27C5D95E6B6969F935
            F8F553E3E90584B0FA9484079D2FB15ABE09CDB2C866BEDBBA3CE5871DCDCDAD
            4C8FFF1D80BF01759E4AD36158EBC90000000049454E44AE426082}
          StopValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            04C3494441545847D597BB4BEC4714C7C75D1F2B6AC4F7FBC65482C158844412
            BC658490902E29D2A44A158B808A9242B13058AA4DC0C65E2E217F8045309682
            5CD0A8A888A2AE8F15DFAF5D75EFF99CFDCD322EBFEBFD6D52847C6198F99D79
            7CBF73CE99995DF35F23C7ABFF15A6A6A622FBFBFB9F86C3E1978F8F8F1FE6E4
            E4FCD6DFDFFF97D7FD2CFEB180F1F1F1F784ECB3FBFBFB970F0F0F1F4B3B82BD
            B1B1D1141616BE2E28287825422E565656CE2391C877D2DEECEEEE9ED6C90EB2
            1220A4557777779DC964B253483F12532EF6D2D252D3D4D464EAEBEB4D494989
            B9BABA3237373746C425E7E7E793B9B9B92169C77A7A7ABE65BC8B770A181B1B
            7B218B758642A14E59A4454C21ECC5C5C54ADAD0D0A002441066236130B25B73
            7171613636368C8446ED32372A02BED70F07BE022627273F383F3FFF4276FBB9
            ECF6852CA8E3C4AD4A4A8154FA8CB85E6BD9A5929F9E9E9ADDDD5DB3B3B30369
            5A502291D8EEEDEDFD41091CF80A989898F85D2696E14AD9B91212DBB2B23225
            B405E4E7E76B7D7272628E8E8E949C7910532C44C07A5F5FDF8FDE671AEACE4C
            883BF3D82131851877135348589C1D4BA299BCBC3C255D5B5B338B8B8B667575
            55C7D95D6788BDD3C533E02B4026C459A0B9B9D948069B582C66B6B7B735A694
            F5F575B3B9B9A96DC825D3CDD9D99986C18B968AA4D8B6AC99D08F0CF80A9045
            E224556D6DAD696D6D351D1D1DA6BDBD5D130E974386AB49B4C3C343DD31A1B2
            842E1C5BDCAB9FC057804C4AE036928882185C8E80B6B636D3D2C26148653CC4
            9E8B156F1321252B01EA011626A69E4D8520C892D83180DAB66DBF0BE90B2EC0
            86C0921E1C1C68E1886123CE2E096DFBED8AC8B00517805A26435E5454646A6A
            6AB49090723778A3521E70E1125A2116D2979D07A859F0F2F232ED762E220A80
            001B052188ABABABD36F0B778C94E0A7402626DC8571BD0D433C9EDA88EDE7E8
            715A7803B8136C1FC5857C07BF070471EB46082A2A2A4C555595A9ACAC7C72BB
            41C2E92051A3D128B79DD79302FDD60B82E0219009690F70D639F7DE220A3709
            E5CDD07E5758263C11D95D44D490700DE385E3E363BD116F6F6FD3679F7EC400
            EB316C561C70BE837B4016D25340CCB9FB11515D5DAD21202700FD2E21A2E8C7
            66FB5D8837830BC0032C8480858505333737A7F73D8F113BE611B2C48489A34A
            22E21D9029C2ABB3CF01002121E0FCF3DACDCECE9AA5A525B533865793679A1F
            1EE48B9DE78AF0DAD979809AC91001C811C2EEAFAFAF35E9589804DCDADA524F
            585811C00A95B1C18F21F1B28BE05E42411E701FF00D31C58E21FE7E600C6191
            717FCB98D79EF9099ECD01C02D48E25138F3D623EE2E01DFAE8DB6842D29E3FF
            D8DBDBFB797878F8D2EB7A027FE9122FBB20970C2700F7B37B60896C6DC55A10
            0E21E719FD757070705C7E63FADE01C05780B82B2A8B246D5C71637979B97A80
            30586412036E437E804AAEFC24BB9EF1CC6F85EFF535333313EDEAEA922BE0EA
            7DB9FB8B21E20D20F95CD8181316DA8816F39F72327E191818483D0CEF80EFAF
            628BA1A1A190B8BD43F2E01B21F844761526170807203FAC4764D709391993B2
            EB576A08886705B8181919A991987F25BBFC52045422849D23406C31B109F7F0
            A2373C30020BB0989E9E0E2F2F2FF387E56BF96C967A59126E7C7474F42435E2
            7F0563DE00A0DDBB352FB8790C0000000049454E44AE426082}
        end
      end
      object efctGlow2: TInnerGlowEffect
        Softness = 0.400000005960464500
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
    object btnProject3: TCornerButton
      DisableFocusEffect = True
      Font.Size = 30.000000000000000000
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000
      Opacity = 0.750000000000000000
      Position.X = 8.000000000000000000
      Position.Y = 152.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 2
      Text = 'Project'
      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
      YRadius = 15.000000000000000000
      OnClick = btnProjectClick
      OnMouseDown = ControlDragMouseDown
      object rndrctTime3: TRoundRect
        Fill.Kind = bkGradient
        Fill.Gradient.Points = <
          item
            Color = claBlue
            Offset = 0.000000000000000000
          end
          item
            Color = claLightblue
            Offset = 1.000000000000000000
          end>
        Fill.Gradient.Style = gsRadial
        Height = 25.000000000000000000
        Position.X = 232.000000000000000000
        Position.Y = -8.000000000000000000
        Stroke.Color = claLightgray
        Width = 81.000000000000000000
        OnMouseDown = ControlDragMouseDown
        object txtTime3: TText
          Align = alClient
          Color = claWhite
          Height = 25.000000000000000000
          HitTest = False
          Text = '00:00 '#183' 00:00'
          Width = 81.000000000000000000
        end
      end
      object imgIcon3: TImage
        Height = 50.000000000000000000
        HitTest = False
        Position.X = 8.000000000000000000
        Position.Y = 7.000000000000000000
        Width = 50.000000000000000000
        object anmProject3Icon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            068C494441545847D5565B6C145518FE7676B6DDEEB6DBFB8D5E28D04201EDDA
            140A2D106E2122412D895189341283F1411ED418890FC6F86C4CC00453251212
            14040402FAA098962E41B1049070292DD4022DBD60A55BE86577666767FCCEEC
            6E5DCA16587D307EED9FB37366CEF9BEF3FFFFF9CFC17F0D4BB8FD57D8B06183
            73787878754242C23A4DD36A25497AF7E0C18387C2AF1F8A7F2CA0BEBE3E93CD
................................................................................
            439818701A8A8057522B3FCAAA7F0FC23911EDA7606C6CECB958F85CF2DB00B1
            FDF8F4C14A7D41526858F2475555D598FC04C781B722A7003034349490A2EB12
            A2AF65B51F171717271163DF035F8088BD91F894ACFA850662E251013E464646
            1A24E75F8A902F84A81E210001123B1487847B7851837920B600C3CCCC4C7269
            69893F2C5FC96DABF44B527013A3A3A37F1F93FF2F38F717D264350CD60585CC
            0000000049454E44AE426082}
        end
      end
































































































































































      object efctGlow3: TInnerGlowEffect
        Softness = 0.400000005960464500
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
  end





end




























>







 







|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|



|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|



|












>







 







<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<







 








>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

|







>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
..
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
...
181
182
183
184
185
186
187
































































































































































188
189
190
191
192
193
194
...
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
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
    Width = 325.000000000000000000
    object btnProject: TCornerButton
      DisableFocusEffect = True
      Font.Size = 30.000000000000000000
      Font.Style = [fsBold]
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000
      PopupMenu = pumMenu
      Position.X = 8.000000000000000000
      Position.Y = 8.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 0
      Text = 'Pauze'
      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
................................................................................
        Width = 50.000000000000000000
        object anmProjectIcon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            02F5494441545847E5973B8853411486FFFB9224BB2EAB852C087682D6DA0BD6
            D636622D165B2CD8D80A82366225B88D85423A3B6DADADAC5C50B014C992C76E
            D6BC36F7E17FE6DE8499C9CD16C7727F38999970BE3F674EE6DE9BE0DC2BA8C6
            52B7DE2698A62F91670F11C61B28722B4326F90859DA4678F5090EEE9F96EF57
            52B27135969ACE5FDCB87965EFDDB3BB98670566A739D2BC405A0005238AE3E6
            9BF6B7DD4F9FBF67CCDE2BA14A4AD6EDC0F5D77FF65FDDDB6935621C8FE7C668
            CE8D6434CA991A4501B6B75B78F4F863073F77772AAA94920DABB1541034FBD3
            1C9DE10CFD518ADEDF456466EC0C53FC1ECC99586C95802525EB168002C7A30C
            FD0AEA89D132F81EA3CBF7114755BE2D1DEB7520C46096A23FA69189DC8C3D8E
            3D33663864B09F156049C97A050047D3C2B47030A1C1A432E0DC04E7DD11BFD8
            C86B9C48C97AAB00439A0CF85D9626346494263216389C302F76CFAE9192F50A
            0871C22B74203BB1A332E84D812E77221FB62225EB1610F112E2413D62F2D1AC
            34EB4970DEA5799FD19DD1A0EE102A59B78024C2899830D9C43CC0240F910684
            C21845182167D47640C97A1D08312438A4D198B0408879B39490D3BB98D37045
            4A76E50C8CB2103310B0217B9E24CCABE98092F50A083015830550177219F1C3
            56A4643D272EA5E2753B3021BBE0B8221DEB16C007860B78218609C7BA0E2859
            77C5DBE90A64AF4D70177EE3444AD65BF98015B661507708AD5C3FCE60DD02E4
            362927D587ECB939C9351D50B2DE8ACB85C9BA10C3A4A60025EBAEA43D62B46E
            0726A4856E1B8D94AC570E9767EDC2185679BE94ACBBE2490EE45271206B2E21
            44DD9D50C97A050468F247E51294581C1CB98B2D4EB0F74C3752B26E014CBED8
            028D08F2F1BA6C97C0FC69BD9498FB52B26E01413CBED4002EB7026C5D60AEDF
            6AC9E66F0A7EC2505E1D2959B7808DE843E7EB0F143448B89BC6266383494DFA
            D3DC1CA2835FB2C3F726DF969275CBBCF325C6B5F039FFD23C20BA5996C79750
            7A28A9C58887AD8D46E329F66FF3C96FE97FD8732CE01F182F30C4083C36EB00
            00000049454E44AE426082}
          StopValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            0217494441545847E5964D6EC23010851D1289B64BB608893D4760D99F0354EA
            15DA737088AA8BF6041CA1557B0B105B24962C40A03688D0D4CF64AAB1639364
            BAEC278D3C71DE9B4C3C0850FF9EA8580DE3F1389E4C260F3ABDD17166366DD2
            3CCFDFA3287A1A8D4659B167907A9362354CA7D3FB4EA773371C0ED5E17050DA
            6056467B369BDDCEE7F36F9D3F1EB78E48BDAD623568C3D5603050EBF55AAD56
            2BB36E361B932390F7FB7D482F8D8121F55A0DE8E369EF763BB5DFEF5596652A
            4D53856BE408E4D8D35C180343EAB51A005C8C1C059153604F3FAC50DB48BCEE
            091811050AF0B740A0900FA9D77B02748C6E018A388E0BB50DEE35F50647C04D
            28CAA36A044DBCDE06C8C80B5161AC2148DBC41B6C8002C5DCB70AC135883A5E
            AB01CC075F2010E24B8456BA47B45AA5BEC5DE522598A81080394912333B04AE
            439F0189D73B02C0CD9CD0C381C45B1A0180D015E31EDDF721F59687E940662A
            1C2AE4A38ED76A00221C1D8098CF8FE03947EAF59E806F7EF436948768EA6D3C
            027ACB3AD4F1961A20916BE6B8D784C47B7204AE1845AB68EAB51A0889B04F85
            4F697C54792B474066C27D338EC4EB1D01CC109F7A5888A65EEF0970330AD2CA
            731F12AFB7013A4A22F4401789D76A40FF54A6540411326BDD6791FE22F5BA0D
            BC2D974B9353219A2705FEDFEBF5D5881852AF755EBD5EEF65B158E4DBEDF65A
            173C2FB60D28A0F9D2BFF71FDD6EF7D96C32FEE2FDCF28F503FFBF4CF4440E05
            8E0000000049454E44AE426082}
        end
      end
      object efctGlow: TInnerGlowEffect
        Softness = 0.400000005960464400
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
    object btnProject2: TCornerButton
      DisableFocusEffect = True
      Font.Size = 30.000000000000000000
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000
      Opacity = 0.750000000000000000
      PopupMenu = pumMenu
      Position.X = 8.000000000000000000
      Position.Y = 80.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 1
      Text = 'Project'
      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
................................................................................
        Position.X = 8.000000000000000000
        Position.Y = 7.000000000000000000
        Width = 50.000000000000000000
        object anmProject2Icon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
































































































































































            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            068C494441545847D5565B6C145518FE7676B6DDEEB6DBFB8D5E28D04201EDDA
            140A2D106E2122412D895189341283F1411ED418890FC6F86C4CC00453251212
            14040402FAA098962E41B1049070292DD4022DBD60A55BE86577666767FCCEEC
            6E5DCA16587D307EED9FB37366CEF9BEF3FFFFF9CFC17F0D4BB8FD57D8B06183
            73787878754242C23A4DD36A25497AF7E0C18387C2AF1F8A7F2CA0BEBE3E93CD
................................................................................
            439818701A8A8057522B3FCAAA7F0FC23911EDA7606C6CECB958F85CF2DB00B1
            FDF8F4C14A7D41526858F2475555D598FC04C781B722A7003034349490A2EB12
            A2AF65B51F171717271163DF035F8088BD91F894ACFA850662E251013E464646
            1A24E75F8A902F84A81E210001123B1487847B7851837920B600C3CCCC4C7269
            69893F2C5FC96DABF44B527013A3A3A37F1F93FF2F38F717D264350CD60585CC
            0000000049454E44AE426082}
        end
      end
      object efctGlow2: TInnerGlowEffect
        Softness = 0.400000005960464400
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
    object btnProject3: TCornerButton
      DisableFocusEffect = True
      Font.Size = 30.000000000000000000
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000
      Opacity = 0.750000000000000000
      PopupMenu = pumMenu
      Position.X = 8.000000000000000000
      Position.Y = 152.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 2
      Text = 'Project'
      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
      YRadius = 15.000000000000000000
      OnClick = btnProjectClick
      OnMouseDown = ControlDragMouseDown
      object rndrctTime3: TRoundRect
        Fill.Kind = bkGradient
        Fill.Gradient.Points = <
          item
            Color = claBlue
            Offset = 0.000000000000000000
          end
          item
            Color = claLightblue
            Offset = 1.000000000000000000
          end>
        Fill.Gradient.Style = gsRadial
        Height = 25.000000000000000000
        Position.X = 232.000000000000000000
        Position.Y = -8.000000000000000000
        Stroke.Color = claLightgray
        Width = 81.000000000000000000
        OnMouseDown = ControlDragMouseDown
        object txtTime3: TText
          Align = alClient
          Color = claWhite
          Height = 25.000000000000000000
          HitTest = False
          Text = '00:00 '#183' 00:00'
          Width = 81.000000000000000000
        end
      end
      object imgIcon3: TImage
        Height = 50.000000000000000000
        HitTest = False
        Position.X = 8.000000000000000000
        Position.Y = 7.000000000000000000
        Width = 50.000000000000000000
        object anmProject3Icon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            068C494441545847D5575B6C145518FE7666DA2EDD767BBFD10B055A28A0ADA4
            D0D202E116221254488C8AA186188C0FF2A0C6487C30C667630226982A9198A0
            A48040401F14D3D2252842000997D2422DD03B56BA856DB73BB3B3337E6776B7
            6EDB2DB0FA60FCE0E4EC9C9973BEEFFCB7738AFF1AB650FFAFB065CB1687C7E3
            59171F1FBF49D7F55A4992DE3D7CF8F091D0EB87E21F0BA8ABABCB60B7C1EFF7
            6FF2F97C6B0133910DD5D5B5484D4D71399D8E9D8A92E03E76ECD8A0D3E97C87
            DF5EADAFAFFFC49A1C8198046CDDBAB55055D5E7354DDBC47E39771A67E30A45
            4545A8A9598EF2F25AE4E515C0EDEE61EB87C73362EED9536F3A1C0E89DFF7EE
            DBB72F3FB4D4181E2960F3E6CD659CBC893F3772A78B645992C478767616962E
            5D81CACAE5242D86AEAB1C3560B72BA02E7476FE89C6C6A3B87EFD02DF05E0F5
            7A6F353434CC127323115DC09B9D4F2E1ADCBB6586E7CCB3AAA99499FC4EEC34
            393919CB96AD4055D572E4E7CF4120108069FA6118012426C65BC4EDEDFDB878
            F1142E5D72616464048C0B4E9640F1ADFBF7EF9F176218437401AF9EEFCFCD1E
            CA59D4FB35720283967917D7AC4661F102787D01887F9AE627B989B4B444F632
            5A5B7B71E3C6798B7860E02E1212EC14248716044647472F1D38706061E8710C
            D105BC72DA8D354B53C5CF94046025C3AD5C19C19C4C09330C0FE6386D48CD72
            E0C18881CB2D7DE8EABE8E6BD79A69F62E284A1C6459099A8C08F71470E6E0C1
            83B5D64304A20B78D9D557B4A6227757F9301A6E1B38D11F0FB737157129329C
            F1C08C241335C92AA6DDFB03D35AEBD1D2F67B8858B608C34D40F4C2527441F3
            A1438756598311B0026A1274F83455C3C639D9F86A6D21BA5E4CC1AD8D03F8AC
            F40E564B37D1D9D58BDDBF31AFFA55B45DBD8CB838E17FC9229AAA1986E10BAD
            3E0ED105C886EAD50C78553FDC9C3614B023C159808D0B66E3AB0DF370AC7614
            081888576C90B8EB6884914D046B6C020C4355359D13817B34B300F930AAC312
            E437685EC3B09E8D2884139B406C0202019FDF6FC008E8560EB7B49C633E9F65
            90DD809FA47162510A0A9814122221C138D2C8E760BA9A3108B0057C86664223
            5B56561ECACAAA30776E355252F2303CFC008C71120730EA27013F0F134E1421
            5A18FC1D8B0BE0831EB4405F5F175348141BC0E1484652B213928D0F864E5748
            D6EE781EB01EA4B12A5686773BAE893136512A2721BA001D2A57874A0B242565
            A39B79DEDA7A9685E61C2DE0856C729AC9F78C133B0BCE531515AC8CF974558B
            357DA22504D833722723BA0089014301A2DA4DB327A0B8B81CA5A5D59839B38A
            E9660F160F6101C6407A663606DD6E96DF8B14376C4D178814107B0C0873D105
            1A43BFAFBF8B6EB8C321B1283354E6141B4B2CCF009D01D979E73683B3D32A42
            0291C4E1168A8F185C20D4F280D19801B939853C5092D0D1718107CD391EB303
            7CAFD00242236D6153C61145F691E36CB158407C6CE0879BFD18B9DB89C28C0C
            CC2FAD446949154FC42CD8C4894C17681641305845C92D2B2B0B9B7B528B4D80
            8D16A017DE6F2BC1134735ACFCB2099F9E388DEE8ECB70708623DE4E91B4806E
            42A5ABB27372B070E1420C0D0D59D3A3908BE11804E85C9DBB8244C72B76B4DB
            2BD0EC2FC09A53E9A8FAFC477CFC938B870F53902E2ACC2F404949098FE14BCC
            96EEA8E4A2D132310800D350449D506E8BC30E7517F28EBC80F7E4BD1848ACC0
            17EE2AE8521A6F0526BA7A7B71CAE5026F4D63275FB8098831E1168A88210D85
            BF84009AB82253C5ED2BBF20296F36DC77AEE0998C0ECBFFA2197C4F8AB18BC7
            4472D1DFBF7F9FAED27FE569E9B20627600A01220644DEB1246A01A4B2CAA5A4
            B06564A3C0BC2BDE0B918C55E6388B92084441264C1D2627A98809F1B09BAE59
            E972B982013201D105C8369662EE9299D03620A378FE6224F3B2393D2B0D6E39
            93C31447E84288F81FDA75989CB766A6AB7B585194BAC6C6C6EDEDEDED516B80
            C0143190DC81618FB8C6D0C206767AD62373560586D32BF06D473A19294EF895
            2EB03484880578F51297D1565E466B48FE4D68784A5855352AD69D7C0BA33D6F
            B3161721230FC8C8098E9BC1EBB7D8B93CAC6259E707B02B8C073E33104DBAE1
            507A7AFAB6E3C78F7B82131E8EA90558382863AD7D3DAF466F40F73E8DAC7485
            A5113CA12C0B60C88715BD1F42E13933EA5335BBDDBEA3A9A9691727FE6D9247
            E0110222B0EAFB195047B64175BFC63F02A6239756511C58D2F31114FFBD1E25
            21E9A5E6E6E69F435F3F361E5F40182B4E2A78D0F61C63E37518F2824469E0EC
            92D4EFB637359D657AFCEF00FC056B5549D12AC4EEC50000000049454E44AE42
            6082}
          StopValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            0476494441545847D597CB4B644714C6CB6E1FED5BD1A0A00E66152538082191
            0467994548C86A924536596515170151778A0B83E046DD04DCB89721E40FC822
            A04B4106242A2AEAA08EA2E01BB57D74CEEFE49E9EF2E6B6733BB308F9A0A87B
            CFAD5BDF57DF3955B7DBFDD72808FA77C2F4F4746A6F6FEF936432F9ECFEFEFE
            C38282825F0606066683C78FE25F0B989898A812B24F6F6F6F9FDDDDDD7D242D
            45BCB9B9D9959595BD2C2929792142CE9697974F53A9D4B772BDD1D3D333A32F
            7BC84B8090BE777D7DDD9DC964BA85F8A9840A89D7D4D42871535393ABACAC74
            E7E7E7EEEAEACAC998CCFCFC7CA6B0B03021D787BDBDBDDF30DEC75B058C8F8F
            3FB9BCBCEC4E2412907E20A104F18A8A0A25A55557573B7180B093343859AD3B
            3B3B73EBEBEB4E52A37179F7B508F84E6F3C440A989A9A7AFFF4F4F47359C567
            B2DA2742AEE3C456D7D2D2A2A4AC5A9E658965954A7E7C7CEC767676DCF6F636
            A45941E974FA555F5FDFF73AD843A480C9C9C95FE5C55AAC648228527A505454
            A43DC40707074ACE7B26C82002D6FAFBFB7F086EB3503BC310E545D84A4E21C6
            6E4983925C5C5CE898D2D252253F3C3C746B6B6B6E7171D1ADACACE838C80142
            AD890BD71A0C215280AC2E8D6DADADAD4E2A5849B6B6B694C8DAC6C686F6ABAB
            AB4E2A5DC541CC7B51901D73135C3E40A40099244DFE1A1B1B5D7B7BBBEBEAEA
            729D9D9DEA06756079C6EAFDFD7DB59A6669C98174D03F402E076E980C11342C
            C40952D2D1D1E1DADADA749C11F3DC10258298B4BC04A42D77EC6703F7083212
            1B13BE8E122129882FC05200E8D9CB34AC6772F21C45027C11BE50417C01F282
            0E869C1D402DD048839C843A0698C8307C370C2226BE003978B2832934B39D02
            A4019F80E78843A40FC6980BD2C7DF056C195EB489B19E6AA7851D60EB418C53
            6CD75C90F9E29F03022D424440505757E7EAEBEBB5D921634020854A8DDCDCFC
            73919E0BF1536076F1321F959393138DFB0826D5E738E41FBB610422F23B88E8
            21C15A568DBD34566B7B9FE776F2716F311317427C07D8B34C42CE39FB11D1D0
            D0A029C07283110244F19C18088B90787C0138C044E4756161C1CDCDCDE9797F
            7474A4CFF9081901E3CACBCBB510EDD00A8B08FAFC6B00603129A0FAF9DACDCE
            CEEA97CF0E23BE9AB5B5B52A962D6BF04504D7F939105C6681030861F57C72AD
            0E28D0CDCDCD2C6118562392D6F8DB5026D31A00E49FD5D153EDD80D994F986B
            073086B4C85C7FCAE1F632083FC0A33500EC30B2662B0A03C126DA20BF823232
            FEB7DDDDDD9F868787DFE4C743A40081A68009B19B1D80FDB8E0C3087D3700A2
            A5662EE5F2E7C1C1C109F98D19790680480162D76B993463136323A7210E9006
            439818701A8A8057522B3FCAAA7F0FC23911EDA7606C6CECB958F85CF2DB00B1
            FDF8F4C14A7D41526858F2475555D598FC04C781B722A7003034349490A2EB12
            A2AF65B51F171717271163DF035F8088BD91F894ACFA850662E251013E464646
            1A24E75F8A902F84A81E210001123B1487847B7851837920B600C3CCCC4C7269
            69893F2C5FC96DABF44B527013A3A3A37F1F93FF2F38F717D264350CD60585CC
            0000000049454E44AE426082}
        end
      end
      object efctGlow3: TInnerGlowEffect
        Softness = 0.400000005960464400
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
  end
  object pumMenu: TPopupMenu
    Left = 144
    Top = 296
    object mnuViewProjects: TMenuItem
      Action = actViewProjects
    end
    object MenuItem1: TMenuItem
      Text = '-'
    end
    object mnuFileExit: TMenuItem
      Action = actFileExit
      Text = 'Exit'
    end
  end
  object aclProject: TActionList
    Left = 104
    Top = 296
    object actViewProjects: TAction
      Text = 'Projects...'
      OnExecute = actViewProjectsExecute
    end
    object actFileExit: TFileExit
      Hint = 'Quit|Quits the application'
      ImageIndex = 43
    end
  end
end

Changes to ProjectIt/src/F_ActiveProject.pas.

1
2
3
4
5
6
7
8

9
10
11
12
13
14
15
..
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
...
102
103
104
105
106
107
108






109
110
111
112
113
114
115
unit F_ActiveProject;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.StdCtrls, FMX.Colors, FMX.Layouts, FMX.Objects, FMX.Ani, FMX.Effects;


type
  TForm4 = class(TForm)
    lytProjects: TLayout;
    btnProject: TCornerButton;
    rndrctTime: TRoundRect;
    txtTime: TText;
................................................................................
    rndrctTime3: TRoundRect;
    txtTime3: TText;
    imgIcon3: TImage;
    anmProject3Icon: TBitmapAnimation;
    efctGlow: TInnerGlowEffect;
    efctGlow2: TInnerGlowEffect;
    efctGlow3: TInnerGlowEffect;







    procedure ControlDragMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
      Y: Single);
    procedure btnProjectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    procedure SetProjectActive(const Button: TCustomButton; const Active: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation




{$R *.fmx}

{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.FormCreate(Sender: TObject);
begin
  SetProjectActive(btnProject, True);
  btnProjectClick(btnProject);
................................................................................
      Animation.Enabled := False;
      Animation.Enabled := True;
    end else begin
      (Animation.Parent as TImage).Bitmap.Assign(Animation.StopValue);
    end;
  end;
end;







{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.btnProjectClick(Sender: TObject);
var
  Button: TCustomButton;
  Child: TFmxObject;
begin







|
>







 







>
>
>
>
>
>
>




>












>
>
>







 







>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
..
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
...
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
unit F_ActiveProject;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.StdCtrls, FMX.Colors, FMX.Layouts, FMX.Objects, FMX.Ani, FMX.Effects,
  System.Actions, FMX.ActnList, FMX.Menus, FMX.StdActns;

type
  TForm4 = class(TForm)
    lytProjects: TLayout;
    btnProject: TCornerButton;
    rndrctTime: TRoundRect;
    txtTime: TText;
................................................................................
    rndrctTime3: TRoundRect;
    txtTime3: TText;
    imgIcon3: TImage;
    anmProject3Icon: TBitmapAnimation;
    efctGlow: TInnerGlowEffect;
    efctGlow2: TInnerGlowEffect;
    efctGlow3: TInnerGlowEffect;
    pumMenu: TPopupMenu;
    mnuViewProjects: TMenuItem;
    aclProject: TActionList;
    actViewProjects: TAction;
    MenuItem1: TMenuItem;
    mnuFileExit: TMenuItem;
    actFileExit: TFileExit;
    procedure ControlDragMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
      Y: Single);
    procedure btnProjectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure actViewProjectsExecute(Sender: TObject);
  private
    procedure SetProjectActive(const Button: TCustomButton; const Active: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses
  F_Projects;

{$R *.fmx}

{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.FormCreate(Sender: TObject);
begin
  SetProjectActive(btnProject, True);
  btnProjectClick(btnProject);
................................................................................
      Animation.Enabled := False;
      Animation.Enabled := True;
    end else begin
      (Animation.Parent as TImage).Bitmap.Assign(Animation.StopValue);
    end;
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.actViewProjectsExecute(Sender: TObject);
begin
  frmProjects.Show;
end {TForm4.Action1Execute};

{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.btnProjectClick(Sender: TObject);
var
  Button: TCustomButton;
  Child: TFmxObject;
begin

Added ProjectIt/src/F_Projects.dfm.





























































































































































































































































































































































































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
object frmProjects: TfrmProjects
  Left = 0
  Top = 0
  Caption = 'Projects'
  ClientHeight = 282
  ClientWidth = 418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lvwProjects: TListView
    Left = 8
    Top = 8
    Width = 404
    Height = 234
    Columns = <
      item
        Caption = 'Project'
        Width = -2
        WidthType = (
          -2)
      end>
    Items.ItemData = {
      05680200000A00000000000000FFFFFFFFFFFFFFFF01000000FFFFFFFF470000
      000D530061006C006500730020004D0061006E00610067006500720000000000
      0000000000FFFFFFFFFFFFFFFF01000000FFFFFFFF480000000A490054002000
      4D0061006E006100670065007200000000000000000000FFFFFFFFFFFFFFFF01
      000000FFFFFFFF490000000C52006500630065007000740069006F006E006900
      73007400000000000000000000FFFFFFFFFFFFFFFF01000000FFFFFFFF4A0000
      000A4100630063006F0075006E00740061006E007400000000000000000000FF
      FFFFFFFFFFFFFF01000000FFFFFFFF4B0000000E560069006300650020005000
      7200650073006900640065006E007400000000000000000000FFFFFFFFFFFFFF
      FF01000000FFFFFFFF4C0000000F4100630063006F0075006E00740020004D00
      61006E006100670065007200000000000000000000FFFFFFFFFFFFFFFF010000
      00FFFFFFFF4D000000105300740061006600660069006E00670020004D006100
      6E006100670065007200000000000000000000FFFFFFFFFFFFFFFF01000000FF
      FFFFFF4E0000001153006F00660074007700610072006500200045006E006700
      69006E00650065007200000000000000000000FFFFFFFFFFFFFFFF01000000FF
      FFFFFF4F00000012500072006F00640075006300740020005300700065006300
      690061006C00690073007400000000000000000000FFFFFFFFFFFFFFFF010000
      00FFFFFFFF50000000124D00610072006B006500740069006E00670020004400
      690072006500630074006F0072000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF}
    RowSelect = True
    ShowColumnHeaders = False
    StateImages = imlProjectStates
    TabOrder = 0
    ViewStyle = vsReport
  end
  object btnOK: TButton
    Left = 256
    Top = 248
    Width = 75
    Height = 25
    Caption = '&OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object btnCancel: TButton
    Left = 337
    Top = 248
    Width = 75
    Height = 25
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object PrototypeBindSource1: TPrototypeBindSource
    AutoActivate = True
    AutoPost = False
    FieldDefs = <
      item
        Name = 'ProjectID'
        FieldType = ftInteger
        Generator = 'UIntegers'
        Options = []
        ReadOnly = False
      end
      item
        Name = 'ProjectName'
        Generator = 'ContactTitles'
        Options = [optShuffle]
        ReadOnly = False
      end>
    ScopeMappings = <>
    Left = 200
    Top = 32
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 12
    Top = 245
    object LinkListControlToField1: TLinkListControlToField
      Category = 'Quick Bindings'
      DataSource = PrototypeBindSource1
      FieldName = 'ProjectName'
      Control = lvwProjects
      FillExpressions = <>
      AutoBufferCount = False
      FillHeaderExpressions = <>
      FillBreakGroups = <>
    end
  end
  object imlProjectStates: TImageList
    Left = 80
    Top = 248
    Bitmap = {
      494C010103000800140010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000FDFDFD0200000000F1F1F10E00000000FDFDFD0200000000F3F3
      F30CFDFDFD020000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000F4F4F40BBF7554ABBA5300FFC35B02FE44484AEDB6AFAF84A4A09CFFD1BA
      A0FFB0A493FF7B7D80F000000000000000000000000000000000000000000000
      000000000000D29A7C83A23D00FFC65900FF4C4D50E400000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000D29A7C83A23D00FFC65900FF4C4D50E4007EB1FF0086B9FF0089
      BEFF007DB1FF006FA2FF72ADC78D000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F6F6F609C35D
      14EBCE6700FFD37410FCCF6A01FEC55F07FF5B5556FDD9C9B4FDFFE1B6FFFCDD
      B4FEFCE2BFFEFEDCAEFB77797DEF00000000000000000000000000000000AE56
      1EE1C55B00FFDC6E00FFD36D00FFCC6003FF454647FF3E3E3EFEF5F5F50D0000
      000000000000000000000000000000000000000000000000000000000000AE56
      1EE1C55B00FFDC6E00FFD36D00FFCC6003FF454647FF0093C6FF1CB1E4FF3B66
      74FF167191FF007FB2FF1176A6EE000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FCFCFC03BFA59669DB74
      04FB767D84FE7A858FFEDA6B00FFC4620BFFA3979CFFFFE7BCFFFEE7BEFFCEBC
      9BFFFFEAC0FFFCE2C0FFBCAB96FEFDFDFD020000000000000000DDB49A65DD77
      00FF89898AFF7B848EFFD86E00FFCE6407FF464748FF484848FF464646FFBBBB
      BB5B000000000000000000000000000000000000000000000000DDB49A65DD77
      00FF89898AFF7B848EFFD86E00FFCE6407FF464748FF29ACDBFF87D1F8FF72A4
      BDFF20A9DAFF0088BBFF6CADC993000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FCFCFC03BA9E8C73E279
      04FB485564FF596573FFDD7101FFC46610FFC6B9BAFFFEF4DDFFFFFFDEFF6867
      6AFF91846FFFFBE0B8FEDDC4A6FFF3F3F30C0000000000000000D8A88A75E178
      00FF434E5AFF545C65FFDC7200FFD0680EFF49494AFF4B4B4BFF4C4C4CFF4F4F
      4FFF696969C70000000000000000000000000000000000000000D8A88A75E178
      00FF434E5AFF545C65FFDC7200FFD0680EFF49494AFF2182A4FF84D1F8FF7ACC
      F1FF1DA9DAFF0A8ABDF500000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FCFCFC03E2927F80E47D
      04FBEC7C00FFCE751BFFA88B7AFFC8680FFFB39FA4FFFEF9D9FF242324FFFFFF
      E6FFB7B197FFFEEEC4FEAAA59FFE000000000000000000000000D49F7B84E47E
      00FFEC8203FFE37800FFAA8566FFD26C13FF858686FF4B4B4BFF4E4E4EFF5050
      50FF474747FF0000000000000000000000000000000000000000D49F7B84E47E
      00FFEC8203FFE37800FFAA8566FFD26C13FF858686FF4B4B4BFF2F6981FF2CC1
      ECFF137BA1FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FBFBFB04DE9E728DCBAE
      9EF9F8DAE3FFF6CFCFFFD5B6BBFFCE6F18FF4A4B4BFFF0E3E1FFFFFCDEFFFEF8
      DFFEFEEEC9FFE3D1B6FCB4ADAE8CFEFEFE010000000000000000D0966C93C3A3
      87FFFFDDE7FFFFD8D9FFE1C4D0FFD6741AFF4A4B4CFF777777FF505050FF5252
      52FF4B4B4BFF0000000000000000000000000000000000000000D0966C93C3A3
      87FFFFDDE7FFFFD8D9FFE1C4D0FFD6741AFF4A4B4CFF777777FF3E5D69FF0084
      B9FF0D5A86FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FDFDFD02E1976699E3CD
      D0FAE3C6C5FFFFD6D6FFCFB5B9FFCE721DFF49494AFF514F4FFFA69194FFCDBE
      BDFEA6999AFED1CBCB5700000000000000000000000000000000CF8C5CA3DECC
      D5FFE0C4C4FFFFD8D8FFDBC3CFFFD67724FF4F4F4FFF515151FF535353FF5454
      54FF4E4E4EFF0000000000000000000000000000000000000000CF8C5CA3DECC
      D5FFE0C4C4FFFFD8D8FFDBC3CFFFD67724FF4F4F4FFF515151FF267794FF0A6A
      98FF246E88FFFBFBFB0400000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FEFEFE01E0925BA4E8D6
      DEFAD8C2C2FFC8B7B7FFD2B8B4FFCA721EFF7D7E7FFF5E5E5EFF545454FF5154
      54FE565757FEFDFDFD0200000000000000000000000000000000CC844DB2E5D5
      E1FFD1BDBDFFC9B8B8FFD8C2CEFFD57C2DFF7E7E7FFF5D5D5DFF545454FF5656
      56FF535353FF0000000000000000000000000000000000000000CC844DB2E5D5
      E1FFD1BDBDFFC9B8B8FFD8C2CEFFD57C2DFF7E7E7FFF5D5D5DFF545454FF5656
      56FF535353FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000E18E4FB0ECDE
      EBFAFFE7E6FFDEC7C7FFD5B7AAFFCC7727FF535455FF555555FF565656FF5858
      58FD575757FF0000000000000000000000000000000000000000CA7C3EC1EDDD
      EAFFFFE2E2FFF2D3D3FFD8C2C9FFD78439FF545454FF545454FF575757FF5858
      58FF565656FF0000000000000000000000000000000000000000CA7C3EC1EDDD
      EAFFFFE2E2FFF2D3D3FFD8C2C9FFD78439FF545454FF545454FF575757FF5858
      58FF565656FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000E28943BCE9DF
      EDFAF2D9DBFFFFDEDCFFD6B49EFFCB792DFF555657FF565656FF585858FF5959
      59FE585858FF0000000000000000000000000000000000000000C8732ED1F5E5
      F2FFFFE4E4FFFFE2E2FFD8C3C0FFD78A45FF565656FF575757FF595959FF5A5A
      5AFF595959FF0000000000000000000000000000000000000000C8732ED1F5E5
      F2FFFFE4E4FFFFE2E2FFD8C3C0FFD78A45FF565656FF575757FF595959FF5A5A
      5AFF595959FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000E68838C7F7EF
      FFFCF3E6F7FFE4C6AFFFD98C35FFC77A33FF57595AFF585858FF5A5A5AFF5B5B
      5BFF5B5B5BFF0000000000000000000000000000000000000000C86C20DFFAEF
      FFFFF7E7F4FFDCBB9BFFE08B14FFD68A48FF585858FF595959FF5B5B5BFF5C5C
      5CFF5C5C5CFF0000000000000000000000000000000000000000C86C20DFFAEF
      FFFFF7E7F4FFDCBB9BFFE08B14FFD68A48FF585858FF595959FF5B5B5BFF5C5C
      5CFF5C5C5CFF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000E6882CD3FF9E
      06F9FFA829FFF7C78CFEEBD0BEFFE8D4D7FF978B8BFF545757FF5D5D5DFF5D5D
      5DFF5D5D5DFF0000000000000000000000000000000000000000C76710EFFF9D
      00FFFFB74FFFF6CFA3FFEADBE8FFF3E5EAFFB19F9FFF545656FF5D5D5DFF5E5E
      5EFF5F5F5FFF0000000000000000000000000000000000000000C76710EFFF9D
      00FFFFB74FFFF6CFA3FFEADBE8FFF3E5EAFFB19F9FFF545656FF5D5D5DFF5E5E
      5EFF5F5F5FFF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000DEC8B54A626A
      75D64A4D51FF8F8C89FFEADAD8FCF2DFDFFFF1E6E6FEF1DCDCFF888080FE595B
      5BFE5F5F5FFFF8F8F807FEFEFE01000000000000000000000000FAE5D22D6468
      6ED64B4B4BFF585959FFD4CBCBFFF7E3E3FFEFE0E0FFFAECECFFA49696FF5A5B
      5BFF626262FF0000000000000000000000000000000000000000FAE5D22D6468
      6ED64B4B4BFF585959FFD4CBCBFFF7E3E3FFEFE0E0FFFAECECFFA49696FF5A5B
      5BFF626262FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FDFDFD020000
      000000000000CACACA41787878C7505252FFA19C9CFFF6E7E7FBF1E8E8FFD1C9
      C9FF626262FFF0F0F00FFEFEFE01000000000000000000000000000000000000
      000000000000ECECEC1D818181BD4E4E4EFF6C6D6DFFE3D4D4FFE4DCDCFFC4C1
      C1FE646464FF0000000000000000000000000000000000000000000000000000
      000000000000ECECEC1D818181BD4E4E4EFF6C6D6DFFE3D4D4FFE4DCDCFFC4C1
      C1FE646464FF0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000FDFDFD020000000000000000D8D8D832838383B4C5C5C55F0000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F8F8F80B919191A4C7C7C7520000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F4F4F40B919191A4C7C7C7520000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FAA7FFFFFFFF0000F003F87FF8010000
      C001E01FE00100008000C00FC00100008000C007C00300008001C007C0070000
      8000C007C00700008003C007C00300008003C007C0070000C007C007C0070000
      C007C007C0070000C007C007C0070000C007C007C0070000C001C007C0070000
      D801F807F8070000FB1FFF1FFF1F000000000000000000000000000000000000
      000000000000}
  end
end

Added ProjectIt/src/F_Projects.pas.





































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
unit F_Projects;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.Bind.GenData, System.Rtti,
  System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.EngExt,
  Vcl.Bind.DBEngExt, Data.Bind.Components, Vcl.StdCtrls, Vcl.ComCtrls,
  Data.Bind.ObjectScope, Vcl.ImgList;

type
  TfrmProjects = class(TForm)
    PrototypeBindSource1: TPrototypeBindSource;
    lvwProjects: TListView;
    btnOK: TButton;
    btnCancel: TButton;
    BindingsList1: TBindingsList;
    LinkListControlToField1: TLinkListControlToField;
    imlProjectStates: TImageList;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProjects: TfrmProjects;

implementation

{$R *.dfm}

end.

Changes to ProjectIt/src/prj/ProjectIt.dpr.

1
2
3
4
5

6
7
8
9
10
11

12
13
program ProjectIt;

uses
  FMX.Forms,
  F_ActiveProject in '..\F_ActiveProject.pas' {Form4};


{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm4, Form4);

  Application.Run;
end.




|
>






>


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program ProjectIt;

uses
  FMX.Forms,
  F_ActiveProject in '..\F_ActiveProject.pas' {Form4},
  F_Projects in '..\F_Projects.pas' {frmProjects};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TfrmProjects, frmProjects);
  Application.Run;
end.

Changes to ProjectIt/src/prj/ProjectIt.dproj.

96
97
98
99
100
101
102




103
104
105
106
107
108
109
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="..\F_ActiveProject.pas">
            <Form>Form4</Form>
            <FormType>fmx</FormType>




        </DCCReference>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">
            <Key>Base</Key>







>
>
>
>







96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="..\F_ActiveProject.pas">
            <Form>Form4</Form>
            <FormType>fmx</FormType>
        </DCCReference>
        <DCCReference Include="..\F_Projects.pas">
            <Form>frmProjects</Form>
            <FormType>dfm</FormType>
        </DCCReference>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">
            <Key>Base</Key>