source: cprs/trunk/CPRS-Chart/fReminderDialog.dfm@ 1719

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

Updating the working copy to CPRS version 28
File size: 6.5 KB
RevLine 
[830]1inherited frmRemDlg: TfrmRemDlg
2 Left = 310
3 Top = 154
[1679]4 Width = 545
5 Height = 407
[456]6 HelpContext = 11100
7 VertScrollBar.Range = 162
8 BorderIcons = [biSystemMenu]
9 Caption = 'Reminder Dialog'
10 Constraints.MinHeight = 250
11 Constraints.MinWidth = 250
12 FormStyle = fsStayOnTop
13 OnClose = FormClose
14 OnCloseQuery = FormCloseQuery
15 OnCreate = FormCreate
16 OnDestroy = FormDestroy
[1679]17 OnMouseWheel = FormMouseWheel
[456]18 OnShow = FormShow
[1679]19 ExplicitWidth = 545
20 ExplicitHeight = 407
[456]21 PixelsPerInch = 96
22 TextHeight = 13
[830]23 object splTxtData: TSplitter [0]
[456]24 Left = 0
[1679]25 Top = 211
26 Width = 537
[456]27 Height = 3
28 Cursor = crVSplit
29 Align = alBottom
[830]30 ExplicitTop = 218
[456]31 end
[830]32 object sb1: TScrollBox [1]
[456]33 Left = 0
34 Top = 0
[1679]35 Width = 537
36 Height = 211
[456]37 HorzScrollBar.Tracking = True
38 VertScrollBar.Tracking = True
39 Align = alClient
40 Font.Charset = ANSI_CHARSET
41 Font.Color = clWindowText
42 Font.Height = -11
43 Font.Name = 'Courier New'
44 Font.Style = []
45 ParentFont = False
46 TabOrder = 0
47 Visible = False
48 OnResize = sbResize
[830]49 ExplicitHeight = 218
[456]50 end
[830]51 object sb2: TScrollBox [2]
[456]52 Left = 0
53 Top = 0
[1679]54 Width = 537
55 Height = 211
[456]56 HorzScrollBar.Tracking = True
57 VertScrollBar.Tracking = True
58 Align = alClient
59 Font.Charset = ANSI_CHARSET
60 Font.Color = clWindowText
61 Font.Height = -11
62 Font.Name = 'Courier New'
63 Font.Style = []
64 ParentFont = False
65 TabOrder = 1
66 OnResize = sbResize
[830]67 ExplicitHeight = 218
[456]68 end
[830]69 object pnlFrmBottom: TPanel [3]
[456]70 Left = 0
[1679]71 Top = 214
72 Width = 537
[456]73 Height = 159
74 Align = alBottom
75 BevelOuter = bvNone
76 TabOrder = 2
[830]77 ExplicitTop = 221
78 object lblFootnotes: TLabel
79 Left = 0
80 Top = 144
[1679]81 Width = 537
[830]82 Height = 15
83 Align = alBottom
84 AutoSize = False
85 Caption = ' * Indicates a Required Field'
86 end
[456]87 object pnlBottom: TPanel
88 Left = 0
89 Top = 0
[1679]90 Width = 537
[456]91 Height = 144
92 Align = alClient
93 TabOrder = 0
94 object splText: TSplitter
95 Left = 1
96 Top = 94
[1679]97 Width = 535
[456]98 Height = 3
99 Cursor = crVSplit
100 Align = alBottom
101 end
102 object reData: TRichEdit
103 Left = 1
104 Top = 97
[1679]105 Width = 535
[456]106 Height = 46
107 Align = alBottom
108 Color = clCream
[1679]109 Constraints.MinHeight = 30
[456]110 ReadOnly = True
111 ScrollBars = ssVertical
112 TabOrder = 2
113 WantReturns = False
114 end
115 object reText: TRichEdit
116 Left = 1
117 Top = 25
[1679]118 Width = 535
[456]119 Height = 69
120 Align = alClient
121 Color = clCream
122 Font.Charset = ANSI_CHARSET
123 Font.Color = clWindowText
124 Font.Height = -11
125 Font.Name = 'Courier New'
126 Font.Style = []
[1679]127 Constraints.MinHeight = 30
[456]128 ParentFont = False
129 ReadOnly = True
130 ScrollBars = ssBoth
131 TabOrder = 1
132 WantReturns = False
133 WordWrap = False
134 end
135 object pnlButtons: TORAutoPanel
136 Left = 1
137 Top = 1
[1679]138 Width = 535
[456]139 Height = 24
140 Align = alTop
141 BevelOuter = bvNone
142 ParentShowHint = False
143 ShowHint = True
144 TabOrder = 0
145 object btnClear: TButton
146 Left = 2
147 Top = 2
148 Width = 66
149 Height = 21
150 Hint = 'Clear Reminder Resolutions for this Reminder'
151 Caption = 'Clear'
152 TabOrder = 0
153 OnClick = btnClearClick
154 end
155 object btnBack: TButton
156 Left = 263
157 Top = 2
158 Width = 66
159 Height = 21
160 Hint = 'Go back to the Previous Reminder Dialog'
161 Caption = '< Back'
162 TabOrder = 3
163 OnClick = btnBackClick
164 end
165 object btnCancel: TButton
166 Left = 467
167 Top = 2
168 Width = 66
169 Height = 21
170 Hint = 'Cancel All Reminder Dialog Processing'
171 Cancel = True
172 Caption = 'Cancel'
173 TabOrder = 6
174 OnClick = btnCancelClick
175 end
176 object btnNext: TButton
177 Left = 331
178 Top = 2
179 Width = 66
180 Height = 21
181 Hint = 'Go on to the Next Reminder Dialog'
182 Caption = 'Next >'
183 TabOrder = 4
184 OnClick = btnNextClick
185 end
186 object btnFinish: TButton
187 Left = 399
188 Top = 2
189 Width = 66
190 Height = 21
191 Hint = 'Finish Processing'
192 Caption = 'Finish'
193 TabOrder = 5
194 OnClick = btnFinishClick
195 end
196 object btnClinMaint: TButton
197 Left = 70
198 Top = 2
199 Width = 105
200 Height = 21
201 Hint = 'View the Clinical Maintenance Component'
202 Caption = 'Clinical &Maint'
203 TabOrder = 1
204 OnClick = btnClinMaintClick
205 end
206 object btnVisit: TButton
207 Left = 177
208 Top = 2
209 Width = 84
210 Height = 21
211 Caption = '&Visit Info'
212 TabOrder = 2
213 OnClick = btnVisitClick
214 end
215 end
216 end
217 end
[830]218 inherited amgrMain: TVA508AccessibilityManager
219 Data = (
220 (
221 'Component = sb1'
222 'Status = stsDefault')
223 (
224 'Component = sb2'
225 'Status = stsDefault')
226 (
227 'Component = pnlFrmBottom'
228 'Status = stsDefault')
229 (
230 'Component = pnlBottom'
231 'Status = stsDefault')
232 (
233 'Component = reData'
234 'Status = stsDefault')
235 (
236 'Component = reText'
237 'Status = stsDefault')
238 (
239 'Component = pnlButtons'
240 'Status = stsDefault')
241 (
242 'Component = btnClear'
243 'Property = Hint'
244 'Status = stsOK')
245 (
246 'Component = btnBack'
247 'Property = Hint'
248 'Status = stsOK')
249 (
250 'Component = btnCancel'
251 'Property = Hint'
252 'Status = stsOK')
253 (
254 'Component = btnNext'
255 'Property = Hint'
256 'Status = stsOK')
257 (
258 'Component = btnFinish'
259 'Property = Hint'
260 'Status = stsOK')
261 (
262 'Component = btnClinMaint'
263 'Property = Hint'
264 'Status = stsOK')
265 (
266 'Component = btnVisit'
267 'Status = stsDefault')
268 (
269 'Component = frmRemDlg'
270 'Status = stsDefault'))
271 end
[456]272end
Note: See TracBrowser for help on using the repository browser.