source: cprs/trunk/CPRS-Chart/Encounter/fGAF.dfm@ 1727

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

Upgrade to version 27

File size: 5.3 KB
Line 
1inherited frmGAF: TfrmGAF
2 Left = 255
3 Top = 178
4 ActiveControl = edtScore
5 Caption = 'frmGAF'
6 OnActivate = FormActivate
7 ExplicitLeft = 8
8 ExplicitTop = 8
9 PixelsPerInch = 96
10 TextHeight = 13
11 object lblScore: TLabel [0]
12 Left = 139
13 Top = 175
14 Width = 31
15 Height = 13
16 Caption = 'Score:'
17 end
18 object lblDate: TLabel [1]
19 Left = 139
20 Top = 206
21 Width = 83
22 Height = 13
23 Caption = 'Date Determined:'
24 end
25 object lblDeterminedBy: TLabel [2]
26 Left = 139
27 Top = 237
28 Width = 72
29 Height = 13
30 Caption = 'Determined By:'
31 end
32 object Spacer1: TLabel [3]
33 Left = 0
34 Top = 0
35 Width = 624
36 Height = 13
37 Align = alTop
38 ExplicitWidth = 3
39 end
40 object Spacer2: TLabel [4]
41 Left = 0
42 Top = 122
43 Width = 624
44 Height = 13
45 Align = alTop
46 ExplicitWidth = 3
47 end
48 object lblGAF: TStaticText [5]
49 Left = 0
50 Top = 13
51 Width = 624
52 Height = 22
53 Align = alTop
54 Alignment = taCenter
55 AutoSize = False
56 Caption = 'Most recent Global Assessment of Functioning (GAF) scores:'
57 Font.Charset = DEFAULT_CHARSET
58 Font.Color = clWindowText
59 Font.Height = -11
60 Font.Name = 'MS Sans Serif'
61 Font.Style = [fsBold]
62 ParentFont = False
63 TabOrder = 8
64 end
65 object lblEntry: TStaticText [6]
66 Left = 0
67 Top = 135
68 Width = 624
69 Height = 30
70 Align = alTop
71 Alignment = taCenter
72 AutoSize = False
73 Caption = 'Global Assessment of Functioning (GAF) score entry:'
74 Font.Charset = DEFAULT_CHARSET
75 Font.Color = clWindowText
76 Font.Height = -11
77 Font.Name = 'MS Sans Serif'
78 Font.Style = [fsBold]
79 ParentFont = False
80 TabOrder = 9
81 end
82 inherited btnOK: TBitBtn
83 TabOrder = 6
84 end
85 inherited btnCancel: TBitBtn
86 TabOrder = 7
87 end
88 inherited pnlGrid: TPanel
89 Left = 0
90 Top = 35
91 Width = 624
92 Align = alTop
93 TabOrder = 0
94 ExplicitLeft = 0
95 ExplicitTop = 35
96 ExplicitWidth = 624
97 inherited lbGrid: TORListBox
98 Width = 624
99 TabStop = False
100 MultiSelect = True
101 Caption = 'Most recent Global Assessment of Functioning (GAF) scores'
102 Pieces = '1,2,3,4'
103 ExplicitWidth = 624
104 end
105 inherited hcGrid: THeaderControl
106 Width = 624
107 Sections = <
108 item
109 ImageIndex = -1
110 MinWidth = 65
111 Text = 'GAF Score'
112 Width = 65
113 end
114 item
115 ImageIndex = -1
116 MinWidth = 95
117 Text = 'Date Determined'
118 Width = 95
119 end
120 item
121 ImageIndex = -1
122 MinWidth = 85
123 Text = 'Determined By'
124 Width = 85
125 end
126 item
127 ImageIndex = -1
128 MinWidth = 60
129 Text = 'Comment'
130 Width = 60
131 end>
132 ExplicitWidth = 624
133 end
134 end
135 object edtScore: TCaptionEdit [10]
136 Left = 226
137 Top = 171
138 Width = 33
139 Height = 21
140 TabOrder = 1
141 Text = '0'
142 OnChange = edtScoreChange
143 Caption = 'Score'
144 end
145 object udScore: TUpDown [11]
146 Left = 259
147 Top = 171
148 Width = 15
149 Height = 21
150 Associate = edtScore
151 TabOrder = 2
152 end
153 object dteGAF: TORDateBox [12]
154 Left = 226
155 Top = 202
156 Width = 121
157 Height = 21
158 TabOrder = 3
159 OnExit = dteGAFExit
160 DateOnly = True
161 RequireTime = False
162 Caption = 'Date Determined:'
163 end
164 object cboGAFProvider: TORComboBox [13]
165 Left = 226
166 Top = 233
167 Width = 212
168 Height = 117
169 Style = orcsSimple
170 AutoSelect = True
171 Caption = 'Determined By'
172 Color = clWindow
173 DropDownCount = 8
174 ItemHeight = 13
175 ItemTipColor = clWindow
176 ItemTipEnable = True
177 ListItemsOnly = True
178 LongList = True
179 LookupPiece = 2
180 MaxLength = 0
181 Pieces = '2,3'
182 Sorted = False
183 SynonymChars = '<>'
184 TabOrder = 4
185 OnExit = cboGAFProviderExit
186 OnNeedData = cboGAFProviderNeedData
187 CharsNeedMatch = 1
188 end
189 object btnURL: TButton [14]
190 Left = 3
191 Top = 376
192 Width = 134
193 Height = 21
194 Hint = 'GAF Scale Rating Form'
195 Caption = 'Reference Information'
196 ParentShowHint = False
197 ShowHint = True
198 TabOrder = 5
199 OnClick = btnURLClick
200 end
201 inherited amgrMain: TVA508AccessibilityManager
202 Data = (
203 (
204 'Component = lblGAF'
205 'Status = stsDefault')
206 (
207 'Component = lblEntry'
208 'Status = stsDefault')
209 (
210 'Component = edtScore'
211 'Status = stsDefault')
212 (
213 'Component = udScore'
214 'Status = stsDefault')
215 (
216 'Component = dteGAF'
217 'Status = stsDefault')
218 (
219 'Component = cboGAFProvider'
220 'Status = stsDefault')
221 (
222 'Component = btnURL'
223 'Status = stsDefault')
224 (
225 'Component = pnlGrid'
226 'Status = stsDefault')
227 (
228 'Component = lbGrid'
229 'Status = stsDefault')
230 (
231 'Component = hcGrid'
232 'Status = stsDefault')
233 (
234 'Component = btnOK'
235 'Status = stsDefault')
236 (
237 'Component = btnCancel'
238 'Status = stsDefault')
239 (
240 'Component = frmGAF'
241 'Status = stsDefault'))
242 end
243end
Note: See TracBrowser for help on using the repository browser.