Check-in [8472f72a3f]
Not logged in

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

Overview
Comment:Added an FMX form for the list of projects. Added all .vlb files (Visual LiveBinding settings).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8472f72a3f331d54e460391824aa94d72f47dce6
User & Date: Martijn 2013-07-27 11:09:39
Context
2013-07-29
13:15
Added OSX platform. check-in: 235587b775 user: MCO tags: trunk
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
Changes

Changes to ProjectIt/src/F_ActiveProject.fmx.

1
2
3
4
5
6
7
8
..
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
..
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
...
120
121
122
123
124
125
126
127
128
129
130
131
132













133
134
135
136
137
138
139
...
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
...
438
439
440
441
442
443
444
445
































































































































































446
447
448
449
450
451
452
453
454
object Form4: TForm4
  Left = 0
  Top = 0
  Caption = 'Projects'
  ClientHeight = 480
  ClientWidth = 325
  Position = poScreenCenter
  Transparency = True
................................................................................
      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
      YRadius = 15.000000000000000000
      OnClick = btnProjectClick
      OnMouseDown = ControlDragMouseDown
      object rndrctTime: TRoundRect
        Fill.Kind = bkGradient
................................................................................
        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
................................................................................
            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
................................................................................
        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
            DA4020B0CEEFF7AF020C070D0B16D4222D2DD5E37239B7CA72A2F7C89123832E
            97EB1D7E7BA9A1A1E113737014E212B071E3C62245519E5755751D6D89C562B1
            5938437171316A6A96A0A2A216F9F985F07A7B68FD1819193376EC68301C0E87
            C471BDBB77EF2E084F358E470A58BF7E7D3907AFE3CF3AB6F324C92289FE9C9C
            6C2C5AB41455554B485A024D53D8ABC36E972149367475FD89C6C6C3B872E52C
            DF05E1F3F9AEEFDDBB77BA181B8DD802DEEC7A72DEE0CE0D53874F3DAB1872B9
            C1EFC44A535252B078F15254572F4141C14C048341184600BA1E84C391601277
            74F4E3DCB913387FDE83D1D151302F385802C3D4B667CF9ED9618671C416F0EA
            99FEBCECA1DC79BD5F21373868BA777ECD0A1495CCC5983F08F1A7AA01921B48
            4F77B0B5A2ADAD1757AF9E318907066E2331D14E41D6F084101E38BF6FDFBECA
            F0E338620B78E5A4172B16A5899FA989C032A65B853C8A995912A6EAC398E9B2
            202DDB897BA33A2EB4F6A1FBD6155CBEDC4CB77743966DB05AE590CB88484B01
            A7F6EFDF5F6B3E4421B680973D7DC52BDD79DB2A46F0CD0D1DC7FA13E01D4B83
            2DD50A57023035D9404D8A82A43B7F20A9AD01ADEDBF8789AD2661C404442B3C
            C510341F387060B9D9190533A11E40107E555151373307BB5615A1FBC5545CAF
            1BC0676537B142BA86AEEE5E6CFF8DFBAA5F41FBA50BB0D944FC25936832D375
            DD1F9EFD3EC41620E9CA98AA634C09C0CB6143413B125D85A89B3B03BBD6CEC6
            915A1F45EA48902D90B8EA5884D12692353E01BAAE28AAC681C01DBA59807CF0
            6930050574BA57D7CD673D06E14413884F4030E80F0474E841CDDCC3ADADA7B9
            9F5B9864571120A94D4C4A41418342C22424B88F34FA39B45D8D380458827E5D
            35A0922D3B3B1FE5E5D598356B015253F359DDEE81394E6216970009F8798470
            A2086111F0773C21801F5AC8037D7DDDDC42A2D8004E670A92535C902C7CD035
            86423257C7F380F5209D55B12AB2DAFB4CF4D144A97C00B1056850383B147A20
            393907B7B8CFDBDA5A58684E8BFA0EABC16106DF334FEC2C384FB9DDAC8C050C
            55AB397CA22704D832731F446C011213860244B54BB227A2A4A40265650B306D
            5A35B79B3D543C8407980319593918F47A597ECF51DC88395C205A40FC3920DC
            C510A84CFDBEFE6E86E126BBC4A460B1E1100B4B2CCF008D09D975F30693B3CB
            2C4202D1C4110BE7471C21106A79C0A8DC0179B9453C5092D1D9799607CD691E
            B3037C2FD30342237D6191EF238A6EA3FB69F178407CACE3876BFD18BDDD85A2
            CC4CCC29AB425969354FC46C5858F5440854932094ACA2E496979747DCFD80C5
            27C0420F300AEFB797E289C32A967DD9844F8F9DC4ADCE0B70728433C14E91F4
            80664061A872727351595989A1A12173780C72D11D87008DB37355901878D98E
            0EBB1BCD8142AC3C9181EACF7FC4C73F7978F8700B3244450585282D2DE5317C
            9EBBE5564C7261F44C1C02C06D28B24E28B7D8B045D986FC432FE03DEB4E0C38
            DCF8C25B0D4D4AE79965A0BBB717273C1EF0B6347EF2454C40F489B050441CDB
            50C44B08A08BDD590A6E5CFC05C9F933E0BD7911CF64769AF117A6F33D29C62F
            1E13C9457BF7EE5D864AFB95A7A5C7EC9C804904881C10FB8E25510D228D552E
            359596998342E3B6782F443257B9C7599444220A32E1EA083949454E8887ED0C
            CD328FC7134A9009882DC06A6129E62AB913DA07AC2899331F29BC6C4EC94E87
            D79AC56E8A23342144FC87571D21E78D59908FC8B25CDFD8D8B8B9A3A323660D
            10982407523A59D6C435861ED6B175780DB2A6BB3192E1C6B79D1964A4381157
            86C0D4102616E0D54B5C46DB6C365B0DC9BF0E774F0AB3AAC6C4EAE36FC1D7F3
            366B713132F381CCDC50BF11BA7E8B955B47142CEEFA007699F9C06726A2C130
            1CC8C8C8D874F4E8D1E1D0808763720126F65BB1CABE8657A33710F43D8DAC74
            99A5113CA14C0F60C88FA5BD1F42E639E3F32BAADD6EDFD2D4D4B48D03FF76C9
            23F008015158FEFD5428A39BA00CBD0647D214E4D12BB2130B7B3E821C18EC91
            139D2F353737FF1CFEFAB1F1F80222587A5CC6BDF6E7981BAF43B7CE7548032D
            0BD3BEDBDCD4D4C2EDF1BF03F017709849D276E1B1230000000049454E44AE42
            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 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
