source: cprs/trunk/CPRS-Chart/Orders/fOtherSchedule.dfm@ 1713

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

Updating the working copy to CPRS version 28

File size: 9.5 KB
RevLine 
[829]1inherited frmOtherSchedule: TfrmOtherSchedule
[456]2 Left = 544
3 Top = 262
4 Caption = 'Order with schedule '#39'OTHER'#39
5 ClientHeight = 362
[829]6 ClientWidth = 592
[456]7 Constraints.MinHeight = 70
8 Constraints.MinWidth = 280
9 OldCreateOrder = False
10 Position = poOwnerFormCenter
11 OnClose = FormClose
12 OnCreate = FormCreate
[829]13 ExplicitWidth = 600
[1679]14 ExplicitHeight = 396
[456]15 PixelsPerInch = 96
16 TextHeight = 13
[829]17 object Splitter1: TSplitter [0]
[456]18 Left = 0
19 Top = 82
[829]20 Width = 592
[456]21 Height = 8
22 Cursor = crVSplit
23 Align = alTop
24 Beveled = True
25 MinSize = 1
[829]26 ExplicitWidth = 369
[456]27 end
[829]28 object Panel1: TPanel [1]
[456]29 Left = 0
30 Top = 0
[829]31 Width = 592
[456]32 Height = 82
33 Align = alTop
34 BorderWidth = 3
35 TabOrder = 0
36 object Image1: TImage
37 Left = 4
38 Top = 4
39 Width = 48
40 Height = 74
41 Align = alLeft
42 AutoSize = True
43 Transparent = True
44 end
45 object memMessage: TMemo
46 Left = 52
47 Top = 4
[829]48 Width = 536
[456]49 Height = 74
50 Align = alClient
51 BevelInner = bvNone
52 BevelOuter = bvNone
53 Color = clBtnFace
54 ReadOnly = True
55 ScrollBars = ssVertical
56 TabOrder = 0
57 end
58 end
[829]59 object Panel3: TPanel [2]
[456]60 Left = 0
61 Top = 90
[829]62 Width = 592
[456]63 Height = 272
64 Align = alClient
65 AutoSize = True
66 TabOrder = 1
67 object GroupBox1: TGroupBox
68 Left = 1
69 Top = 1
70 Width = 176
71 Height = 202
72 Align = alLeft
73 Caption = 'Select Days of Week'
74 TabOrder = 0
75 object cbo7: TCheckBox
76 Tag = 1
77 Left = 86
78 Top = 21
79 Width = 60
80 Height = 12
81 Caption = 'SUN'
82 TabOrder = 0
83 OnClick = cbo7Click
84 end
85 object cbo1: TCheckBox
86 Tag = 2
87 Left = 85
88 Top = 48
89 Width = 60
90 Height = 12
91 Caption = 'MON'
92 TabOrder = 1
93 OnClick = cbo1Click
94 end
95 object cbo2: TCheckBox
96 Tag = 3
97 Left = 85
98 Top = 75
99 Width = 60
100 Height = 12
101 Caption = 'TUE'
102 TabOrder = 2
103 OnClick = cbo2Click
104 end
105 object cbo3: TCheckBox
106 Tag = 4
107 Left = 85
108 Top = 102
109 Width = 60
110 Height = 12
111 Caption = 'WED'
112 TabOrder = 3
113 OnClick = cbo3Click
114 end
115 object cbo4: TCheckBox
116 Tag = 5
117 Left = 85
118 Top = 129
119 Width = 60
120 Height = 12
121 Caption = 'THU'
122 TabOrder = 4
123 OnClick = cbo4Click
124 end
125 object cbo5: TCheckBox
126 Tag = 6
127 Left = 85
128 Top = 156
129 Width = 60
130 Height = 12
131 Caption = 'FRI'
132 TabOrder = 5
133 OnClick = cbo5Click
134 end
135 object cbo6: TCheckBox
136 Tag = 7
137 Left = 85
138 Top = 183
139 Width = 60
140 Height = 12
141 Caption = 'SAT'
142 TabOrder = 6
143 OnClick = cbo6Click
144 end
145 object Button1: TButton
146 Left = 8
147 Top = 64
148 Width = 60
149 Height = 19
150 Caption = 'Everyday'
151 TabOrder = 7
152 OnClick = Button1Click
153 end
154 end
155 object GroupBox2: TGroupBox
156 Left = 180
157 Top = 1
158 Width = 188
159 Height = 202
160 Caption = 'Set Administration Time'
161 TabOrder = 1
162 object lstHour: TListBox
163 Left = 8
164 Top = 16
165 Width = 49
166 Height = 182
167 ItemHeight = 13
168 Items.Strings = (
169 ' 0'
170 ' 1'
171 ' 2'
172 ' 3'
173 ' 4'
174 ' 5'
175 ' 6'
176 ' 7'
177 ' 8'
178 ' 9'
179 '10'
180 '11'
181 '12 --'
182 '13'
183 '14'
184 '15'
185 '16'
186 '17'
187 '18'
188 '19'
189 '20'
190 '21'
191 '22'
192 '23')
193 TabOrder = 0
194 OnClick = lstHourClick
195 end
196 object lstMinute: TListBox
197 Left = 60
198 Top = 16
199 Width = 49
200 Height = 182
201 ItemHeight = 13
202 Items.Strings = (
203 ':00'
204 ':05'
205 ':10'
206 ':15'
207 ':20'
208 ':25'
209 ':30'
210 ':35'
211 ':40'
212 ':45'
213 ':50'
214 ':55')
215 TabOrder = 1
216 OnKeyDown = lstMinuteKeyDown
217 OnMouseUp = lstMinuteMouseUp
218 end
219 object btnRemove: TButton
220 Left = 118
221 Top = 94
222 Width = 60
223 Height = 19
224 Hint = 'Remove the selected time from the Day-of-Week schedule.'
225 Caption = 'Remove'
226 ParentShowHint = False
227 ShowHint = True
228 TabOrder = 2
229 OnClick = btnRemoveClick
230 end
231 object btnAdd: TButton
232 Left = 118
233 Top = 64
234 Width = 60
235 Height = 19
236 Hint = 'Add the selected time to the Day-of-Week schedule'
237 Caption = 'Add'
238 ParentShowHint = False
239 ShowHint = True
240 TabOrder = 3
241 OnClick = btnAddClick
242 end
243 end
244 object Panel4: TPanel
245 Left = 1
246 Top = 203
[829]247 Width = 590
[456]248 Height = 68
249 Align = alBottom
[829]250 TabOrder = 3
[456]251 DesignSize = (
[829]252 590
[456]253 68)
254 object Label1: TLabel
255 Left = 6
256 Top = 16
257 Width = 51
258 Height = 13
259 Caption = 'Schedule :'
260 end
261 object btn0k1: TButton
[829]262 Left = 427
[456]263 Top = 43
264 Width = 75
265 Height = 20
266 Anchors = [akRight, akBottom]
267 Caption = 'OK'
268 TabOrder = 1
269 OnClick = btn0k1Click
270 end
271 object btnCancel: TButton
[829]272 Left = 508
[456]273 Top = 42
274 Width = 75
275 Height = 20
276 Anchors = [akRight, akBottom]
277 Caption = 'Cancel'
278 ModalResult = 2
279 TabOrder = 2
280 OnClick = btnCancelClick
281 end
282 object btnReset: TButton
283 Left = 8
284 Top = 43
285 Width = 75
286 Height = 20
287 Caption = 'Reset'
288 TabOrder = 3
289 OnClick = btnResetClick
290 end
[829]291 object txtSchedule: TEdit
292 Left = 63
293 Top = 6
294 Width = 520
295 Height = 21
296 Color = clInfoBk
297 ReadOnly = True
298 TabOrder = 0
299 end
[456]300 end
[829]301 object GroupBox3: TGroupBox
302 Left = 374
303 Top = -2
304 Width = 211
305 Height = 202
306 Caption = 'Schedule'
307 TabOrder = 2
308 object NSScboSchedule: TORComboBox
309 Left = 5
[1679]310 Top = 19
[829]311 Width = 121
312 Height = 180
313 Style = orcsSimple
314 AutoSelect = True
315 Color = clWindow
316 DropDownCount = 8
317 ItemHeight = 13
318 ItemTipColor = clWindow
319 ItemTipEnable = True
320 ListItemsOnly = False
321 LongList = False
322 LookupPiece = 1
323 MaxLength = 0
324 Pieces = '1'
325 Sorted = False
326 SynonymChars = '<>'
327 TabOrder = 0
[1679]328 OnExit = NSScboScheduleExit
329 OnKeyUp = NSScboScheduleKeyUp
[829]330 CharsNeedMatch = 1
331 UniqueAutoComplete = True
332 end
333 object btnSchAdd: TButton
334 Left = 132
335 Top = 64
336 Width = 60
337 Height = 19
338 Caption = 'Add'
339 TabOrder = 1
340 OnClick = btnSchAddClick
341 end
342 object btnSchRemove: TButton
343 Left = 132
344 Top = 94
345 Width = 60
346 Height = 19
347 Caption = 'Remove'
348 TabOrder = 2
349 OnClick = btnSchRemoveClick
350 end
351 end
[456]352 end
[829]353 inherited amgrMain: TVA508AccessibilityManager
354 Data = (
355 (
356 'Component = Panel1'
357 'Status = stsDefault')
358 (
359 'Component = memMessage'
360 'Status = stsDefault')
361 (
362 'Component = Panel3'
363 'Status = stsDefault')
364 (
365 'Component = GroupBox1'
366 'Status = stsDefault')
367 (
368 'Component = cbo7'
369 'Status = stsDefault')
370 (
371 'Component = cbo1'
372 'Status = stsDefault')
373 (
374 'Component = cbo2'
375 'Status = stsDefault')
376 (
377 'Component = cbo3'
378 'Status = stsDefault')
379 (
380 'Component = cbo4'
381 'Status = stsDefault')
382 (
383 'Component = cbo5'
384 'Status = stsDefault')
385 (
386 'Component = cbo6'
387 'Status = stsDefault')
388 (
389 'Component = Button1'
390 'Status = stsDefault')
391 (
392 'Component = GroupBox2'
393 'Status = stsDefault')
394 (
395 'Component = lstHour'
396 'Status = stsDefault')
397 (
398 'Component = lstMinute'
399 'Status = stsDefault')
400 (
401 'Component = btnRemove'
402 'Status = stsDefault')
403 (
404 'Component = btnAdd'
405 'Status = stsDefault')
406 (
407 'Component = Panel4'
408 'Status = stsDefault')
409 (
410 'Component = btn0k1'
411 'Status = stsDefault')
412 (
413 'Component = btnCancel'
414 'Status = stsDefault')
415 (
416 'Component = btnReset'
417 'Status = stsDefault')
418 (
419 'Component = GroupBox3'
420 'Status = stsDefault')
421 (
422 'Component = NSScboSchedule'
423 'Status = stsDefault')
424 (
425 'Component = btnSchAdd'
426 'Status = stsDefault')
427 (
428 'Component = btnSchRemove'
429 'Status = stsDefault')
430 (
431 'Component = frmOtherSchedule'
432 'Status = stsDefault')
433 (
434 'Component = txtSchedule'
435 'Status = stsDefault'))
436 end
[456]437end
Note: See TracBrowser for help on using the repository browser.