source: cprs/trunk/CPRS-Chart/fPtSelDemog.dfm@ 1800

Last change on this file since 1800 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28

File size: 4.6 KB
Line 
1inherited frmPtSelDemog: TfrmPtSelDemog
2 Left = 100
3 BorderStyle = bsNone
4 Caption = 'frmPtSelDemog'
5 ClientHeight = 193
6 ClientWidth = 169
7 DefaultMonitor = dmDesktop
8 Position = poDesigned
9 OnCreate = FormCreate
10 OnDestroy = FormDestroy
11 OnShow = FormShow
12 ExplicitWidth = 169
13 ExplicitHeight = 193
14 PixelsPerInch = 96
15 TextHeight = 13
16 object orapnlMain: TORAutoPanel [0]
17 Left = 0
18 Top = 0
19 Width = 169
20 Height = 193
21 Align = alClient
22 BevelOuter = bvNone
23 TabOrder = 0
24 object Memo: TCaptionMemo
25 Left = 0
26 Top = 0
27 Width = 169
28 Height = 193
29 Align = alClient
30 HideSelection = False
31 Lines.Strings = (
32 'Memo')
33 ReadOnly = True
34 TabOrder = 12
35 Visible = False
36 WantReturns = False
37 end
38 object lblPtName: TStaticText
39 Tag = 2
40 Left = 1
41 Top = 3
42 Width = 166
43 Height = 17
44 Caption = 'Winchester,Charles Emerson'
45 Font.Charset = DEFAULT_CHARSET
46 Font.Color = clWindowText
47 Font.Height = -11
48 Font.Name = 'MS Sans Serif'
49 Font.Style = [fsBold]
50 ParentFont = False
51 TabOrder = 11
52 end
53 object lblSSN: TStaticText
54 Tag = 1
55 Left = 1
56 Top = 17
57 Width = 29
58 Height = 17
59 Caption = 'SSN:'
60 TabOrder = 0
61 end
62 object lblPtSSN: TStaticText
63 Tag = 2
64 Left = 31
65 Top = 17
66 Width = 64
67 Height = 17
68 Caption = '123-45-1234'
69 TabOrder = 1
70 end
71 object lblDOB: TStaticText
72 Tag = 1
73 Left = 1
74 Top = 33
75 Width = 30
76 Height = 17
77 Caption = 'DOB:'
78 TabOrder = 2
79 end
80 object lblPtDOB: TStaticText
81 Tag = 2
82 Left = 31
83 Top = 32
84 Width = 63
85 Height = 17
86 Caption = 'Jun 26,1957'
87 TabOrder = 3
88 end
89 object lblPtSex: TStaticText
90 Tag = 2
91 Left = 1
92 Top = 47
93 Width = 66
94 Height = 17
95 Caption = 'Male, age 39'
96 TabOrder = 4
97 end
98 object lblPtVet: TStaticText
99 Tag = 2
100 Left = 1
101 Top = 62
102 Width = 41
103 Height = 17
104 Caption = 'Veteran'
105 TabOrder = 5
106 end
107 object lblPtSC: TStaticText
108 Tag = 2
109 Left = 1
110 Top = 75
111 Width = 118
112 Height = 17
113 Caption = 'Service Connected 50%'
114 TabOrder = 6
115 end
116 object lblLocation: TStaticText
117 Tag = 1
118 Left = 1
119 Top = 90
120 Width = 48
121 Height = 17
122 Caption = 'Location:'
123 TabOrder = 7
124 end
125 object lblPtRoomBed: TStaticText
126 Tag = 2
127 Left = 64
128 Top = 107
129 Width = 32
130 Height = 17
131 Caption = '257-B'
132 ShowAccelChar = False
133 TabOrder = 8
134 end
135 object lblPtLocation: TStaticText
136 Tag = 2
137 Left = 61
138 Top = 90
139 Width = 41
140 Height = 17
141 Caption = '2 EAST'
142 ShowAccelChar = False
143 TabOrder = 9
144 end
145 object lblRoomBed: TStaticText
146 Tag = 1
147 Left = 1
148 Top = 104
149 Width = 57
150 Height = 17
151 Caption = 'Room-Bed:'
152 TabOrder = 10
153 end
154 object lblCombatVet: TStaticText
155 Tag = 2
156 Left = 1
157 Top = 127
158 Width = 66
159 Height = 17
160 Caption = 'lblCombatVet'
161 TabOrder = 13
162 end
163 end
164 inherited amgrMain: TVA508AccessibilityManager
165 Data = (
166 (
167 'Component = orapnlMain'
168 'Status = stsDefault')
169 (
170 'Component = Memo'
171 'Status = stsDefault')
172 (
173 'Component = lblPtName'
174 'Status = stsDefault')
175 (
176 'Component = lblSSN'
177 'Status = stsDefault')
178 (
179 'Component = lblPtSSN'
180 'Status = stsDefault')
181 (
182 'Component = lblDOB'
183 'Status = stsDefault')
184 (
185 'Component = lblPtDOB'
186 'Status = stsDefault')
187 (
188 'Component = lblPtSex'
189 'Status = stsDefault')
190 (
191 'Component = lblPtVet'
192 'Status = stsDefault')
193 (
194 'Component = lblPtSC'
195 'Status = stsDefault')
196 (
197 'Component = lblLocation'
198 'Status = stsDefault')
199 (
200 'Component = lblPtRoomBed'
201 'Status = stsDefault')
202 (
203 'Component = lblPtLocation'
204 'Status = stsDefault')
205 (
206 'Component = lblRoomBed'
207 'Status = stsDefault')
208 (
209 'Component = frmPtSelDemog'
210 'Status = stsDefault')
211 (
212 'Component = lblCombatVet'
213 'Status = stsDefault'))
214 end
215end
Note: See TracBrowser for help on using the repository browser.