................................................................................
            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
|







 







<







 







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







 







|





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







 







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







 








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

|







1
2
3
4
5
6
7
8
..
26
27
28
29
30
31
32

33
34
35
36
37
38
39
..
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
...
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
...
193
194
195
196
197
198
199
































































































































































200
201
202
203
204
205
206
...
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
object frmActiveProject: TfrmActiveProject
  Left = 0
  Top = 0
  Caption = 'Projects'
  ClientHeight = 480
  ClientWidth = 325
  Position = poScreenCenter
  Transparency = True
................................................................................
      StyledSettings = [ssFamily, ssFontColor]
      Height = 65.000000000000000000
      PopupMenu = pumMenu
      Position.X = 8.000000000000000000
      Position.Y = 8.000000000000000000
      Sides = [sdTop, sdLeft, sdBottom, sdRight]
      TabOrder = 0

      Width = 305.000000000000000000
      XRadius = 15.000000000000000000
      YRadius = 15.000000000000000000
      OnClick = btnProjectClick
      OnMouseDown = ControlDragMouseDown
      object rndrctTime: TRoundRect
        Fill.Kind = bkGradient
................................................................................
        Width = 50.000000000000000000
        object anmProjectIcon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            02F6494441545847E5973D6814411886DF99DD0D77670CD14202829DA0B5F682
            BDAD8D588B458A808DAD2068A39D601A0B857476DA5A5B591950B09470E17E92
            8BF797DB1FDF6F762EECCCEE598C655EF86E666EBFE7BD6FBE9BBD1F9C7B293B
            96BAF536C12C7D893C7B08155F00727B41C454958D91657BD0579F60FFFEA9BD
            502A908DED586AB67871E3E6959D77CFEE629115989FE648F3026901148C288E
            DB6FF6BE6D7FFAFC3D63F64E095905B26E07AEBF3ED87D756FABD38A713C5918
            A3053792D128676A14296C6E76F0E8F1C72E7E6E6F59AA5420ABED584AA9F660
            96A33B9A63304ED1FFB38CCC8CDD518ADFC305138B8D12A82890750BA08EC719
            0616EA8BD159F039468FCF238E6CB6AB10D6EF0086F31483098D4CE466EC73EC
            9B31C32103BAA18040D62B00389A15A685C3290DA6D68073139CF7C67C63A35A
            E382596FA530A2C990EF656942434669226381C329F362F7EC1A05B25E07344E
            78870E6527D5B006FD19D0E34EEA27870A64DD6594E09807F588C947F3D2AC2F
            C1798FE603466FCE1D240D672090750B588B7022264C36B15098E61AA922A463
            143C40B91C22B6BBA640D6EB80C688E0884613C20221E687A5445499D3B0A640
            D62D406B8C338D390854A1EA3C4998D7D08140D62B406126064BA029E436E28B
            D514C87A4EAC4E2A5EB50313B20B464D61AC570E4D1CC00B314C38AEE84023B3
            8C15ACBBE2BD5C83AA6B13B283860202596FC5841A64A36A28EDF615C8BA0524
            BC2827D587AA7373921B3A10C87A2B2E9726AB420C938602025977C5AF5463B4
            6A0726A4856E1B8D0259AF1C2EFFB50B6368F37C05B2EE8A2759C9ADE24095B9
            8410DEA7995120EB1500B4F9A3F20C94581E1CF91493368BF8544D81AC5780C6
            C58E18312BA2C1B25D02F3A7F599C4DC5720EB15904C2EB580CB1D858D35E6FA
            AD966CFEA6E095913C3A0A64DD02D6A30FDDAF3F50D020E16E5AEB0CFEC7D16D
            FAD3DC1CA2FD5FB2C3F726BFAA40D62DF3CE9718D7F473FEA5794074BD2C8F0F
            5A7A28A9F9182ADA43ABF514BBB7F9CD5FD1FFB0E758C05F6E452CC67E136ADF
            0000000049454E44AE426082}
          StopValue.PNG = {
            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            0217494441545847E5964D6EC23010851D1289B64BB608893D4760D99F0354EA
            15DA737088AA8BF6041CA1557B0B105B24962C40A03688D0D4CF64AAB1639364
            BAEC278D3C71DE9B4C3C0850FF9EA8580DE3F1389E4C260F3ABDD17166366DD2
            3CCFDFA3287A1A8D4659B167907A9362354CA7D3FB4EA773371C0ED5E17050DA
................................................................................
            731F12AFB7013A4A22F4401789D76A40FF54A6540411326BDD6791FE22F5BA0D
            BC2D974B9353219A2705FEDFEBF5D5881852AF755EBD5EEF65B158E4DBEDF65A
            173C2FB60D28A0F9D2BFF71FDD6EF7D96C32FEE2FDCF28F503FFBF4CF4440E05
            8E0000000049454E44AE426082}
        end
      end
      object efctGlow: TInnerGlowEffect
        Softness = 0.400000005960464500
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
      object txtProject: TText
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = claBlack
        Font.Size = 30.000000000000000000
        Font.Style = [fsBold]
        Height = 50.000000000000000000
        HitTest = False
        HorzTextAlign = taLeading
        Position.X = 64.000000000000000000
        Position.Y = 7.000000000000000000
        Text = 'Pauze'
        Width = 233.000000000000000000
      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 = 7.000000000000000000
        Width = 50.000000000000000000
        object anmProject2Icon: TBitmapAnimation
          Duration = 0.200000002980232200
          PropertyName = 'Bitmap'
          StartValue.PNG = {
































































































































































            89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
            F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            068C494441545847D5575B6C145518FE7666DA2EDD767BBFD10B055A28A0ADA4
            D0D202E116221254488C8AA186188C0FF2A0C6487C30C667630226982A9198A0
            A48040401F14D3D2252842000997D2422DD03B56BA856DB73BB3B3337E6776B7
            6EDB2DB0FA60FCE0E4EC9C9973BEEFFCB7738AFF1AB650FFAFB065CB1687C7E3
            59171F1FBF49D7F55A4992DE3D7CF8F091D0EB87E21F0BA8ABABCB60B7C1EFF7
................................................................................
            439818701A8A8057522B3FCAAA7F0FC23911EDA7606C6CECB958F85CF2DB00B1
            FDF8F4C14A7D41526858F2475555D598FC04C781B722A7003034349490A2EB12
            A2AF65B51F171717271163DF035F8088BD91F894ACFA850662E251013E464646
            1A24E75F8A902F84A81E210001123B1487847B7851837920B600C3CCCC4C7269
            69893F2C5FC96DABF44B527013A3A3A37F1F93FF2F38F717D264350CD60585CC
            0000000049454E44AE426082}
        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
      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
            0691494441545847D5576D6C5355187EDADEAD656BBBEF6E639FC03606E8E632
            D8D880F02511092A24465D0286188C3FE4871A23F18731FE3626608299120909
            4A6013C8D01F8AD958098A1040C2C7D8600ED8601B0ED6B1755BEFEDEDBD3EE7
            B69DDDE880EA0FE3036F4EEFB9F79CE739EFFB9EF79CE1BF8629D4FE2B6CDAB4
            29716464646D7C7CFC4655556BCD66F3FB870E1D3A1C7AFD48FC63019B376F4E
            63B3DEEFF76FF4F97C6B003D8186EAEA5A242727B99DCEC41D9264F53435350D
            3A9DCEF7F8EDE5FAFAFACF8CC1118849C0962D5BF264597E4951948D6C9771A5
            7126CE909F9F8F9A9A65282BAB4576762E3C9E3BB47E0C0F7BF5DDBBEB75BBDD
            6EE6F7BDFBF6EDCB094D3581C70AA8ABAB2BE5E08DFCB9617C7C7CA12459CCA2
            DFE5CAC09225CB5159B98CA485505599BD1A6C3609D485EEEE7B686E3E82AB57
            CFF15D00636363370E1C38305B8C8D4474016F773FBD7070CFA68291532FC8BA
            54AAF33BB15287C381A54B97A3AA6A1972724A100804A0EB7E685A000909F106
            7167673FCE9F3F810B17DC181D1D05F38283CD6098DAF7EFDF3F2FC43081E802
            5E3FDB9FE51ACA5CD8FB0D320383867B17D5AC425EE1028CF90210FF14C54F72
            1D2929096C2D686FEFC5B56B670DE28181BBB05A6D1464094D08D07B170E1E3C
            58117A9C40740175273D787649B2F89964055630DDCAA45194A49B51A08DA0C4
            69427246228647355C6CEB43CFEDABB872A5956EEF8124C5C16291822E23C22D
            059C6A6868A8351E22105DC06BEEBEFCD5E5593BCBBC387053C3B1FE7878C692
            11976481331E28B0EBA871C89871FF4FCC68AF475BC71F21628B41183601D10A
            4F3104AD8D8D8D2B8DCE081809F510FCF029B2820D252EEC5D93879E57927063
            C300BE28BE8555E6EBE8EEE9C5AEDFB9AFFA65745CBE88B838117FB341349D69
            9AE60BCD3E09D105489A3CA6681893FDF070D850C006AB33171B16CCC1DEF5F3
            D0543B0E0434C44B2698B9EA68849126923536019A26CB8ACA81C07DBA59807C
            18576108F26B74AFA619CF5A14C2A926109B8040C0E7F76BD002AAB187DBDACE
            703F9F66925D839FA47162520A0AE814122221C124D2C8E7E076D56310600AF8
            34458742B68C8C6C94965661EEDC6A242565C3EB1D06739CC4018CFB49C0CFC3
            845345080B83BF6309017C50831EE8EBEBE11612C506484C74C0EE70C26CE283
            A632146663753C0F580F5258152BC3AB9D64A28F264AE543882E4085CCD921D3
            0376BB0BB7B9CFDBDB4FB3D09CA107C660D1394CE77BE6898D05E799F27256C6
            1C86AACD183ED513026C99B90F23BA003313860244B59B61B3A2B0B00CC5C5D5
            9835AB8ADBCD162C1EC203CC81D47417063D1E96DFF314E735860B440A883D07
            84BB180285A9DFD7DFC330DC629798142C361C626289E519A03221BB6FDD6472
            761B45482092386CA1FC882104422D0F18853B202B338F078A1D5D5DE778D09C
            E1313BC0F7123D2034D21726691251641BD94F8BC503E2630D3F5EEFC7E8DD6E
            E4A5A5617E71258A8BAA782266C0C4AA2742A01804C1641525B7B4B434ECEE87
            2C3601267A8051F8B0A3084F1D51B0E2EB167C7EEC246E775D44224724C6DB28
            921E5075C80C952B3313151515181A1A3286472117DD310850393B570533032F
            D9D0692B47AB3F17AB4FA4A2EACB9FF0E9CF6E1E3EDC820C515E4E2E8A8A8A78
            0C5FE06EB91D955C183D138300701B8AAC13CA4D71D82EEF44F6E197F181650F
            0612CAF195A70AAA3985B7021D3DBDBD38E17683B7A689932F6C02A24F848522
            62D886225E42005D5C9E2EE3E6A55F61CF9E03CFAD4B783EADCB88BF308DEF49
            3171F1984A2EDA070F1E3054EA6F3C2DDD46E7144C2340E480D8772C894A00C9
            AC724949B4341772F5BBE2BD10C95CE51E6751128928C884ABC3E4241539211E
            7631342BDC6E773041A620BA008B89A598ABE44EE818B0A070FE223878D99C99
            91028F259DDD1447A84288F81F5A75989CB7660C0E0E7A2549DADCDCDCBCADB3
            B3336A0D109826071C5DF00E8B6B0C3DAC61C7C83AA4CF2E8737B51CDF75A592
            91E2445C19024343885880572F71196DB75AAD3524FF36D43D2D8CAA1A156B8F
            BF83F13BEFB216E7232D1B48CB0CF6EBC1EBB758B9C52B6369F747B049CC073E
            33117586A131353575EBD1A3474782031E8DE9051868B0608D6D1DAF466FC13F
            FA1C5C69124B237842191EC0900FCB7B3F86C47366DC272B369B6D7B4B4BCB4E
            0EFCDB258FC163044460E50F059047B742F6BCC13F0266228B5E9112B1F8CE27
            90FCF7EE4856C7ABADADADBF84BE7E623CB98030961F9730DCF12273E34D6896
            0509E681D38B93BFDFD6D2729ADBE37F07E02F663249D01A5A0E090000000049
            454E44AE426082}
          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.400000005960464500
        GlowColor = claWhite
        Opacity = 0.899999976158142100
        Trigger = 'IsMouseOver=true'
        Enabled = False
      end
    end
  end

