Line | |
---|
1 | inherited frmDupPts: TfrmDupPts
|
---|
2 | Left = 160
|
---|
3 | Top = 190
|
---|
4 | HorzScrollBar.Visible = False
|
---|
5 | VertScrollBar.Visible = False
|
---|
6 | Caption = 'Similar Patients'
|
---|
7 | ClientHeight = 187
|
---|
8 | ClientWidth = 463
|
---|
9 | Position = poScreenCenter
|
---|
10 | OnCreate = FormCreate
|
---|
11 | PixelsPerInch = 96
|
---|
12 | TextHeight = 13
|
---|
13 | object pnlDupPts: TPanel [0]
|
---|
14 | Left = 0
|
---|
15 | Top = 0
|
---|
16 | Width = 463
|
---|
17 | Height = 187
|
---|
18 | Align = alClient
|
---|
19 | TabOrder = 0
|
---|
20 | DesignSize = (
|
---|
21 | 463
|
---|
22 | 187)
|
---|
23 | object lblSelDupPts: TLabel
|
---|
24 | Left = 6
|
---|
25 | Top = 3
|
---|
26 | Width = 155
|
---|
27 | Height = 13
|
---|
28 | Caption = 'Please select the correct patient:'
|
---|
29 | end
|
---|
30 | object btnOK: TButton
|
---|
31 | Left = 296
|
---|
32 | Top = 150
|
---|
33 | Width = 75
|
---|
34 | Height = 25
|
---|
35 | Anchors = [akRight, akBottom]
|
---|
36 | Caption = '&OK'
|
---|
37 | Default = True
|
---|
38 | TabOrder = 0
|
---|
39 | OnClick = btnOKClick
|
---|
40 | end
|
---|
41 | object btnCancel: TButton
|
---|
42 | Left = 381
|
---|
43 | Top = 150
|
---|
44 | Width = 75
|
---|
45 | Height = 25
|
---|
46 | Anchors = [akRight, akBottom]
|
---|
47 | Caption = '&Cancel'
|
---|
48 | ModalResult = 2
|
---|
49 | TabOrder = 1
|
---|
50 | OnClick = btnCancelClick
|
---|
51 | end
|
---|
52 | object pnlSelDupPt: TPanel
|
---|
53 | Left = 2
|
---|
54 | Top = 19
|
---|
55 | Width = 461
|
---|
56 | Height = 120
|
---|
57 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
58 | TabOrder = 2
|
---|
59 | object lblDupPts: TLabel
|
---|
60 | Left = 4
|
---|
61 | Top = 2
|
---|
62 | Width = 364
|
---|
63 | Height = 13
|
---|
64 | Caption =
|
---|
65 | ' Name DOB' +
|
---|
66 | ' SSN'
|
---|
67 | end
|
---|
68 | object lboSelPt: TORListBox
|
---|
69 | Left = 1
|
---|
70 | Top = 16
|
---|
71 | Width = 459
|
---|
72 | Height = 103
|
---|
73 | Align = alBottom
|
---|
74 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
75 | ItemHeight = 13
|
---|
76 | ParentShowHint = False
|
---|
77 | ShowHint = True
|
---|
78 | TabOrder = 0
|
---|
79 | OnDblClick = lboSelPtDblClick
|
---|
80 | Caption = 'Please select the correct patient'
|
---|
81 | ItemTipColor = clWindow
|
---|
82 | LongList = False
|
---|
83 | Pieces = '2,3,4'
|
---|
84 | TabPositions = '33,57'
|
---|
85 | end
|
---|
86 | end
|
---|
87 | end
|
---|
88 | inherited amgrMain: TVA508AccessibilityManager
|
---|
89 | Data = (
|
---|
90 | (
|
---|
91 | 'Component = pnlDupPts'
|
---|
92 | 'Status = stsDefault')
|
---|
93 | (
|
---|
94 | 'Component = btnOK'
|
---|
95 | 'Status = stsDefault')
|
---|
96 | (
|
---|
97 | 'Component = btnCancel'
|
---|
98 | 'Status = stsDefault')
|
---|
99 | (
|
---|
100 | 'Component = pnlSelDupPt'
|
---|
101 | 'Status = stsDefault')
|
---|
102 | (
|
---|
103 | 'Component = lboSelPt'
|
---|
104 | 'Status = stsDefault')
|
---|
105 | (
|
---|
106 | 'Component = frmDupPts'
|
---|
107 | 'Status = stsDefault'))
|
---|
108 | end
|
---|
109 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.