source: cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fGAF.dfm@ 1620

Last change on this file since 1620 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

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