Changes to ProjectIt/src/F_ActiveProject.pas.

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
..
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
..
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
...
116
117
118
119
120
121
122
123


124
125







126
127
128
129
130
131
132
133
134
135
136
...
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
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;
    imgIcon: TImage;
    btnProject2: TCornerButton;
    rndrctTime2: TRoundRect;
................................................................................
    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);
end;

{ ------------------------------------------------------------------------------------------------ }
function FindDescendantByClass(const Control: TFmxObject; const TargetClass: TClass; const Recursive: Boolean = False; const SkipChild: TFmxObject = nil): TFmxObject;
................................................................................
        Exit;
    end;
  end;
  Result := nil;
end {FindDescendantByClass};

{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.SetProjectActive(const Button: TCustomButton; const Active: Boolean);
var
  Shape: TShape;
  Animation: TBitmapAnimation;
begin
  if Active then begin
    Button.Font.Style := [TFontStyle.fsBold];
    Button.Opacity := 1;
................................................................................
    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
  if Sender is TCustomButton then begin
    Button := TCustomButton(Sender);
    if not (TFontStyle.fsBold in Button.Font.Style) then begin
................................................................................
      Button := TCustomButton(Child);
      SetProjectActive(Button, False);
    end;
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TForm4.ControlDragMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
begin
  if Button = TMouseButton.mbLeft then begin
    Self.StartWindowDrag;
  end;
end;

end.







|







 







>













|




|




|







 







|







 







|
>
>

|
>
>
>
>
>
>
>



|







 







|








5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
..
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
..
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
...
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
...
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
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
  TfrmActiveProject = class(TForm)
    lytProjects: TLayout;
    btnProject: TCornerButton;
    rndrctTime: TRoundRect;
    txtTime: TText;
    imgIcon: TImage;
    btnProject2: TCornerButton;
    rndrctTime2: TRoundRect;
................................................................................
    pumMenu: TPopupMenu;
    mnuViewProjects: TMenuItem;
    aclProject: TActionList;
    actViewProjects: TAction;
    MenuItem1: TMenuItem;
    mnuFileExit: TMenuItem;
    actFileExit: TFileExit;
    txtProject: TText;
    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
  frmActiveProject: TfrmActiveProject;

implementation

uses
  F_ProjectList;

{$R *.fmx}

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmActiveProject.FormCreate(Sender: TObject);
begin
  SetProjectActive(btnProject, True);
  btnProjectClick(btnProject);
end;

{ ------------------------------------------------------------------------------------------------ }
function FindDescendantByClass(const Control: TFmxObject; const TargetClass: TClass; const Recursive: Boolean = False; const SkipChild: TFmxObject = nil): TFmxObject;
................................................................................
        Exit;
    end;
  end;
  Result := nil;
end {FindDescendantByClass};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmActiveProject.SetProjectActive(const Button: TCustomButton; const Active: Boolean);
var
  Shape: TShape;
  Animation: TBitmapAnimation;
begin
  if Active then begin
    Button.Font.Style := [TFontStyle.fsBold];
    Button.Opacity := 1;
................................................................................
    end else begin
      (Animation.Parent as TImage).Bitmap.Assign(Animation.StopValue);
    end;
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmActiveProject.actViewProjectsExecute(Sender: TObject);
var
  F: TfrmProjectList;
begin
  F := TfrmProjectList.Create(Self);
  try
    if F.ShowModal = mrOk then begin

    end;
  finally
    F.Free;
  end;
end {TForm4.Action1Execute};

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmActiveProject.btnProjectClick(Sender: TObject);
var
  Button: TCustomButton;
  Child: TFmxObject;
begin
  if Sender is TCustomButton then begin
    Button := TCustomButton(Sender);
    if not (TFontStyle.fsBold in Button.Font.Style) then begin
................................................................................
      Button := TCustomButton(Child);
      SetProjectActive(Button, False);
    end;
  end;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TfrmActiveProject.ControlDragMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
begin
  if Button = TMouseButton.mbLeft then begin
    Self.StartWindowDrag;
  end;
end;

end.

Added ProjectIt/src/F_ActiveProject.vlb.















































































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
[btnProject3]
Coordinates=246,132,70,33

[efctGlow2]
Coordinates=12,159,63,33

[efctGlow3]
Coordinates=257,1,63,33

[efctGlow]
Coordinates=257,53,57,33

[anmProjectIcon]
Coordinates=257,105,91,33

[imgIcon]
Coordinates=10,10,53,51

[rndrctTime]
Coordinates=168,132,68,33

[btnProject]
Coordinates=93,132,65,33

[imgIcon3]
Coordinates=205,10,59,51

[anmProject2Icon]
Coordinates=386,1,97,33

[txtTime]
Coordinates=10,71,50,51

[rndrctTime2]
Coordinates=10,132,73,33

[txtTime2]
Coordinates=73,10,56,51

[imgIcon2]
Coordinates=274,10,59,51

[txtTime3]
Coordinates=139,10,56,51

[btnProject2]
Coordinates=229,71,70,33

[rndrctTime3]
Coordinates=146,71,73,33

[anmProject3Icon]
Coordinates=386,157,97,33

[lytProjects]
Coordinates=70,71,66,33

[pumMenu]
Coordinates=302,80,79,33

[aclProject]
Coordinates=371,53,70,33

[actViewProjects]
Coordinates=302,80,52,33

[mnuViewProjects]
Coordinates=371,1,100,33

[MenuItem1]
Coordinates=371,53,68,33

[mnuFileExit]
Coordinates=371,105,72,33

[actFileExit]
Coordinates=337,157,56,33

[frmProjectList.dsProjects]
Coordinates=188,176,139,51

[frmProjectList.srcPrototype]
Coordinates=521,1,150,87

[txtProject]
Coordinates=365,157,61,51

Added ProjectIt/src/F_ProjectList.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
object frmProjectList: TfrmProjectList
  Left = 0
  Top = 0
  Caption = 'Projects'
  ClientHeight = 480
  ClientWidth = 640
  Position = poOwnerFormCenter
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [dkDesktop, dkiPhone, dkiPad]
  DesignerMobile = False
  DesignerWidth = 0
  DesignerHeight = 0
  DesignerDeviceName = ''
  DesignerOrientation = 0
  object lvProjects: TListView
    ItemAppearanceClassName = 'TImageListItemRightButtonAppearance'
    ItemEditAppearanceClassName = 'TImageListItemRightButtonShowCheckAppearance'
    HeaderAppearanceClassName = 'TListHeaderObjects'
    FooterAppearanceClassName = 'TListHeaderObjects'
    EditModeOptions = [DisallowSelection, HideSelection, ClearWhenStart]
    EditMode = False
    ItemIndex = 0
    Anchors = [akLeft, akTop, akRight, akBottom]
    Height = 457.000000000000000000
    Position.X = 8.000000000000000000
    Position.Y = 8.000000000000000000
    TabOrder = 0
    Width = 537.000000000000000000
  end
  object btnOK: TButton
    Default = True
    Height = 22.000000000000000000
    ModalResult = 1
    Position.X = 552.000000000000000000
    Position.Y = 8.000000000000000000
    TabOrder = 1
    Text = 'OK'
    Width = 81.000000000000000000
  end
  object btnCancel: TButton
    Cancel = True
    Default = True
    Height = 22.000000000000000000
    ModalResult = 2
    Position.X = 552.000000000000000000
    Position.Y = 40.000000000000000000
    TabOrder = 2
    Text = 'Cancel'
    Width = 81.000000000000000000
  end
  object dsProjects: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 584
    Top = 400
  end
  object srcPrototype: TPrototypeBindSource
    AutoActivate = True
    AutoPost = False
    FieldDefs = <
      item
        Name = 'Project'
        Generator = 'ContactTitles'
        Options = [optShuffle]
        ReadOnly = False
      end
      item
        Name = 'ID'
        FieldType = ftInteger
        Generator = 'UIntegers'
        Options = []
        ReadOnly = True
      end>
    ScopeMappings = <>
    Left = 584
    Top = 344
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 20
    Top = 5
    object LinkListControlToField1: TLinkListControlToField
      Category = 'Quick Bindings'
      DataSource = srcPrototype
      FieldName = 'Project'
      Control = lvProjects
      FillExpressions = <>
      AutoBufferCount = False
      FillHeaderExpressions = <>
      FillBreakGroups = <>
    end
  end
end

Added ProjectIt/src/F_ProjectList.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
35
unit F_ProjectList;

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.ListView.Types, FMX.ListView, Data.Bind.GenData,
  System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt,
  Fmx.Bind.DBEngExt, Data.Bind.Components, Data.Bind.ObjectScope, Data.DB,
  Datasnap.DBClient;

type
  TfrmProjectList = class(TForm)
    lvProjects: TListView;
    btnOK: TButton;
    btnCancel: TButton;
    dsProjects: TClientDataSet;
    srcPrototype: TPrototypeBindSource;
    BindingsList1: TBindingsList;
    LinkListControlToField1: TLinkListControlToField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProjectList: TfrmProjectList;

implementation

{$R *.fmx}

end.

Added ProjectIt/src/F_ProjectList.vlb.

















































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[lvProjects]
Coordinates=10,10,89,177
Visible=True

[btnCancel]
Coordinates=370,10,72,58
Visible=False

[dsProjects]
Coordinates=330,40,66,51

[srcPrototype]
Coordinates=127,10,77,87

[btnOK]
Coordinates=95,188,51,58
Visible=False

[]
Coordinates=136,87,142,58

[BindingsList1]
Coordinates=136,131,91,36

Added ProjectIt/src/F_Projects.vlb.

















































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[btnCancel]
Coordinates=289,10,72,58
Visible=False

[lvwProjects]
Coordinates=233,10,116,212
Visible=True

[PrototypeBindSource1]
Coordinates=10,65,143,102

[btnOK]
Coordinates=371,10,51,58
Visible=False

[]
Coordinates=135,155,91,36

[BindingsList1]
Coordinates=145,109,91,36

[imlProjectStates]
Coordinates=0,0,77,36

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

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.




|
|
>





<
|


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' {frmActiveProject},
  F_Projects in '..\F_Projects.pas' {frmProjects},
  F_ProjectList in '..\F_ProjectList.pas' {frmProjectList};

{$R *.res}

begin
  Application.Initialize;

  Application.CreateForm(TfrmActiveProject, frmActiveProject);
  Application.Run;
end.

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

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
..
34
35
36
37
38
39
40






41
42
43
44
45
46
47


48
49

50
51
52
53
54
55
56
..
68
69
70
71
72
73
74




75
76
77
78
79
80
81
..
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
...
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
    <PropertyGroup>
        <ProjectGuid>{3EC74676-A1B3-4682-90A5-9209A2735431}</ProjectGuid>
        <ProjectVersion>14.6</ProjectVersion>
        <FrameworkType>FMX</FrameworkType>
        <MainSource>ProjectIt.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>1</TargetedPlatforms>
        <AppType>Application</AppType>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
        <Base_OSX32>true</Base_OSX32>
................................................................................
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
        <Cfg_1_Win32>true</Cfg_1_Win32>
        <CfgParent>Cfg_1</CfgParent>
        <Cfg_1>true</Cfg_1>
        <Base>true</Base>






    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
        <Cfg_2>true</Cfg_2>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base)'!=''">


        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
        <Manifest_File>None</Manifest_File>

        <DCC_UnitSearchPath>..\;.\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
        <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
        <VerInfo_Locale>1043</VerInfo_Locale>
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
        <DCC_DcuOutput>..\..\out\DCU\$(Platform)\$(Config)</DCC_DcuOutput>
        <DCC_ExeOutput>..\..\out\$(Platform)\$(Config)</DCC_ExeOutput>
