461 lines
9.9 KiB
Plaintext
461 lines
9.9 KiB
Plaintext
object frmVit: TfrmVit
|
|
Left = 451
|
|
Top = 208
|
|
Width = 499
|
|
Height = 361
|
|
Caption = 'frmVit'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnKeyPress = FormKeyPress
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object cmdOK: TButton
|
|
Left = 319
|
|
Top = 276
|
|
Width = 75
|
|
Height = 22
|
|
Caption = 'OK'
|
|
TabOrder = 1
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton
|
|
Left = 406
|
|
Top = 276
|
|
Width = 75
|
|
Height = 22
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
TabOrder = 2
|
|
OnClick = cmdCancelClick
|
|
end
|
|
object pnlmain: TPanel
|
|
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
|
|
MaxLength = 0
|
|
Pieces = '1,2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 10
|
|
OnEnter = SetVitPointer
|
|
OnKeyPress = FormKeyPress
|
|
end
|
|
end
|
|
end
|