source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fReminderDialog.dfm@ 1722

Last change on this file since 1722 was 1693, checked in by healthsevak, 9 years ago

Committing the files for first time to this new branch

File size: 6.5 KB
Line 
1inherited frmRemDlg: TfrmRemDlg
2 Left = 310
3 Top = 154
4 Width = 545
5 Height = 407
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 OnMouseWheel = FormMouseWheel
18 OnShow = FormShow
19 ExplicitWidth = 545
20 ExplicitHeight = 407
21 PixelsPerInch = 96
22 TextHeight = 13
23 object splTxtData: TSplitter [0]
24 Left = 0
25 Top = 211
26 Width = 537
27 Height = 3
28 Cursor = crVSplit
29 Align = alBottom
30 ExplicitTop = 218
31 end
32 object sb1: TScrollBox [1]
33 Left = 0
34 Top = 0
35 Width = 537
36 Height = 211
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
49 ExplicitHeight = 218
50 end
51 object sb2: TScrollBox [2]
52 Left = 0
53 Top = 0
54 Width = 537
55 Height = 211
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
67 ExplicitHeight = 218
68 end
69 object pnlFrmBottom: TPanel [3]
70 Left = 0
71 Top = 214
72 Width = 537
73 Height = 159
74 Align = alBottom
75 BevelOuter = bvNone
76 TabOrder = 2
77 ExplicitTop = 221
78 object lblFootnotes: TLabel
79 Left = 0
80 Top = 144
81 Width = 537
82 Height = 15
83 Align = alBottom
84 AutoSize = False
85 Caption = ' * Indicates a Required Field'
86 end
87 object pnlBottom: TPanel
88 Left = 0
89 Top = 0
90 Width = 537
91 Height = 144
92 Align = alClient
93 TabOrder = 0
94 object splText: TSplitter
95 Left = 1
96 Top = 94
97 Width = 535
98 Height = 3
99 Cursor = crVSplit
100 Align = alBottom
101 end
102 object reData: TRichEdit
103 Left = 1
104 Top = 97
105 Width = 535
106 Height = 46
107 Align = alBottom
108 Color = clCream
109 Constraints.MinHeight = 30
110 ReadOnly = True
111 ScrollBars = ssVertical
112 TabOrder = 2
113 WantReturns = False
114 end
115 object reText: TRichEdit
116 Left = 1
117 Top = 25
118 Width = 535
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 = []
127 Constraints.MinHeight = 30
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
138 Width = 535
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
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
272end
Note: See TracBrowser for help on using the repository browser.