[492] | 1 | object fraGMV_InputOne2: TfraGMV_InputOne2
|
---|
| 2 | Left = 0
|
---|
| 3 | Top = 0
|
---|
| 4 | Width = 854
|
---|
| 5 | Height = 25
|
---|
| 6 | TabOrder = 0
|
---|
| 7 | object pnlMain: TPanel
|
---|
| 8 | Left = 0
|
---|
| 9 | Top = 0
|
---|
| 10 | Width = 854
|
---|
| 11 | Height = 25
|
---|
| 12 | Align = alClient
|
---|
| 13 | BevelOuter = bvNone
|
---|
| 14 | TabOrder = 0
|
---|
| 15 | object pnlValues: TPanel
|
---|
| 16 | Left = 205
|
---|
| 17 | Top = 0
|
---|
| 18 | Width = 187
|
---|
| 19 | Height = 25
|
---|
| 20 | Align = alLeft
|
---|
| 21 | BevelOuter = bvNone
|
---|
| 22 | ParentColor = True
|
---|
| 23 | TabOrder = 1
|
---|
| 24 | object lblUnit: TLabel
|
---|
| 25 | Left = 119
|
---|
| 26 | Top = 8
|
---|
| 27 | Width = 29
|
---|
| 28 | Height = 13
|
---|
| 29 | Caption = 'lblUnit'
|
---|
| 30 | end
|
---|
| 31 | object bvMetric: TBevel
|
---|
| 32 | Left = 162
|
---|
| 33 | Top = 4
|
---|
| 34 | Width = 21
|
---|
| 35 | Height = 21
|
---|
| 36 | Shape = bsFrame
|
---|
| 37 | Visible = False
|
---|
| 38 | end
|
---|
| 39 | object cbxInput: TComboBox
|
---|
| 40 | Left = 1
|
---|
| 41 | Top = 1
|
---|
| 42 | Width = 112
|
---|
| 43 | Height = 21
|
---|
| 44 | Hint = 'Enter the appropriate vitals measurement'
|
---|
| 45 | Style = csDropDownList
|
---|
| 46 | DropDownCount = 12
|
---|
| 47 | Font.Charset = DEFAULT_CHARSET
|
---|
| 48 | Font.Color = clBlack
|
---|
| 49 | Font.Height = -11
|
---|
| 50 | Font.Name = 'MS Sans Serif'
|
---|
| 51 | Font.Style = []
|
---|
| 52 | ItemHeight = 13
|
---|
| 53 | ParentFont = False
|
---|
| 54 | ParentShowHint = False
|
---|
| 55 | ShowHint = True
|
---|
| 56 | TabOrder = 0
|
---|
| 57 | OnChange = cbxInputChange
|
---|
| 58 | OnClick = cbxInputClick
|
---|
| 59 | OnExit = cbxInputExit
|
---|
| 60 | OnKeyDown = cbxInputKeyDown
|
---|
| 61 | end
|
---|
| 62 | object ckbMetric: TCheckBox
|
---|
| 63 | Left = 166
|
---|
| 64 | Top = 6
|
---|
| 65 | Width = 15
|
---|
| 66 | Height = 17
|
---|
| 67 | Hint =
|
---|
| 68 | 'Check to switch display values between English and Metric equiva' +
|
---|
| 69 | 'lents'
|
---|
| 70 | ParentShowHint = False
|
---|
| 71 | ShowHint = True
|
---|
| 72 | TabOrder = 1
|
---|
| 73 | OnClick = ckbMetricClick
|
---|
| 74 | OnEnter = ckbMetricEnter
|
---|
| 75 | OnExit = ckbMetricExit
|
---|
| 76 | end
|
---|
| 77 | object cbxUnits: TComboBox
|
---|
| 78 | Left = 116
|
---|
| 79 | Top = 1
|
---|
| 80 | Width = 69
|
---|
| 81 | Height = 21
|
---|
| 82 | Hint = 'Press to select metric'
|
---|
| 83 | Style = csDropDownList
|
---|
| 84 | ItemHeight = 13
|
---|
| 85 | ParentShowHint = False
|
---|
| 86 | ShowHint = True
|
---|
| 87 | TabOrder = 2
|
---|
| 88 | Visible = False
|
---|
| 89 | OnChange = acMetricChangedExecute
|
---|
| 90 | end
|
---|
| 91 | end
|
---|
| 92 | object pnlRefusedUnavailable: TPanel
|
---|
| 93 | Left = 0
|
---|
| 94 | Top = 0
|
---|
| 95 | Width = 75
|
---|
| 96 | Height = 25
|
---|
| 97 | Align = alLeft
|
---|
| 98 | BevelOuter = bvNone
|
---|
| 99 | ParentColor = True
|
---|
| 100 | TabOrder = 0
|
---|
| 101 | object lblNum: TLabel
|
---|
| 102 | Left = 0
|
---|
| 103 | Top = 0
|
---|
| 104 | Width = 24
|
---|
| 105 | Height = 25
|
---|
| 106 | Align = alLeft
|
---|
| 107 | Alignment = taRightJustify
|
---|
| 108 | AutoSize = False
|
---|
| 109 | Caption = '#. '
|
---|
| 110 | Layout = tlCenter
|
---|
| 111 | end
|
---|
| 112 | object bvU: TBevel
|
---|
| 113 | Left = 28
|
---|
| 114 | Top = 3
|
---|
| 115 | Width = 21
|
---|
| 116 | Height = 21
|
---|
| 117 | Shape = bsFrame
|
---|
| 118 | Visible = False
|
---|
| 119 | end
|
---|
| 120 | object bvR: TBevel
|
---|
| 121 | Left = 53
|
---|
| 122 | Top = 3
|
---|
| 123 | Width = 21
|
---|
| 124 | Height = 21
|
---|
| 125 | Shape = bsFrame
|
---|
| 126 | Visible = False
|
---|
| 127 | end
|
---|
| 128 | object cbxRefused: TCheckBox
|
---|
| 129 | Left = 54
|
---|
| 130 | Top = 5
|
---|
| 131 | Width = 16
|
---|
| 132 | Height = 17
|
---|
| 133 | Hint = 'Mark as Refused'
|
---|
| 134 | Alignment = taLeftJustify
|
---|
| 135 | ParentShowHint = False
|
---|
| 136 | ShowHint = True
|
---|
| 137 | TabOrder = 1
|
---|
| 138 | OnClick = cbxRefusedClick
|
---|
| 139 | OnEnter = cbxRefusedEnter
|
---|
| 140 | OnExit = cbxRefusedExit
|
---|
| 141 | OnMouseUp = cbxRefusedMouseUp
|
---|
| 142 | end
|
---|
| 143 | object cbxUnavailable: TCheckBox
|
---|
| 144 | Left = 32
|
---|
| 145 | Top = 5
|
---|
| 146 | Width = 13
|
---|
| 147 | Height = 17
|
---|
| 148 | Hint = 'Mark as Unavailable'
|
---|
| 149 | Alignment = taLeftJustify
|
---|
| 150 | ParentShowHint = False
|
---|
| 151 | ShowHint = True
|
---|
| 152 | TabOrder = 0
|
---|
| 153 | OnClick = cbxUnavailableClick
|
---|
| 154 | OnEnter = cbxUnavailableEnter
|
---|
| 155 | OnExit = cbxUnavailableExit
|
---|
| 156 | OnMouseUp = cbxUnavailableMouseUp
|
---|
| 157 | end
|
---|
| 158 | end
|
---|
| 159 | object pnlQualifiers: TPanel
|
---|
| 160 | Left = 392
|
---|
| 161 | Top = 0
|
---|
| 162 | Width = 462
|
---|
| 163 | Height = 25
|
---|
| 164 | Align = alClient
|
---|
| 165 | BevelOuter = bvNone
|
---|
| 166 | ParentColor = True
|
---|
| 167 | TabOrder = 2
|
---|
| 168 | object lblQualifiers: TLabel
|
---|
| 169 | Left = 28
|
---|
| 170 | Top = 5
|
---|
| 171 | Width = 53
|
---|
| 172 | Height = 13
|
---|
| 173 | Hint = 'Current qualifiers to be filed with this vital measurement'
|
---|
| 174 | Caption = 'lblQualifiers'
|
---|
| 175 | ParentShowHint = False
|
---|
| 176 | ShowHint = True
|
---|
| 177 | end
|
---|
| 178 | object bvQual: TBevel
|
---|
| 179 | Left = 2
|
---|
| 180 | Top = 3
|
---|
| 181 | Width = 23
|
---|
| 182 | Height = 21
|
---|
| 183 | Shape = bsFrame
|
---|
| 184 | Visible = False
|
---|
| 185 | end
|
---|
| 186 | object bbtnQualifiers: TBitBtn
|
---|
| 187 | Left = 5
|
---|
| 188 | Top = 5
|
---|
| 189 | Width = 17
|
---|
| 190 | Height = 16
|
---|
| 191 | Hint = 'Press to display the qualifier selection screen'
|
---|
| 192 | ParentShowHint = False
|
---|
| 193 | ShowHint = True
|
---|
| 194 | TabOrder = 0
|
---|
| 195 | OnClick = bbtnQualifiersClick
|
---|
| 196 | OnEnter = bbtnQualifiersEnter
|
---|
| 197 | OnExit = bbtnQualifiersExit
|
---|
| 198 | Glyph.Data = {
|
---|
| 199 | 7E040000424D7E0400000000000036040000280000000B000000060000000100
|
---|
| 200 | 08000000000048000000C40E0000C40E00000001000000000000000000000000
|
---|
| 201 | 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
|
---|
| 202 | A6000020400000206000002080000020A0000020C0000020E000004000000040
|
---|
| 203 | 20000040400000406000004080000040A0000040C0000040E000006000000060
|
---|
| 204 | 20000060400000606000006080000060A0000060C0000060E000008000000080
|
---|
| 205 | 20000080400000806000008080000080A0000080C0000080E00000A0000000A0
|
---|
| 206 | 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
|
---|
| 207 | 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
|
---|
| 208 | 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
|
---|
| 209 | 20004000400040006000400080004000A0004000C0004000E000402000004020
|
---|
| 210 | 20004020400040206000402080004020A0004020C0004020E000404000004040
|
---|
| 211 | 20004040400040406000404080004040A0004040C0004040E000406000004060
|
---|
| 212 | 20004060400040606000406080004060A0004060C0004060E000408000004080
|
---|
| 213 | 20004080400040806000408080004080A0004080C0004080E00040A0000040A0
|
---|
| 214 | 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
|
---|
| 215 | 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
|
---|
| 216 | 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
|
---|
| 217 | 20008000400080006000800080008000A0008000C0008000E000802000008020
|
---|
| 218 | 20008020400080206000802080008020A0008020C0008020E000804000008040
|
---|
| 219 | 20008040400080406000804080008040A0008040C0008040E000806000008060
|
---|
| 220 | 20008060400080606000806080008060A0008060C0008060E000808000008080
|
---|
| 221 | 20008080400080806000808080008080A0008080C0008080E00080A0000080A0
|
---|
| 222 | 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
|
---|
| 223 | 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
|
---|
| 224 | 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
|
---|
| 225 | 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
|
---|
| 226 | 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
|
---|
| 227 | 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
|
---|
| 228 | 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
|
---|
| 229 | 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
|
---|
| 230 | 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
|
---|
| 231 | 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
|
---|
| 232 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FAFAFAFAFA00
|
---|
| 233 | FAFAFAFAFA00FAFAFAFA000000FAFAFAFA00FAFAFA0000000000FAFAFA00FAFA
|
---|
| 234 | 00000000000000FAFA00FA000000000000000000FA0000000000000000000000
|
---|
| 235 | 0000}
|
---|
| 236 | end
|
---|
| 237 | end
|
---|
| 238 | object pnlName: TPanel
|
---|
| 239 | Left = 75
|
---|
| 240 | Top = 0
|
---|
| 241 | Width = 130
|
---|
| 242 | Height = 25
|
---|
| 243 | Align = alLeft
|
---|
| 244 | BevelOuter = bvNone
|
---|
| 245 | ParentColor = True
|
---|
| 246 | TabOrder = 3
|
---|
| 247 | object lblVital: TLabel
|
---|
| 248 | Left = 0
|
---|
| 249 | Top = 0
|
---|
| 250 | Width = 113
|
---|
| 251 | Height = 25
|
---|
| 252 | Hint = 'Display name of the vitals measurement'
|
---|
| 253 | Align = alLeft
|
---|
| 254 | AutoSize = False
|
---|
| 255 | Caption = 'lblVital'
|
---|
| 256 | ParentShowHint = False
|
---|
| 257 | ShowHint = True
|
---|
| 258 | Layout = tlCenter
|
---|
| 259 | end
|
---|
| 260 | end
|
---|
| 261 | end
|
---|
| 262 | end
|
---|