110 lines
2.6 KiB
Plaintext
110 lines
2.6 KiB
Plaintext
inherited frmDupPts: TfrmDupPts
|
|
Left = 160
|
|
Top = 190
|
|
HorzScrollBar.Visible = False
|
|
VertScrollBar.Visible = False
|
|
Caption = 'Similar Patients'
|
|
ClientHeight = 187
|
|
ClientWidth = 463
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pnlDupPts: TPanel [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 463
|
|
Height = 187
|
|
Align = alClient
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
463
|
|
187)
|
|
object lblSelDupPts: TLabel
|
|
Left = 6
|
|
Top = 3
|
|
Width = 155
|
|
Height = 13
|
|
Caption = 'Please select the correct patient:'
|
|
end
|
|
object btnOK: TButton
|
|
Left = 296
|
|
Top = 150
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = '&OK'
|
|
Default = True
|
|
TabOrder = 0
|
|
OnClick = btnOKClick
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 381
|
|
Top = 150
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = '&Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
OnClick = btnCancelClick
|
|
end
|
|
object pnlSelDupPt: TPanel
|
|
Left = 2
|
|
Top = 19
|
|
Width = 461
|
|
Height = 120
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
TabOrder = 2
|
|
object lblDupPts: TLabel
|
|
Left = 4
|
|
Top = 2
|
|
Width = 364
|
|
Height = 13
|
|
Caption =
|
|
' Name DOB' +
|
|
' SSN'
|
|
end
|
|
object lboSelPt: TORListBox
|
|
Left = 1
|
|
Top = 16
|
|
Width = 459
|
|
Height = 103
|
|
Align = alBottom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnDblClick = lboSelPtDblClick
|
|
Caption = 'Please select the correct patient'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2,3,4'
|
|
TabPositions = '33,57'
|
|
end
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlDupPts'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlSelDupPt'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lboSelPt'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmDupPts'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|