source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOtherSchedule.dfm@ 1085

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

Uploading from OR_30_258
File size: 6.7 KB
RevLine 
[459]1object frmOtherSchedule: TfrmOtherSchedule
[460]2 Left = 544
3 Top = 262
[459]4 AutoScroll = False
5 Caption = 'Order with schedule '#39'OTHER'#39
6 ClientHeight = 362
[460]7 ClientWidth = 369
[459]8 Color = clBtnFace
9 Constraints.MinHeight = 70
10 Constraints.MinWidth = 280
11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 Font.Style = []
16 OldCreateOrder = False
17 Position = poOwnerFormCenter
18 OnClose = FormClose
19 OnCreate = FormCreate
20 PixelsPerInch = 96
21 TextHeight = 13
22 object Splitter1: TSplitter
23 Left = 0
24 Top = 82
[460]25 Width = 369
[459]26 Height = 8
27 Cursor = crVSplit
28 Align = alTop
29 Beveled = True
30 MinSize = 1
31 end
32 object Panel1: TPanel
33 Left = 0
34 Top = 0
[460]35 Width = 369
[459]36 Height = 82
37 Align = alTop
38 BorderWidth = 3
39 TabOrder = 0
40 object Image1: TImage
41 Left = 4
42 Top = 4
43 Width = 48
44 Height = 74
45 Align = alLeft
46 AutoSize = True
47 Transparent = True
48 end
49 object memMessage: TMemo
50 Left = 52
51 Top = 4
[460]52 Width = 313
[459]53 Height = 74
54 Align = alClient
55 BevelInner = bvNone
56 BevelOuter = bvNone
57 Color = clBtnFace
58 ReadOnly = True
59 ScrollBars = ssVertical
60 TabOrder = 0
61 end
62 end
63 object Panel3: TPanel
64 Left = 0
65 Top = 90
[460]66 Width = 369
[459]67 Height = 272
68 Align = alClient
69 AutoSize = True
70 TabOrder = 1
71 object GroupBox1: TGroupBox
72 Left = 1
73 Top = 1
[460]74 Width = 176
[459]75 Height = 202
76 Align = alLeft
77 Caption = 'Select Days of Week'
78 TabOrder = 0
79 object cbo7: TCheckBox
80 Tag = 1
[460]81 Left = 86
[459]82 Top = 21
83 Width = 60
84 Height = 12
85 Caption = 'SUN'
86 TabOrder = 0
87 OnClick = cbo7Click
88 end
89 object cbo1: TCheckBox
90 Tag = 2
[460]91 Left = 85
[459]92 Top = 48
93 Width = 60
94 Height = 12
95 Caption = 'MON'
96 TabOrder = 1
97 OnClick = cbo1Click
98 end
99 object cbo2: TCheckBox
100 Tag = 3
[460]101 Left = 85
[459]102 Top = 75
103 Width = 60
104 Height = 12
105 Caption = 'TUE'
106 TabOrder = 2
107 OnClick = cbo2Click
108 end
109 object cbo3: TCheckBox
110 Tag = 4
[460]111 Left = 85
[459]112 Top = 102
113 Width = 60
114 Height = 12
115 Caption = 'WED'
116 TabOrder = 3
117 OnClick = cbo3Click
118 end
119 object cbo4: TCheckBox
120 Tag = 5
[460]121 Left = 85
[459]122 Top = 129
123 Width = 60
124 Height = 12
125 Caption = 'THU'
126 TabOrder = 4
127 OnClick = cbo4Click
128 end
129 object cbo5: TCheckBox
130 Tag = 6
[460]131 Left = 85
[459]132 Top = 156
133 Width = 60
134 Height = 12
135 Caption = 'FRI'
136 TabOrder = 5
137 OnClick = cbo5Click
138 end
139 object cbo6: TCheckBox
140 Tag = 7
[460]141 Left = 85
[459]142 Top = 183
143 Width = 60
144 Height = 12
145 Caption = 'SAT'
146 TabOrder = 6
147 OnClick = cbo6Click
148 end
[460]149 object Button1: TButton
150 Left = 8
151 Top = 64
152 Width = 60
153 Height = 19
154 Caption = 'Everyday'
155 TabOrder = 7
156 OnClick = Button1Click
157 end
[459]158 end
159 object GroupBox2: TGroupBox
[460]160 Left = 180
[459]161 Top = 1
162 Width = 188
163 Height = 202
164 Align = alRight
165 Caption = 'Set Administration Time'
166 TabOrder = 1
167 object lstHour: TListBox
168 Left = 8
169 Top = 16
170 Width = 49
171 Height = 182
172 ItemHeight = 13
173 Items.Strings = (
174 ' 0'
175 ' 1'
176 ' 2'
177 ' 3'
178 ' 4'
179 ' 5'
180 ' 6'
181 ' 7'
182 ' 8'
183 ' 9'
184 '10'
185 '11'
186 '12 --'
187 '13'
188 '14'
189 '15'
190 '16'
191 '17'
192 '18'
193 '19'
194 '20'
195 '21'
196 '22'
197 '23')
198 TabOrder = 0
199 OnClick = lstHourClick
200 end
201 object lstMinute: TListBox
202 Left = 60
203 Top = 16
204 Width = 49
205 Height = 182
206 ItemHeight = 13
207 Items.Strings = (
208 ':00'
209 ':05'
210 ':10'
211 ':15'
212 ':20'
213 ':25'
214 ':30'
215 ':35'
216 ':40'
217 ':45'
218 ':50'
219 ':55')
220 TabOrder = 1
221 OnKeyDown = lstMinuteKeyDown
222 OnMouseUp = lstMinuteMouseUp
223 end
224 object btnRemove: TButton
[460]225 Left = 118
[459]226 Top = 94
227 Width = 60
228 Height = 19
[460]229 Hint = 'Remove the selected time from the Day-of-Week schedule.'
[459]230 Caption = 'Remove'
[460]231 ParentShowHint = False
232 ShowHint = True
[459]233 TabOrder = 2
234 OnClick = btnRemoveClick
235 end
[460]236 object btnAdd: TButton
237 Left = 118
238 Top = 64
239 Width = 60
240 Height = 19
241 Hint = 'Add the selected time to the Day-of-Week schedule'
242 Caption = 'Add'
243 ParentShowHint = False
244 ShowHint = True
245 TabOrder = 3
246 OnClick = btnAddClick
247 end
[459]248 end
249 object Panel4: TPanel
250 Left = 1
251 Top = 203
[460]252 Width = 367
[459]253 Height = 68
254 Align = alBottom
255 TabOrder = 2
256 DesignSize = (
[460]257 367
[459]258 68)
259 object Label1: TLabel
260 Left = 6
261 Top = 16
262 Width = 51
263 Height = 13
264 Caption = 'Schedule :'
265 end
266 object btn0k1: TButton
[460]267 Left = 204
[459]268 Top = 43
269 Width = 75
270 Height = 20
271 Anchors = [akRight, akBottom]
272 Caption = 'OK'
273 TabOrder = 1
274 OnClick = btn0k1Click
275 end
276 object btnCancel: TButton
[460]277 Left = 285
[459]278 Top = 42
279 Width = 75
280 Height = 20
281 Anchors = [akRight, akBottom]
282 Caption = 'Cancel'
283 ModalResult = 2
284 TabOrder = 2
285 OnClick = btnCancelClick
286 end
287 object txtSchedule: TEdit
288 Left = 64
289 Top = 8
[460]290 Width = 296
[459]291 Height = 21
292 Anchors = [akLeft, akTop, akRight]
[460]293 Color = clInfoBk
294 Enabled = False
295 Font.Charset = DEFAULT_CHARSET
296 Font.Color = clWindowText
297 Font.Height = -11
298 Font.Name = 'MS Sans Serif'
299 Font.Style = [fsBold]
300 ParentFont = False
301 ReadOnly = True
[459]302 TabOrder = 0
303 OnChange = txtScheduleChange
304 end
305 object btnReset: TButton
306 Left = 8
307 Top = 43
308 Width = 75
309 Height = 20
310 Caption = 'Reset'
311 TabOrder = 3
312 OnClick = btnResetClick
313 end
314 end
315 end
316end
Note: See TracBrowser for help on using the repository browser.