................................................................................
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win64)'!=''">




        <DCC_UsePackage>bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;TeeDB;bindcomp;vclib;DBXInterBaseDriver;Tee;DataSnapCommon;xmlrtl;ibxpress;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;MetropolisUILiveTile;vclactnband;bindengine;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;vcltouch;CustomIPTransport;vclribbon;VclSmp;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;IndyIPCommon;CloudService;dsnapcon;FmxTeeUI;inet;fmxobj;vclx;inetdbxpress;webdsnap;fmxdae;dbexpress;adortl;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1)'!=''">
        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
        <DCC_DebugDCUs>true</DCC_DebugDCUs>
        <DCC_Optimize>false</DCC_Optimize>
        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
................................................................................
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>





    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
        <DCC_DebugInformation>false</DCC_DebugInformation>
    </PropertyGroup>
    <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>
................................................................................
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp180.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                </Excluded_Packages>
            </Delphi.Personality>
            <Deployment/>
            <Platforms>
                <Platform value="OSX32">False</Platform>
                <Platform value="Win32">True</Platform>
                <Platform value="Win64">False</Platform>
            </Platforms>
        </BorlandProject>
        <ProjectFileVersion>12</ProjectFileVersion>
    </ProjectExtensions>
    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>







|
|







 







>
>
>
>
>
>







