source: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fGAF.dfm@ 1725

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

Adding foia-cprs branch

File size: 4.1 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
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
137 Left = 259
138 Top = 171
139 Width = 15
140 Height = 21
141 Associate = edtScore
142 Min = 0
143 Position = 0
144 TabOrder = 2
145 Wrap = False
146 end
147 object dteGAF: TORDateBox
148 Left = 226
149 Top = 202
150 Width = 121
151 Height = 21
152 TabOrder = 3
153 OnExit = dteGAFExit
154 DateOnly = True
155 RequireTime = False
156 Caption = 'Date Determined:'
157 end
158 object cboGAFProvider: TORComboBox
159 Left = 226
160 Top = 233
161 Width = 212
162 Height = 117
163 Style = orcsSimple
164 AutoSelect = True
165 Caption = 'Determined By'
166 Color = clWindow
167 DropDownCount = 8
168 ItemHeight = 13
169 ItemTipColor = clWindow
170 ItemTipEnable = True
171 ListItemsOnly = True
172 LongList = True
173 LookupPiece = 2
174 MaxLength = 0
175 Pieces = '2,3'
176 Sorted = False
177 SynonymChars = '<>'
178 TabOrder = 4
179 OnExit = cboGAFProviderExit
180 OnNeedData = cboGAFProviderNeedData
181 end
182 object btnURL: TButton
183 Left = 3
184 Top = 376
185 Width = 134
186 Height = 21
187 Hint = 'GAF Scale Rating Form'
188 Caption = 'Reference Information'
189 ParentShowHint = False
190 ShowHint = True
191 TabOrder = 5
192 OnClick = btnURLClick
193 end
194end
Note: See TracBrowser for help on using the repository browser.