-
Notifications
You must be signed in to change notification settings - Fork 6
Expand file tree
/
Copy pathfMain.fmx
More file actions
1134 lines (1134 loc) · 46 KB
/
Copy pathfMain.fmx
File metadata and controls
1134 lines (1134 loc) · 46 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
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
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'd-calc'
ClientHeight = 548
ClientWidth = 320
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 2
object TabControl: TTabControl
Align = Client
FullSize = True
Size.Width = 320.000000000000000000
Size.Height = 548.000000000000000000
Size.PlatformDefault = False
TabHeight = 49.000000000000000000
TabIndex = 0
TabOrder = 0
TabPosition = Bottom
OnChange = TabControlChange
object tabCalculate: TTabItem
CustomIcon.LoadSize = 1
CustomIcon = <
item
Width = 32
Height = 32
PNG = {
89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
035E494441545847E5964B48546114C7EF9D87E51865D014EDC636658BC42808
F2412D2A2A080217B52A0B8A288836418E902F82E801522D22D25615D1A24592
45A5569210BD16C640284CD803947C344C8DF3E877EEFD46D4D1EB37898BF00F
C773CE7FBEFB9D73CF77BE7335E63D4CA5A782595D5D7D0E7D0059613159221E
8FF77B3C9EDB2E97EB544D4D4D5CD113E0523A03C160701FEA34F24FC105045F
863A4122876C2613D326609AE67A655A18181888A17EEAC8F0F0F06FF418D86B
A33233E0513A03A954CACD8369FB96DFEFAFA48C498B98196655555523A53F6E
39A6E9B6D829306D05C6838D5AB3082E48F14C8BB21DA1954032994C29531BBA
CF68253097F83F12A08902CAD4063DB04A998E98761031072E13F8A472479156
6E43D47667440ECFEE402FB05DA3B9AEAEEEA0B22740F708BCC86E36ADD0943D
AC4F0777846E0229BAFA05D2A37C0B54E423F256B916581346B5757474685D5B
DD042E34343494315A8B1289C477C575BADDEEE2FAFAFA0D046D55DC106B8A29
F796D2D2D2B38A73846E025FE50FC32842D021B179F36F6A38A528B9F53BC945
BABBBBADDF419FD28ED06AC2582C36E8F57AAFE1AFC1DD2B9C94B8A4A4E43A66
9C8E3F82963E11B4C8B1B05638BF4DCDB209737272F2D9F00CA6155C50565646
5CD75144E67D3AB860276B83E8747047E81E81A1BE7013C66B381C966FBC5CD1
C9D0BDAE7A0950D27BF9F9F94BD085B823366B840281C04A2AB01CFB9D4D197F
F08B91C5D8CD36E50CAD04D8F0090D17A3E343B89F6DD6E882EB4706B905AF84
40F7E1BF47E21CC3236BD50CD09D8421363F865F845CC437A3D1E82F9FCF7718
7E14EE06DC5259489582F82FD18DE875C281594FC2D554E1291B5EC2B692CECD
CD5D44903B70F771ADE002FC7A54DBB8E08ED06EC2B9826E021F28F566DEAA32
3D62653650815DF0DB717F08076464CBB5DCC450EAB22967E8DE822B8CE2CEDA
DADA26EEBFD5F10CA60734650BFC637EBF6B2D348C1EFCAB9C77174726C73523
B49A90000F19C1FB79BBC24824F22C2F2FCF07DD4B90ADE8386FDBCADAB5D8A3
ACD9C6F7E00DDC4DB80A791E64DF843C9C50A6D8526A99F1AF557041015C2FF2
4505177849EA39DCC8B8E0F202637B4D8653025A67A8894EA53330EDFFEBEDED
ED9FCACBCB17621620F206328AB31569D4A65028749EAF64D6FF59CF0718C65F
C8577B87E0D11C2F0000000049454E44AE426082}
FileName = 'C:\Users\svanas\Desktop\32x32\32x32\calculate1.png'
end>
IsSelected = True
Size.Width = 106.000000000000000000
Size.Height = 49.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabitemcustom'
TabOrder = 0
Text = 'Calculate'
ExplicitSize.cx = 50.000000000000000000
ExplicitSize.cy = 49.000000000000000000
object rctGlucose: TRoundRect
Fill.Color = claGhostwhite
HitTest = False
Position.X = 110.000000000000000000
Position.Y = 117.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF007AFF
object btnGlucose: TButton
Align = Client
StyledSettings = [Family]
Locked = True
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = '0.0'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.FontColor = claDarkred
OnClick = btnGlucoseClick
end
end
object lblGlucose1: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 8.000000000000000000
Position.Y = 129.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'Glucose:'
end
object lblUnits: TLabel
StyledSettings = [Family, FontColor]
Position.X = 8.000000000000000000
Position.Y = 32.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 80.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 60.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.HorzAlign = Center
TextSettings.WordWrap = False
Text = '0'
end
object Line1: TLine
LineType = Top
Position.X = 8.000000000000000000
Position.Y = 106.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 1.000000000000000000
Size.PlatformDefault = False
end
object rctCarbs: TRoundRect
Fill.Color = claGhostwhite
HitTest = False
Position.X = 110.000000000000000000
Position.Y = 165.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF007AFF
object btnCarbs: TButton
Align = Client
StyledSettings = [Family]
Locked = True
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = '0'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.FontColor = claNull
OnClick = btnCarbsClick
OnMouseDown = btnCarbsMouseDown
OnMouseUp = btnCarbsMouseUp
end
end
object lblCarbs1: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 8.000000000000000000
Position.Y = 177.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'Carbohydrates:'
end
object lblGlucose2: TLabel
AutoSize = True
StyledSettings = [Family, Style, FontColor]
Position.X = 216.000000000000000000
Position.Y = 129.000000000000000000
Size.Width = 42.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'mmol/l'
end
object lblCarbs2: TLabel
AutoSize = True
StyledSettings = [Family, Style, FontColor]
Position.X = 216.000000000000000000
Position.Y = 177.000000000000000000
Size.Width = 37.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'grams'
end
object rctExercise: TRoundRect
Fill.Color = claGhostwhite
HitTest = False
Position.X = 110.000000000000000000
Position.Y = 213.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF007AFF
object btnExercise: TButton
Align = Client
StyledSettings = [Family]
Locked = True
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = '0'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.FontColor = claNull
OnClick = btnExerciseClick
end
end
object lblExercise1: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 8.000000000000000000
Position.Y = 225.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'Exercise:'
end
object lblExercise2: TLabel
AutoSize = True
StyledSettings = [Family, Style, FontColor]
Position.X = 216.000000000000000000
Position.Y = 225.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = '%'
end
object cExercise: TCircle
Fill.Color = claNull
Position.X = 283.000000000000000000
Position.Y = 220.000000000000000000
Size.Width = 26.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF595858
object pExercise: TPie
Align = Client
Fill.Color = xFF595858
Size.Width = 26.000000000000000000
Size.Height = 26.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF595858
StartAngle = -90.000000000000000000
EndAngle = -90.000000000000000000
object aniExercise: TFloatAnimation
Duration = 0.200000002980232200
PropertyName = 'EndAngle'
StartValue = 0.000000000000000000
StopValue = 0.000000000000000000
end
end
end
object rctInsulin: TRoundRect
Fill.Color = claGhostwhite
HitTest = False
Position.X = 110.000000000000000000
Position.Y = 261.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF007AFF
object cboInsulin: TComboBox
Align = VertCenter
DisableFocusEffect = False
Opacity = 0.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
OnChange = cboInsulinChange
end
object lblInsulinName: TLabel
Align = VertCenter
AutoTranslate = False
StyledSettings = [Family]
Locked = True
Position.Y = 9.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 14.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.FontColor = xFF007AFF
TextSettings.HorzAlign = Center
end
end
object lblInsulin: TLabel
StyledSettings = [Family, Style, FontColor]
Position.X = 8.000000000000000000
Position.Y = 273.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'Insulin:'
end
object TB: TToolBar
Size.Width = 320.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
TabOrder = 14
object btnAuto: TSpeedButton
StaysPressed = True
Align = MostLeft
GroupName = 'TOD'
IsPressed = True
Margins.Left = 8.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 76.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toolbuttonleft'
Text = 'Automatic'
OnClick = tbClick
end
object btnMorning: TSpeedButton
StaysPressed = True
Align = Left
GroupName = 'TOD'
Position.X = 84.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 76.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toolbuttonmiddle'
Text = 'Morning'
OnClick = tbClick
end
object btnDay: TSpeedButton
StaysPressed = True
Align = Right
GroupName = 'TOD'
Position.X = 160.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 76.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toolbuttonmiddle'
Text = 'Day'
OnClick = tbClick
end
object btnEvening: TSpeedButton
StaysPressed = True
Align = MostRight
GroupName = 'TOD'
Margins.Right = 8.000000000000000000
Position.X = 236.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 76.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toolbuttonright'
Text = 'Evening'
OnClick = tbClick
end
end
object pnlBottom: TPanel
Align = Bottom
Position.Y = 417.000000000000000000
Size.Width = 320.000000000000000000
Size.Height = 82.000000000000000000
Size.PlatformDefault = False
TabOrder = 15
object rctDiabetesDiary: TRoundRect
Fill.Color = claGhostwhite
HitTest = False
Position.X = 86.000000000000000000
Size.Width = 192.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
Stroke.Color = xFF007AFF
object btnDiabetesDiary: TButton
Align = Client
StyledSettings = [Family]
Locked = True
Size.Width = 192.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = 'Send to Diabetes Diary'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.Font.Style = [fsBold]
TextSettings.FontColor = claNull
OnClick = btnDiabetesDiaryClick
end
end
object imgDiabetesDiary: TImage
MultiResBitmap = <
item
end>
Position.X = 42.000000000000000000
Size.Width = 40.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
end
object lblIOB: TLabel
StyledSettings = [Family, Style]
Position.X = 8.000000000000000000
Position.Y = 57.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 10.000000000000000000
TextSettings.FontColor = xFF595858
TextSettings.HorzAlign = Center
Text = 'Insulin On Board: 0 units (00:00 hrs remaining)'
end
object Line2: TLine
LineType = Top
Position.X = 8.000000000000000000
Position.Y = 52.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 1.000000000000000000
Size.PlatformDefault = False
end
end
object tmrClipboard: TTimer
Enabled = False
Interval = 450
OnTimer = tmrClipboardTimer
end
end
object tabIOB: TTabItem
CustomIcon.LoadSize = 1
CustomIcon = <
item
Width = 32
Height = 32
PNG = {
89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
04A8494441545847ED975B689C5510C7F796CAB6B1C6A24694AC69ED2ADA5AA9
F6A21842558C37FA502482C552AAF4414B946069730FB9471F8C78A131FA5023
11646B7C28141ADA5A128AD65B2F885691D6240A1A8D954DC9C6EC6ED6DF9C6F
FAF97D9BB589DD8808FE613273E6CC9C9973BE3973369EFFF16FC3AF3C23EAEB
EB434545450B070606A2AA9A737895DBA8ADADDD904AA5B67ABDDE550CAF145D
2291180904029F2276363535ED15DD5CC14EA0A2A2E2F29C9C9C5711370E0D0D
250A0A0ABE40FEC44C7A3CAB878787978742A100C9BD4D42CFB6B7B79FD5B9AC
E0933F65656597107C007123D4575858787D7373F3CA9191916D42228B4EE638
994D622B3EE29B2D4C027979790DB065ECEE058EF8FE86868621D1E7E7E73F25
24B2E8644E6CC4567DB286AFA6A6E616F876E804BBAD31DA3FB108CAB3440B6A
7302DAAEBE59414EE001486E43655757575C94E7C16E2F85CDB74616D4A61212
1FF1CD0A3EADF694CFE7FBD052B9105672416D53EA9B15BC1CE3D7EC745E4B4B
CB62D519D003164E4D4DFD86E82560981AF8D69AB1505D5D7D86F9F95C4F29C6
D3C81B5863D09A9D3DE404BE27403E0103AA3320A0349FFD722559BCA7BCBC3C
68CD98E402E2836F82E165D04AC68F98C9BF0909FA19740FB41C3A0ED9A0EA1F
A431AD45DC9B9B9BDB0D2F3513966DD0EFF73B3BE43CF9C3C99490CC6D46E346
147D2F1BFB51C70652844745A0B96C159E0E9238CA09DC8978C6D2B86CAF506E
C0C9AC20C87EC4B60CF41AEB1C2741E92736BCA5A5A5FE70387C84DDAC617C2F
013FB0A6328313B91B7610FA0532AD5A51492D9DE2B3BCAFE38CC0E624B1D672
121332F645229124596F8E46A3BFC7E3F13D14A574C38C9039B1191D1D95ABE8
0C9E1104DBC286BC42C42840F50309AE4826932F5B168EB7809DBD0B7B185A00
F5E1BC0F326F014EABA187104B62B1D8B96030283DC02E4AC5B413900468E3BB
75684EAFBFBFFF407171B114FFE38D8D8D3DA6152BE41B2F90970F5E82C14B64
7D444864D1413F113C179E1E7C5690CF4BF0E7451E1F1FEFA41E163B1330E05E
5FA5A287E3FE15360AA58C82E741F945830DD5C13ED68DEC707E8276D84E6B74
51C85484DB08F88ECA36A881756A3738ED04E61872F5CEA69323C9EBFEE90466
C47F228118D407C9711EA4074C1AEDECF03375F11EFC75485AFE34B81EA00C38
44D0279CAF1CEDF606746F21DE6169FE12BB28C01D74BC733A9642BF8F02ECA6
135EAD2A57234ABF055FB180B4E745047C9A9DACA77822F4895DE8A6B8AEC7E0
D78AA1C2BE05F0080DE8D1AAAAAA55ACF10CBA9B59E30DEE7E37D7EF5612E8C7
3E479CEC4F80D349150D707845B287F732DC298BC0EB09BCBBADAD4D8E568ED5
06769FB3B0AC91849AE457B604C26F13E3DB49A49317F5B9D6D6D68F189F7F6F
8EB9FE2F20E335185E2332CE87614B5838FDDBC9AFA7A593939363D8DC250AF8
6992351BE01315227FC7BB514EF01745E7C020BE4BF80C3732B7746262E2B02B
8174E8F73E85E8B48BB3488820AE773D1D7575754F724A6FEAD080F1977C9A65
3A34B8E02D20C83724704887062CB267A6E082B1B131E980D2C66DB06BA91F17
66BC8614CE7A826E41EC853FC6CFF2CDD6CC85D1D1D111A3606F42ACC6AF07BE
8EC748FEF372C0E3F903AEEA17D7A06C16BA0000000049454E44AE426082}
FileName = 'C:\Users\svanas\Desktop\32x32\32x32\IOB2.png'
end>
IsSelected = False
Size.Width = 106.000000000000000000
Size.Height = 49.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabitemcustom'
TabOrder = 0
Text = 'Insulin On Board'
ExplicitSize.cx = 50.000000000000000000
ExplicitSize.cy = 49.000000000000000000
object lblEmptyIOB: TLabel
Align = Center
AutoSize = True
Size.Width = 226.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'You have no Insulin On Board'
end
object lvIOB: TListView
ItemAppearanceClassName = 'TCustomizeItemObjects'
ItemEditAppearanceClassName = 'TCustomizeItemObjects'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TListHeaderObjects'
AllowSelection = False
Align = Client
Size.Width = 50.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
ItemAppearanceObjects.ItemObjects.Detail.TextAlign = Trailing
ItemAppearanceObjects.ItemObjects.Detail.Visible = True
OnDeleteItem = lvIOBDeleteItem
end
end
object tabSettings1: TTabItem
CustomIcon.LoadSize = 1
CustomIcon = <
item
Width = 32
Height = 32
PNG = {
89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7A
F4000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
0487494441545847AD967F489D6514C75FAFBF2E73DEB116BA3FCA8A392B70A3
C55A0CC26C2D18415B6E44FD918B288458B52244BA5E733715B6AC6D1414C5EA
8F4D5A4C363689A24651B97E11B448B862FDA149602D44B1FC955EED739EE7DC
D7F7BD2ABD77DE2F1CCE8FE7799F739E73CEF33C6F8E9365C462B14DF3F3F375
79797947E2F1F8EF626B6E6EBE766E6EEE5028147A07DBCF66A222A43C6BC8C9
C9398DA3A793C9E4713539387F0D7600FE91B52C20EB01B0FBEF8413C8BEA6A6
A6CFA08BA8FB75EC1BE15E643500521DC2F15A55053BA09D563458E46FC53D10
8D46B7E6E6E69ED3DD8509608F1D59161DD014F3ABF8EEE15C6BBB7A545757C7
60F7E2B812BAC55A0D2E43AF409FE06C3D63EB8DD5713643B7A3AFC39E5C7109
6667679B61EF5BCDC5651A71674B4BCB7121E648197AEC908B2E9AF248D68E21
CDD60DBB4B64167EB6ADADED0D915360FC39D831AB395F10D83D2264B309DDB5
D87D52C5E530AB7CE54DD8D8D878030E5F47DC6D2D8EC31DF0FDCCCCCC7DEDED
ED7F8BDED0D0B08686BB08DD6126589CE4BB17561C0037DF091AEA0955BD9053
71CA8ACEE3D0362B2E8052BDF9BF01C8D96647BD382944FD81DA3D64472CA8ED
9D74F349C6C56104DA6B0696871CD924CEB723D70409A09CC9BFAA3A4200D7A8
BC081AEC398259F22EC0F1D9D6D656D9C0BCB5A43521BBD9434A1F55D580052B
5514ACA5E6D7AB6C1C32BF017E9BE83C3473389F3183169708FE6B95E57A969E
709D0BDC0CB0D05E267C80984FA4A738BB0779D1E4828962DB6226597441AFD2
40FDCCE980DF8D3E0CDF212F1D9BF803BD14EA205BB570595BB252C3BABF9081
9BC596823703F743F92230B9766868E80ABC13D5EB5C20DDFED5C0C040BF3A17
AC63A772EF0B6AA0F7380572EE0D187B06E7EFC21F53930B3703A47135137E42
DC602D19E173762BB79D2FBD41E06680F4FD037BCA6A8B313838E85E1E5E889D
4CC8CE32762E48BF0937294F41167D8BCC944F4C4C847124E5F8D08C28CACACA
F218BF49D58C614A505757975F5252524E9DBA70526E4600FA619AE645555DD0
545DF4C703AA0AE46191FBFF37D5032344D7264A4B4BC75930E1753E363636C5
D51957D507EC2FA998C26EBE1D60AD31823BA3B6409012DC0A99EEF7221289F4
D21753AAFA9048247A96E989623622EF7D6084C6C7C72754F6617A7A7A835C34
AAFA50515171A3D45ED57448330746A81890BE8DD45BCEEF9FD6EC3885858511
EAFAA4AAE970CFB88079DFC276716B5EC771DC6AADC1E07B0BA8E1CBC2ACE638
929DA2A2A2E709F0845CB364248C93C6EEEEEE68555595373B0FE2F882CA19C1
976276F2A98A06385F057B7B72727284E07E1C1D1D1DA1C631AF73BD07BE5435
63B80BC951A40C4755F541CA01DB426386AD6501D20B64457E48AE0A6E001CC5
78DA1F4B6090955A8E9FEF150D0A6F09AE284F3595FC60B6417F89CD835EB974
E0BBA07E310C0F0FFF0B1B153953F89A905D1C84ADEEEBEB3BDCD9D9697E2CB1
3DC20E4F8B2CA04C15DC8EE607A5BEBEBEB8A0A0409EE6F334E1C7664286F005
B014E8FC4A766CFEE9E554C8B195136106B300DF29580AFC17F4C1CC5F4E381C
EEC9A673C7719CFF00EA09D2D62F0D0F3B0000000049454E44AE426082}
FileName = 'C:\Users\svanas\Desktop\32x32\32x32\settings2.png'
end>
IsSelected = False
Size.Width = 108.000000000000000000
Size.Height = 49.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabitemcustom'
TabOrder = 0
Text = 'Settings'
ExplicitSize.cx = 50.000000000000000000
ExplicitSize.cy = 49.000000000000000000
object tabSettings2: TTabControl
Align = Client
FullSize = True
Size.Width = 320.000000000000000000
Size.Height = 499.000000000000000000
Size.PlatformDefault = False
TabHeight = 49.000000000000000000
TabIndex = 2
TabOrder = 0
TabPosition = None
object tabInsulins: TTabItem
CustomIcon = <
item
end>
IsSelected = False
Size.Width = 11.000000000000000000
Size.Height = 11.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = 'tabInsulins'
ExplicitSize.cx = 50.000000000000000000
ExplicitSize.cy = 50.000000000000000000
object tbInsulins: TToolBar
Size.Width = 50.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object btnBack1: TSpeedButton
Align = Left
Margins.Left = 8.000000000000000000
Position.X = 8.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'backtoolbutton'
Text = 'Back'
OnClick = btnBack1Click
end
object btnAdd: TSpeedButton
Align = Right
Position.X = 6.000000000000000000
Size.Width = 44.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'addtoolbutton'
Text = 'btnAdd'
OnClick = btnAddClick
end
end
object lvInsulins: TListView
ItemAppearanceClassName = 'TImageListItemBottomDetailAppearance'
ItemEditAppearanceClassName = 'TImageListItemBottomDetailShowCheckAppearance'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TListHeaderObjects'
Align = Client
Size.Width = 50.000000000000000000
Size.Height = 6.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
OnItemClick = lvInsulinsItemClick
OnDeleteItem = lvInsulinsDeleteItem
OnDeleteChangeVisible = lvInsulinsDeleteChangeVisible
end
end
object tabInsulin: TTabItem
CustomIcon = <
item
end>
IsSelected = False
Size.Width = 11.000000000000000000
Size.Height = 11.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = 'tabInsulin'
ExplicitSize.cx = 50.000000000000000000
ExplicitSize.cy = 50.000000000000000000
object tbInsulin: TToolBar
Size.Width = 50.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object btnBack2: TSpeedButton
Align = Left
Margins.Left = 8.000000000000000000
Position.X = 8.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'backtoolbutton'
Text = 'Back'
OnClick = btnBack2Click
end
end
object edtName: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 1
Position.X = 168.000000000000000000
Position.Y = 52.000000000000000000
Size.Width = 144.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
end
object lblName: TLabel
Position.X = 8.000000000000000000
Position.Y = 57.000000000000000000
Size.Width = 152.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'Insulin name:'
end
object edtDuration: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 3
KeyboardType = NumberPad
Position.X = 168.000000000000000000
Position.Y = 90.000000000000000000
Size.Width = 144.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
end
object lblDuration: TLabel
Position.X = 8.000000000000000000
Position.Y = 95.000000000000000000
Size.Width = 152.000000000000000000
Size.Height = 21.000000000000000000
Size.PlatformDefault = False
TextSettings.HorzAlign = Trailing
TextSettings.WordWrap = False
Text = 'Duration (minutes):'
end
end
object tabGeneral: TTabItem
CustomIcon = <
item
end>
IsSelected = True
Size.Width = 11.000000000000000000
Size.Height = 11.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabitemcustom'
TabOrder = 0
ExplicitSize.cx = 50.000000000000000000
ExplicitSize.cy = 50.000000000000000000
object LB: TListBox
Align = Client
Size.Width = 320.000000000000000000
Size.Height = 499.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
DisableFocusEffect = True
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
Viewport.Width = 315.000000000000000000
Viewport.Height = 499.000000000000000000
object lbgTarget: TListBoxGroupHeader
Selectable = False
StyledSettings = [Family, FontColor, Other]
Size.Width = 315.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 6
Text = 'Target (mmol/l)'
end
object lbiTarget1: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 22.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 2
Text = 'Morning'
object edtTarget1: TEdit
Tag = 1
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtTarget1Exit
end
end
object lbiTarget2: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 66.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 3
Text = 'Day'
object edtTarget2: TEdit
Tag = 1
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtTarget2Exit
end
end
object lbiTarget3: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 110.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 4
Text = 'Evening'
object edtTarget3: TEdit
Tag = 1
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtTarget3Exit
end
end
object lbgCarbF: TListBoxGroupHeader
Selectable = False
StyledSettings = [Family, Style, FontColor, Other]
Position.Y = 154.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 7
Text = 'Carbohydrate Factor'
end
object lbiCarb1: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 176.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 8
Text = 'Morning'
object edtCarb1: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtCarbExit
end
end
object lbiCarb2: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 220.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 9
Text = 'Day'
object edtCarb2: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtCarbExit
end
end
object lbiCarb3: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 264.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 10
Text = 'Evening'
object edtCarb3: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtCarbExit
end
end
object lbgCorrF: TListBoxGroupHeader
Selectable = False
StyledSettings = [Family, Style, FontColor, Other]
Position.Y = 308.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 11
Text = 'Correction Factor'
end
object lbiCorr1: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 330.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 12
Text = 'Morning'
object edtCorr1: TEdit
Tag = 1
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtCorrExit
end
end
object lbiCorr2: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 374.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 13
Text = 'Day'
object edtCorr2: TEdit
Tag = 1
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000
Margins.Right = 8.000000000000000000
Size.Width = 75.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
KillFocusByReturn = True
OnKeyDown = edtKeyDown
OnExit = edtCorrExit
end
end
object lbiCorr3: TListBoxItem
Selectable = False
TextSettings.FontColor = xFF595858
StyledSettings = [Family, Size, Style, Other]
Position.Y = 418.000000000000000000
Size.Width = 315.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'listboxitemnodetail'
TabOrder = 14
Text = 'Evening'
object edtCorr3: TEdit
Tag = 1
Touch.InteractiveGestures = [LongTap, DoubleTap]
Align = MostRight
TabOrder = 0
KeyboardType = NumbersAndPunctuation
Position.X = 232.000000000000000000
Position.Y = 7.000000000000000000