>
>

<
>







 







>
>
>
>







 







>
>
>
>
>











|





>
>
>
>







 







|







2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
..
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
..
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
..
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
...
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
    <PropertyGroup>
        <ProjectGuid>{3EC74676-A1B3-4682-90A5-9209A2735431}</ProjectGuid>
        <ProjectVersion>14.6</ProjectVersion>
        <FrameworkType>FMX</FrameworkType>
        <MainSource>ProjectIt.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <Platform Condition="'$(Platform)'==''">Win64</Platform>
        <TargetedPlatforms>3</TargetedPlatforms>
        <AppType>Application</AppType>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
        <Base_OSX32>true</Base_OSX32>
................................................................................
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
        <Cfg_1_Win32>true</Cfg_1_Win32>
        <CfgParent>Cfg_1</CfgParent>
        <Cfg_1>true</Cfg_1>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
        <Cfg_1_Win64>true</Cfg_1_Win64>
        <CfgParent>Cfg_1</CfgParent>
        <Cfg_1>true</Cfg_1>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
        <Cfg_2>true</Cfg_2>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base)'!=''">
        <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>

        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_UnitSearchPath>..\;.\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
        <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
        <VerInfo_Locale>1043</VerInfo_Locale>
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
        <DCC_DcuOutput>..\..\out\DCU\$(Platform)\$(Config)</DCC_DcuOutput>
        <DCC_ExeOutput>..\..\out\$(Platform)\$(Config)</DCC_ExeOutput>
