Main.fmx

object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = 'Diabether'
  ClientHeight = 480
  ClientWidth = 640
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 2
  object TC: TTabControl
    Align = Client
    Size.Width = 640.000000000000000000
    Size.Height = 480.000000000000000000
    Size.PlatformDefault = False
    TabHeight = 49.000000000000000000
    TabIndex = 0
    TabOrder = 0
    TabPosition = PlatformDefault
    Sizes = (
      640s
      431s
      640s
      431s
      640s
      431s)
    object tabCalculate: TTabItem
      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}
        end>
      IsSelected = True
      Size.Width = 320.000000000000000000
      Size.Height = 49.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'tabitemcustom'
      TabOrder = 0
      Text = 'Calculate'
      ExplicitSize.cx = 213.000000000000000000
      ExplicitSize.cy = 49.000000000000000000
      object TB: TToolBar
        Size.Width = 640.000000000000000000
        Size.Height = 44.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        object GB: TGroupBox
          Align = HorzCenter
          Position.X = 160.000000000000000000
          Size.Width = 320.000000000000000000
          Size.Height = 44.000000000000000000
          Size.PlatformDefault = False
          TabOrder = 1
          object btnAuto: TSpeedButton
            StaysPressed = True
            Align = MostLeft
            GroupName = 'TOD'
            IsPressed = True
            Position.Y = 8.000000000000000000
            Size.Width = 80.000000000000000000
            Size.Height = 29.000000000000000000
            Size.PlatformDefault = False
            StyleLookup = 'toolbuttonleft'
            Text = 'Automatic'
            OnClick = tbClick
          end
          object btnDay: TSpeedButton
            StaysPressed = True
            Align = Right
            GroupName = 'TOD'
            Position.X = 160.000000000000000000
            Position.Y = 8.000000000000000000
            Size.Width = 80.000000000000000000
            Size.Height = 29.000000000000000000
            Size.PlatformDefault = False
            StyleLookup = 'toolbuttonmiddle'
            Text = 'Day'
            OnClick = tbClick
          end
          object btnEvening: TSpeedButton
            StaysPressed = True
            Align = MostRight
            GroupName = 'TOD'
            Position.X = 240.000000000000000000
            Position.Y = 8.000000000000000000
            Size.Width = 80.000000000000000000
            Size.Height = 29.000000000000000000
            Size.PlatformDefault = False
            StyleLookup = 'toolbuttonright'
            Text = 'Evening'
            OnClick = tbClick
          end
          object btnMorning: TSpeedButton
            StaysPressed = True
            Align = Left
            GroupName = 'TOD'
            Position.X = 80.000000000000000000
            Position.Y = 8.000000000000000000
            Size.Width = 80.000000000000000000
            Size.Height = 29.000000000000000000
            Size.PlatformDefault = False
            StyleLookup = 'toolbuttonmiddle'
            Text = 'Morning'
            OnClick = tbClick
          end
        end
      end
      object Line1: TLine
        Align = Top
        LineType = Top
        Margins.Left = 8.000000000000000000
        Margins.Right = 8.000000000000000000
        Position.X = 8.000000000000000000
        Position.Y = 124.000000000000000000
        Size.Width = 624.000000000000000000
        Size.Height = 50.000000000000000000
        Size.PlatformDefault = False
      end
      object lblUnits: TLabel
        Align = Top
        StyledSettings = [Family, FontColor]
        Position.Y = 44.000000000000000000
        Size.Width = 640.000000000000000000
        Size.Height = 80.000000000000000000
        Size.PlatformDefault = False
        TextSettings.Font.Size = 60.000000000000000000
        TextSettings.Font.StyleExt = {00070000000000000004000000}
        TextSettings.HorzAlign = Center
        Text = '0'
        TabOrder = 1
      end
      object GL: TGridPanelLayout
        Anchors = [akTop]
        Position.X = 8.000000000000000000
        Position.Y = 136.000000000000000000
        Size.Width = 624.000000000000000000
        Size.Height = 110.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 3
        ColumnCollection = <
          item
            Value = 50.000000000000000000
          end
          item
            SizeStyle = Absolute
            Value = 100.000000000000000000
          end
          item
            Value = 50.000000000000000000
          end>
        ControlCollection = <
          item
            Column = 0
            Control = lblGlucoseLeft
            Row = 0
          end
          item
            Column = 1
            Control = rctGlucose
            Row = 0
          end
          item
            Column = 2
            Control = lblGlucoseRight
            Row = 0
          end
          item
            Column = 0
            Control = lblCarbsLeft
            Row = 1
          end
          item
            Column = 1
            Control = rctCarbs
            Row = 1
          end
          item
            Column = 2
            Control = lblCarbsRight
            Row = 1
          end>
        RowCollection = <
          item
            Value = 50.000000000000000000
          end
          item
            Value = 50.000000000000000000
          end>
        object lblGlucoseLeft: TLabel
          Align = Client
          StyledSettings = [Family, Style, FontColor]
          Margins.Right = 8.000000000000000000
          Size.Width = 254.000000000000000000
          Size.Height = 55.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.HorzAlign = Trailing
          TextSettings.WordWrap = False
          Text = 'Glucose:'
          TabOrder = 7
        end
        object rctGlucose: TRoundRect
          Align = VertCenter
          Fill.Color = claGhostwhite
          HitTest = False
          Position.X = 262.000000000000000000
          Position.Y = 7.000000000000000000
          Size.Width = 100.000000000000000000
          Size.Height = 40.000000000000000000
          Size.PlatformDefault = False
          Stroke.Color = xFF007AFF
          object btnGlucose: TButton
            Align = Client
            StyledSettings = [Family]
            Size.Width = 100.000000000000000000
            Size.Height = 40.000000000000000000
            Size.PlatformDefault = False
            TabOrder = 0
            Text = '0.0'
            TextSettings.Font.Size = 20.000000000000000000
            TextSettings.Font.StyleExt = {00070000000000000004000000}
            TextSettings.FontColor = claDarkred
            OnClick = btnGlucoseClick
          end
        end
        object lblGlucoseRight: TLabel
          Align = Client
          StyledSettings = [Family, Style, FontColor]
          Margins.Left = 8.000000000000000000
          Size.Width = 254.000000000000000000
          Size.Height = 55.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.WordWrap = False
          Text = 'mmol/L'
          TabOrder = 4
        end
        object lblCarbsLeft: TLabel
          Align = Client
          StyledSettings = [Family, Style, FontColor]
          Margins.Right = 8.000000000000000000
          Size.Width = 254.000000000000000000
          Size.Height = 55.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.HorzAlign = Trailing
          TextSettings.WordWrap = False
          Text = 'Carbohydrates:'
          TabOrder = 6
        end
        object rctCarbs: TRoundRect
          Align = VertCenter
          Fill.Color = claGhostwhite
          HitTest = False
          Position.X = 262.000000000000000000
          Position.Y = 62.000000000000000000
          Size.Width = 100.000000000000000000
          Size.Height = 40.000000000000000000
          Size.PlatformDefault = False
          Stroke.Color = xFF007AFF
          object btnCarbs: TButton
            Align = Client
            StyledSettings = [Family]
            Size.Width = 100.000000000000000000
            Size.Height = 40.000000000000000000
            Size.PlatformDefault = False
            TabOrder = 0
            Text = '0'
            TextSettings.Font.Size = 20.000000000000000000
            TextSettings.Font.StyleExt = {00070000000000000004000000}
            TextSettings.FontColor = claNull
            OnClick = btnCarbsClick
          end
        end
        object lblCarbsRight: TLabel
          Align = Client
          StyledSettings = [Family, Style, FontColor]
          Margins.Left = 8.000000000000000000
          Size.Width = 254.000000000000000000
          Size.Height = 55.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.WordWrap = False
          Text = 'grams'
          TabOrder = 3
        end
      end
    end
    object tabIOB: TTabItem
      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}
        end>
      IsSelected = False
      Size.Width = 213.000000000000000000
      Size.Height = 49.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'tabitemcustom'
      TabOrder = 0
      Text = 'Insulin On Board'
      Visible = False
      ExplicitSize.cx = 213.000000000000000000
      ExplicitSize.cy = 49.000000000000000000
    end
    object tabSettings: TTabItem
      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}
        end>
      IsSelected = False
      Size.Width = 320.000000000000000000
      Size.Height = 49.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'tabitemcustom'
      TabOrder = 0
      Text = 'Settings'
      ExplicitSize.cx = 214.000000000000000000
      ExplicitSize.cy = 49.000000000000000000
      object LB: TListBox
        Align = Client
        Size.Width = 640.000000000000000000
        Size.Height = 431.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        DisableFocusEffect = True
        Images = IL
        DefaultItemStyles.ItemStyle = ''
        DefaultItemStyles.GroupHeaderStyle = ''
        DefaultItemStyles.GroupFooterStyle = ''
        Viewport.Width = 635.000000000000000000
        Viewport.Height = 431.000000000000000000
        object lbhTarget: TListBoxGroupHeader
          Selectable = False
          Size.Width = 635.000000000000000000
          Size.Height = 22.000000000000000000
          Size.PlatformDefault = False
          TabOrder = 0
          Text = 'Target (mmol/L)'
        end
        object lbiTargetMorning: TListBoxItem
          Selectable = False
          ImageIndex = 0
          Position.Y = 22.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 1
          Text = 'Morning'
          object edtTargetMorning: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtTargetMorningExit
          end
        end
        object lbiTargetDay: TListBoxItem
          Selectable = False
          ImageIndex = 1
          Position.Y = 66.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 2
          Text = 'Day'
          object edtTargetDay: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtTargetDayExit
          end
        end
        object lbiTargetEvening: TListBoxItem
          Selectable = False
          ImageIndex = 2
          Position.Y = 110.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 3
          Text = 'Evening'
          object edtTargetEvening: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtTargetEveningExit
          end
        end
        object lghCarbRatio: TListBoxGroupHeader
          Selectable = False
          Position.Y = 154.000000000000000000
          Size.Width = 635.000000000000000000
          Size.Height = 22.000000000000000000
          Size.PlatformDefault = False
          TabOrder = 4
          Text = 'Carbohydrate Ratio'
        end
        object lbiCarbRatioMorning: TListBoxItem
          Selectable = False
          ImageIndex = 0
          Position.Y = 176.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 5
          Text = 'Morning'
          object edtCarbRatioMorning: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 49
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtCarbRatioKeyDown
            OnExit = edtCarbRatioMorningExit
          end
        end
        object lbiCarbRatioDay: TListBoxItem
          Selectable = False
          ImageIndex = 1
          Position.Y = 220.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 6
          Text = 'Day'
          object edtCarbRatioDay: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 49
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtCarbRatioKeyDown
            OnExit = edtCarbRatioDayExit
          end
        end
        object lbiCarbRatioEvening: TListBoxItem
          Selectable = False
          ImageIndex = 2
          Position.Y = 264.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 7
          Text = 'Evening'
          object edtCarbRatioEvening: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 49
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtCarbRatioKeyDown
            OnExit = edtCarbRatioEveningExit
          end
        end
        object lghInjectionSchedule: TListBoxGroupHeader
          Selectable = False
          Position.Y = 308.000000000000000000
          Size.Width = 635.000000000000000000
          Size.Height = 22.000000000000000000
          Size.PlatformDefault = False
          TabOrder = 8
          Text = 'Injection Schedule (units of insulin)'
        end
        object lbiAbove8: TListBoxItem
          Selectable = False
          Position.Y = 330.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 17
          Text = 'Above 8 mmol/L'
          object edtAbove8: TEdit
            Tag = 8
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove10: TListBoxItem
          Selectable = False
          Position.Y = 374.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 16
          Text = 'Above 10 mmol/L'
          object edtAbove10: TEdit
            Tag = 10
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove12: TListBoxItem
          Selectable = False
          Position.Y = 418.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 15
          Text = 'Above 12 mmol/L'
          object edtAbove12: TEdit
            Tag = 12
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove14: TListBoxItem
          Selectable = False
          Position.Y = 462.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 14
          Text = 'Above 14 mmol/L'
          object edtAbove14: TEdit
            Tag = 14
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove16: TListBoxItem
          Selectable = False
          Position.Y = 506.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 13
          Text = 'Above 16 mmol/L'
          object edtAbove16: TEdit
            Tag = 16
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove18: TListBoxItem
          Selectable = False
          Position.Y = 550.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 12
          Text = 'Above 18 mmol/L'
          object edtAbove18: TEdit
            Tag = 18
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove20: TListBoxItem
          Selectable = False
          Position.Y = 594.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 11
          Text = 'Above 20 mmol/L'
          object edtAbove20: TEdit
            Tag = 20
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove22: TListBoxItem
          Selectable = False
          Position.Y = 638.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 10
          Text = 'Above 22 mmol/L'
          object edtAbove22: TEdit
            Tag = 22
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
        object lbiAbove24: TListBoxItem
          Selectable = False
          Position.Y = 682.000000000000000000
          StyleLookup = 'listboxitemnodetail'
          TabOrder = 9
          Text = 'Above 24 mmol/L'
          object edtAbove24: TEdit
            Tag = 24
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = MostRight
            TabOrder = 40
            KeyboardType = DecimalNumberPad
            Position.X = 530.000000000000000000
            Position.Y = 7.000000000000000000
            Margins.Right = 8.000000000000000000
            Size.Width = 97.000000000000000000
            Size.Height = 30.000000000000000000
            Size.PlatformDefault = False
            OnKeyDown = edtKeyDown
            OnExit = edtAboveExit
          end
        end
      end
    end
  end
  object IL: TImageList
    Source = <
      item
        MultiResBitmap = <
          item
            Width = 64
            Height = 64
            PNG = {
              89504E470D0A1A0A0000000D4948445200000040000000400806000000AA6971
              DE000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
              036749444154785EED984D48545114C79DD166D46674B2C8844284A2906814C3
              5541D6266B510B170941B8682921A310F8D5E007820B17B672E3266C61D0A245
              04A112A5B4A8286908CA166E428B4A47746A3EEC77DF7B868935CDBCF71CC1F3
              83CBB9F79E37F7BDFF79E79D7B992C411004411004411004411004411076140E
              C3668CD6D6D60987C3B1373B3BDB1F0C0613C6F496E1346CC6703A9D2709C071
              BAF9FACCD692F100641A098061772C9606A0BDBDFD525B5BDB486767E77E63EA
              7F98A24DD396B5511258DBC37D863B3A3A1A8C295358BA0BF060773157565757
              4354F51AAAFABCEEB106253E91483CA47B8A36D6D5D5754E7398C0D20CA0A2DF
              50E2A9EAE5F1787C3CC54CF827EBC56367B9D775DD630ECBCF014AB412AF82C0
              F0EDDCDC5CE5D0D05054F76A7E5F2C16ABC75F4BAB60EA809AE7379FC99A3774
              1F216E6463F6905DE398334A7C4E4E8ECAAE8FBAC71CB61C84541078D0318416
              BB5CAE521E76B9B1B1D15D58587813D1012EF1EA576ECEE2E262C4EBF5DE2620
              FC34B8A4E60880124C6C9C67AD12AFB06517E001E7D59B5F13CF69EF90CFE79B
              42FC2DDC4AFC633E956B04E93082DC5CEBC29631574F7B505050E0E6DA66B2E2
              0545F5A85A137F39ED9895E215B61F85C98683087D4AB714FB01DBD0D3D3A3C6
              7F05D195046098AE9F2CFA42204F23FC9DEEB5165B03807817A227E956D12679
              831711F25D7326A1A9A929CFE3F1DCA37B81F63E128954F5F7F78735A785D87A
              10427C3346899F4945BC62606060656969A98EEE2BDA91DCDCDCA0E6B018DB32
              A0A5A5C58BE859D2D747206A48FB09C395127C0EFE7038FC92BA10A52694F5F6
              F67E325C96605B06E4E5E5D529F1749FA42B5ED1DDDDFD9A1DE13E5D3701BDAA
              CF5A876D01A09A9F5796B73FA24D98435B83356BB59185D8198013CA52CD5511
              3405A9FFCCB07E6DC242D2AE01ECED63A464B5315CE3F9DAF99C83CB57CC9E68
              345AD4D7D7F74DCD9981F57E6276A933833A59521BEE10DCCBBA5787A0CF2C2C
              2C540F0E0EFE30A69292760670F362CCEEF58D0728C2AEA1ADED76BB57B59149
              381D6AEB949494682F8D7BEDC3FC717F3EB7228EC929694A3B03D8E3D58D36FE
              8DB5CC56B755FFEB390281403E6785DF1A42A1D0CAE8E868DC180A82901CB3BB
              408D31DC2E4CF34C15A9D4A1B477016EB41D8B4DCCB082200882200882200882
              200882B0295959BF00A90E45187C8D05850000000049454E44AE426082}
          end>
        Name = 'morning'
      end
      item
        MultiResBitmap = <
          item
            Width = 64
            Height = 64
            PNG = {
              89504E470D0A1A0A0000000D4948445200000040000000400806000000AA6971
              DE000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
              055449444154785EED995D685C451480B349D84D7637C9DAAA0D186D15422598
              FE981211156CFB5083601402D5EA837DF0450842D218F36FC8AF8418348A1084
              22C45488A20FA5D2872642AAA1B4FE16A3125B34209A6D693798ACF9DDF89D7B
              EFCA56DBA4BB3BD3153A1F0C67EE997B67E79C397366EEDD3483C16030180C06
              83C16030DC84B81C99321A1A1A3E73B95C1B333232B6B7B6B6461CF50D23DD91
              29233D3D7D170EB88FAAD7D6DC5852EE8054631CE0C89B16A50E686A6A2A6F6C
              6C1C6A6969B9DD515D0FE394B394B075B50EF4EDE7770E3737371F745449A174
              17606047104FAFAEAE4E90D57793D583768B1AC4F84824F229D58729236D6D6D
              7BAD8624501A0164F497C478B27AD1CACACA689C91B026B1C623A7F8AD17EC96
              E4507E0E10A3C578710297DF4F4F4FEF1C181858B25BADF6C0F2F2F233B49751
              76A0CA173DCF5C206ABEA37A1CE386FE1D3D44D728E251313E333353A2EBBCDD
              921C5A0E42E204063A82A19BDC6EF766061BAEACACF4E4E5E5BD82D1D5DC9263
              DF7975E6E6E6E6BD5EEF5B3884475B67458703C4607C93BE4795F182965D8001
              0665E6A3C673DABB3310088C63FCAB34E7E09C13D49FC798C250289485F4A0BB
              07DD01DA8FFA7CBE2CEA87888A2F49AA5BA54FEE29A2DCABD27841FB51986828
              C0B893543753CE510E92BCC6A4ED5AF0CCFD187F18276C238A2EE2C84730FC47
              A759295A1D80216E8CFF826A09721CA31EEFEEEEBE6CB7AE0DCF7AB9FF439C50
              C6E5E4FCFC7C494F4FCF9F76AB3AB41E8430FA10428C3F1F8FF1822C1D724005
              BBCA375C16666565B5DA2D6AD1160135353539ACD929C237C0E51EC25EB278DC
              10093B70E057541771E2DD9D9D9DBFDB2D6AD01601D9D9D915623C831F4BD478
              81489008F898E2C1A1CF594A85687300A1FB9848063D642992C3EA833E251F28
              45A703B689C401920493823E3E17C912D86E291492700E606F1F6160A5CE6594
              53D1F33907974B885BB86723612CF564705555552D723EC8E47CE1969325E783
              417688279D760B9C7E6E6666A6B4BFBF7FC151AD4BC211C08F6F42F8620B03D8
              80BC828585052D8996DFBA1571C5EF936F36704C8ECBA6841DC01655CCEC4AA6
              FFA7A02B719A6580D322195081A54882FAFAFA7C99FDA5A5A54BD1F78A8E8E8E
              B27038EC8FFDFDC9C9C92D7D7D7D7F590F5D27DAB64142F403A2643FB3F22283
              7DC75127047D55D0D7305525AFC0B1684B82CC88BCBA0ACF3A3261303EDA47B4
              4F6568730083FE087119473C44424C78D698FD9D88727943A4AF415BAB0E6D0E
              20F3CF92075E933ACBE05D4E74FF4990EB515D5DEDC391EF51759103DEA6CF3F
              EC1675687380100C065F67EF3ECDCC6D21811D8BC709623CE77F89A262CA4F24
              BC16AB41315A1DE064ECA788805FD8211E409E6139ECB65BAF0D59BFD4EBF59E
              C271FB781D0E229FE8EDED9D739A95A2F57518A4FF550CBA03077C427D97A54D
              4B93BFC30671C849D6F61446467273730BD03D48DB0164F4C8FB03CBA8BCBDBD
              7DD2B9568E160710EA7E8C3ACACCDD452962EDCEA373B31C6A1617175FF6783C
              B9CEAD5705A78459F36FF06C3BCF5A9FCB891C79298AD0EFBEAEAEAE0BA25381
              720788F1CC6CF4D3F5AFA150686BECD1B4B6B6368FB7C4FD54659625C3E763B0
              8BF52EA1FE2D337E9CC3D3110CBF28F7476137F89AC8908FA86771C25E554E50
              EA8058E3914ABFDED6D5D5DD467F27A84A5254E604A54990107F13A1DC78418C
              15A3A9CABF48C5E414D91E9346A90308E1318C1F8DC778D6F6FB14899A75A331
              C609C7580E23B63639B424C178C078F9EEEF93171B5D5BDD5A683D07C483DFEF
              4FC964FC6F1C902A8C031C994A7EA6FC36313111D7870C55A4DC01EC1CA5B3B3
              B385C3C3C32B8ECA6030180C0683C16030E8262DED6F35A94138E4A216D80000
              000049454E44AE426082}
          end>
        Name = 'day'
      end
      item
        MultiResBitmap = <
          item
            Width = 64
            Height = 64
            PNG = {
              89504E470D0A1A0A0000000D4948445200000040000000400806000000AA6971
              DE000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
              035449444154785EED983D4C535114C769F928214D7511164506954D4C1C1454
              8C1ABF168C0E264616170765D384102095161A502303262E1AE282E82292F819
              7531388831A0266E262A061D24125A4A5B68FD9DD70789898D60DE7D1D3CBFE4
              F69C7BEFEB4BCFFF9C77EFED2B50144551144551144551144551144551FE233C
              B6758D9696968AA2A2A293B8876935994CA6A9B3B3F38E3599075C1320180CFA
              D3E9F405DC269ACF1A04C6AABABABA3ED95DD7F1DAD6286D6D6DD504FA06F7DC
              DCDC5C3176C89A00AAE1ABEDE605E30248F01E8FE705EE46DA785959D9D67038
              7C143F25F35353538562F3855101A4EC09FE1EEE1A2AE071341AADEDE8E818CB
              CE167C938F4020B0D6EAE509A3022C2C2C0431D52C74EF29F563BDBDBDF1EC8C
              C5B87C20D00EAB97278C0940F6CB1389842C7819B27F8ACCCF66679678281F88
              D368F5F2843101C8FE895220C0079148E4B53DBC84D7EB1DC4C4B0FB5B5B5BEB
              B2A3EE634C004AFB90ED0ED8F637A88829CC15F1B9B6BFB9B97995F86E63B202
              368B2D2C2C7C690DFC01B21FA142DE22C0A6929292E17C88604C80542A552E76
              727232E73E4F15CC214003624DD0AD4784D1F6F6F65DD95977307612249024A6
              982CFB0854FC9CB006ACA70A86685BECA1E7F803B4117C11274DAB44AC6DA150
              E8A65CE014261F81EFB6FBD77D5E8EC2D3D3D3DB7165DB9CA1ED25D8EBEC1E1F
              6833B498F88C85E57A2731260099B7F6797EF4B2F6F9BEBEBE0427C45032995C
              47E64FF3BDBB04FD91A3F32C4D2A40B0EEE924C61E01CAFA2C225CC57D426007
              B3A3FF06F77ACABDF621C819AAE59A3DEC08261F8141C91EEE01D683DAECE8CA
              21F87A099E7B45394DDEB2871DC39800DDDDDD3F7C3E9FB5CF433F27C380ED2F
              1BBEB31A73437CEE7599C5F4A7F84E624C0021168B4530EF68D5F3F3F3C32B11
              4182A7E4EF93FD0DAC07632C92DDF694A3181540FEFC104003EE57EC6E1E8B51
              4A7A6776363752F604FF0A578EC85F384C1D9145D29A741857DE0891CD2A0292
              972035D2C77F26FB3CEE483C1E9FF0FBFD19FC4A04AA23DB8D88B547AE93CC4B
              F094FE67E99BC0CD5762A504D8CC3FC4F3FC47F2DBC3B99821F84B94FD455399
              5FC4350116B19FEDE3B8D64B5156F70AAC17512625E354C623CE02B77B7A7AA6
              E57A455114455114455114455114455114E72828F805DE5F63995A23F2FA0000
              000049454E44AE426082}
          end>
        Name = 'evening'
      end>
    Destination = <
      item
        Layers = <
          item
            Name = 'morning'
            SourceRect.Right = 64.000000000000000000
            SourceRect.Bottom = 64.000000000000000000
          end>
      end
      item
        Layers = <
          item
            Name = 'day'
            SourceRect.Right = 64.000000000000000000
            SourceRect.Bottom = 64.000000000000000000
          end>
      end
      item
        Layers = <
          item
            Name = 'evening'
            SourceRect.Right = 64.000000000000000000
            SourceRect.Bottom = 64.000000000000000000
          end>
      end>
    Left = 8
    Top = 8
  end
end