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

Last change on this file since 836 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

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