................................................................................
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win64)'!=''">
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_UsePackage>bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;TeeDB;bindcomp;vclib;DBXInterBaseDriver;Tee;DataSnapCommon;xmlrtl;ibxpress;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;MetropolisUILiveTile;vclactnband;bindengine;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;vcltouch;CustomIPTransport;vclribbon;VclSmp;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;IndyIPCommon;CloudService;dsnapcon;FmxTeeUI;inet;fmxobj;vclx;inetdbxpress;webdsnap;fmxdae;dbexpress;adortl;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1)'!=''">
        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
        <DCC_DebugDCUs>true</DCC_DebugDCUs>
        <DCC_Optimize>false</DCC_Optimize>
        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
................................................................................
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
        <DCC_DebugInformation>false</DCC_DebugInformation>
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="..\F_ActiveProject.pas">
            <Form>frmActiveProject</Form>
            <FormType>fmx</FormType>
        </DCCReference>
        <DCCReference Include="..\F_Projects.pas">
            <Form>frmProjects</Form>
            <FormType>dfm</FormType>
        </DCCReference>
        <DCCReference Include="..\F_ProjectList.pas">
            <Form>frmProjectList</Form>
            <FormType>fmx</FormType>
        </DCCReference>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">
            <Key>Base</Key>
................................................................................
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp180.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                </Excluded_Packages>
            </Delphi.Personality>
            <Deployment/>
            <Platforms>
                <Platform value="OSX32">False</Platform>
                <Platform value="Win32">True</Platform>
                <Platform value="Win64">True</Platform>
            </Platforms>
        </BorlandProject>
        <ProjectFileVersion>12</ProjectFileVersion>
    </ProjectExtensions>
    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

Changes to ProjectIt/src/prj/ProjectIt.res.

cannot compute difference between binary files