577 lines
13 KiB
Plaintext
577 lines
13 KiB
Plaintext
inherited frmVit: TfrmVit
|
|
Left = 451
|
|
Top = 208
|
|
Caption = 'frmVit'
|
|
ClientHeight = 334
|
|
ClientWidth = 491
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnKeyPress = FormKeyPress
|
|
OnShow = FormShow
|
|
ExplicitWidth = 499
|
|
ExplicitHeight = 361
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object cmdOK: TButton [0]
|
|
Left = 319
|
|
Top = 276
|
|
Width = 75
|
|
Height = 22
|
|
Caption = 'OK'
|
|
TabOrder = 1
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton [1]
|
|
Left = 406
|
|
Top = 276
|
|
Width = 75
|
|
Height = 22
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
TabOrder = 2
|
|
OnClick = cmdCancelClick
|
|
end
|
|
object pnlmain: TPanel [2]
|
|
Left = 8
|
|
Top = 24
|
|
Width = 473
|
|
Height = 241
|
|
TabOrder = 0
|
|
object lblVitPointer: TOROffsetLabel
|
|
Left = 418
|
|
Top = 48
|
|
Width = 17
|
|
Height = 15
|
|
Caption = '<--'
|
|
Color = clBtnFace
|
|
HorzOffset = 5
|
|
ParentColor = False
|
|
Transparent = False
|
|
VertOffset = 2
|
|
WordWrap = False
|
|
end
|
|
object lblDate: TStaticText
|
|
Left = 32
|
|
Top = 23
|
|
Width = 31
|
|
Height = 17
|
|
Caption = 'Date'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
end
|
|
object lblDateBP: TStaticText
|
|
Tag = 3
|
|
Left = 26
|
|
Top = 122
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 12
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblDateTemp: TStaticText
|
|
Left = 26
|
|
Top = 52
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 13
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblDateResp: TStaticText
|
|
Tag = 2
|
|
Left = 26
|
|
Top = 98
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 14
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblDatePulse: TStaticText
|
|
Tag = 1
|
|
Left = 26
|
|
Top = 75
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 15
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblDateHeight: TStaticText
|
|
Tag = 4
|
|
Left = 26
|
|
Top = 145
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 16
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblDateWeight: TStaticText
|
|
Tag = 5
|
|
Left = 26
|
|
Top = 169
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 17
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLstMeas: TStaticText
|
|
Left = 116
|
|
Top = 23
|
|
Width = 80
|
|
Height = 17
|
|
Caption = 'Last Measure'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 18
|
|
end
|
|
object lbllastBP: TStaticText
|
|
Tag = 3
|
|
Left = 124
|
|
Top = 122
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 19
|
|
OnClick = lbllastClick
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLastTemp: TStaticText
|
|
Left = 124
|
|
Top = 52
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 20
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLastResp: TStaticText
|
|
Tag = 2
|
|
Left = 124
|
|
Top = 98
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 21
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLastPulse: TStaticText
|
|
Tag = 1
|
|
Left = 124
|
|
Top = 75
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 22
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLastHeight: TStaticText
|
|
Tag = 4
|
|
Left = 124
|
|
Top = 145
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 23
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLastWeight: TStaticText
|
|
Tag = 5
|
|
Left = 124
|
|
Top = 169
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 24
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblVital: TStaticText
|
|
Left = 256
|
|
Top = 23
|
|
Width = 29
|
|
Height = 17
|
|
Caption = 'Vital'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 25
|
|
end
|
|
object lblVitBP: TStaticText
|
|
Left = 256
|
|
Top = 122
|
|
Width = 23
|
|
Height = 17
|
|
Caption = 'B/P'
|
|
TabOrder = 26
|
|
end
|
|
object lnlVitTemp: TStaticText
|
|
Left = 256
|
|
Top = 52
|
|
Width = 31
|
|
Height = 17
|
|
Caption = 'Temp'
|
|
TabOrder = 27
|
|
end
|
|
object lblVitResp: TStaticText
|
|
Left = 256
|
|
Top = 98
|
|
Width = 29
|
|
Height = 17
|
|
Caption = 'Resp'
|
|
TabOrder = 28
|
|
end
|
|
object lblVitPulse: TStaticText
|
|
Left = 256
|
|
Top = 75
|
|
Width = 30
|
|
Height = 17
|
|
Caption = 'Pulse'
|
|
TabOrder = 29
|
|
end
|
|
object lblVitHeight: TStaticText
|
|
Left = 256
|
|
Top = 145
|
|
Width = 35
|
|
Height = 17
|
|
Caption = 'Height'
|
|
TabOrder = 30
|
|
end
|
|
object lblVitWeight: TStaticText
|
|
Left = 256
|
|
Top = 169
|
|
Width = 38
|
|
Height = 17
|
|
Caption = 'Weight'
|
|
TabOrder = 31
|
|
end
|
|
object lblDatePain: TStaticText
|
|
Tag = 5
|
|
Left = 26
|
|
Top = 193
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 32
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblLastPain: TStaticText
|
|
Tag = 5
|
|
Left = 124
|
|
Top = 193
|
|
Width = 24
|
|
Height = 17
|
|
Caption = 'N/A'
|
|
TabOrder = 33
|
|
OnDblClick = lbllastClick
|
|
end
|
|
object lblVitPain: TStaticText
|
|
Left = 256
|
|
Top = 193
|
|
Width = 55
|
|
Height = 17
|
|
Caption = 'Pain Scale'
|
|
TabOrder = 34
|
|
end
|
|
object txtMeasBP: TCaptionEdit
|
|
Tag = 1
|
|
Left = 318
|
|
Top = 119
|
|
Width = 100
|
|
Height = 21
|
|
TabOrder = 5
|
|
OnEnter = SetVitPointer
|
|
OnExit = txtMeasBPExit
|
|
OnKeyPress = FormKeyPress
|
|
Caption = 'Blood Pressure'
|
|
end
|
|
object cboTemp: TCaptionComboBox
|
|
Tag = 7
|
|
Left = 360
|
|
Top = 48
|
|
Width = 59
|
|
Height = 21
|
|
DropDownCount = 2
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
OnChange = cboTempChange
|
|
OnEnter = SetVitPointer
|
|
OnExit = cboTempExit
|
|
OnKeyPress = FormKeyPress
|
|
Items.Strings = (
|
|
'F'
|
|
'C')
|
|
Caption = 'Temperature'
|
|
end
|
|
object txtMeasTemp: TCaptionEdit
|
|
Tag = 2
|
|
Left = 318
|
|
Top = 48
|
|
Width = 43
|
|
Height = 21
|
|
TabOrder = 1
|
|
OnEnter = SetVitPointer
|
|
OnExit = txtMeasTempExit
|
|
OnKeyPress = FormKeyPress
|
|
Caption = 'Temperature'
|
|
end
|
|
object txtMeasResp: TCaptionEdit
|
|
Tag = 3
|
|
Left = 318
|
|
Top = 95
|
|
Width = 100
|
|
Height = 21
|
|
TabOrder = 4
|
|
OnEnter = SetVitPointer
|
|
OnExit = txtMeasRespExit
|
|
OnKeyPress = FormKeyPress
|
|
Caption = 'Resp'
|
|
end
|
|
object txtMeasPulse: TCaptionEdit
|
|
Tag = 4
|
|
Left = 318
|
|
Top = 72
|
|
Width = 100
|
|
Height = 21
|
|
TabOrder = 3
|
|
OnEnter = SetVitPointer
|
|
OnExit = txtMeasPulseExit
|
|
OnKeyPress = FormKeyPress
|
|
Caption = 'Pulse'
|
|
end
|
|
object txtMeasHt: TCaptionEdit
|
|
Tag = 5
|
|
Left = 318
|
|
Top = 142
|
|
Width = 43
|
|
Height = 21
|
|
TabOrder = 6
|
|
OnEnter = SetVitPointer
|
|
OnExit = txtMeasHtExit
|
|
OnKeyPress = FormKeyPress
|
|
Caption = 'Height'
|
|
end
|
|
object cboHeight: TCaptionComboBox
|
|
Tag = 8
|
|
Left = 361
|
|
Top = 142
|
|
Width = 58
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 7
|
|
OnChange = cboHeightChange
|
|
OnEnter = SetVitPointer
|
|
OnExit = cboHeightExit
|
|
OnKeyPress = FormKeyPress
|
|
Items.Strings = (
|
|
'IN'
|
|
'CM')
|
|
Caption = 'Height'
|
|
end
|
|
object txtMeasWt: TCaptionEdit
|
|
Tag = 6
|
|
Left = 318
|
|
Top = 166
|
|
Width = 43
|
|
Height = 21
|
|
TabOrder = 8
|
|
OnEnter = SetVitPointer
|
|
OnExit = txtMeasWtExit
|
|
OnKeyPress = FormKeyPress
|
|
Caption = 'Weight'
|
|
end
|
|
object cboWeight: TCaptionComboBox
|
|
Tag = 9
|
|
Left = 361
|
|
Top = 166
|
|
Width = 58
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 9
|
|
OnChange = cboWeightChange
|
|
OnEnter = SetVitPointer
|
|
OnExit = cboWeightExit
|
|
OnKeyPress = FormKeyPress
|
|
Items.Strings = (
|
|
'LB'
|
|
'KG')
|
|
Caption = 'Weight'
|
|
end
|
|
object txtMeasDate: TORDateBox
|
|
Tag = 11
|
|
Left = 312
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = 'txtMeasDate'
|
|
OnEnter = SetVitPointer
|
|
OnKeyPress = FormKeyPress
|
|
DateOnly = False
|
|
RequireTime = False
|
|
Caption = 'Vital Measured Date'
|
|
end
|
|
object cboPain: TORComboBox
|
|
Tag = 10
|
|
Left = 318
|
|
Top = 190
|
|
Width = 102
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Pain Scale'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '1,2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 10
|
|
OnEnter = SetVitPointer
|
|
OnKeyPress = FormKeyPress
|
|
CharsNeedMatch = 1
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = cmdOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlmain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDate'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDateBP'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDateTemp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDateResp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDatePulse'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDateHeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDateWeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLstMeas'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lbllastBP'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLastTemp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLastResp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLastPulse'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLastHeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLastWeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVital'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVitBP'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lnlVitTemp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVitResp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVitPulse'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVitHeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVitWeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblDatePain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLastPain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblVitPain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasBP'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboTemp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasTemp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasResp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasPulse'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasHt'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboHeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasWt'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboWeight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtMeasDate'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboPain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmVit'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|