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

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

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