1 | inherited frmProblems: TfrmProblems
|
---|
2 | Left = 627
|
---|
3 | Top = 64
|
---|
4 | Width = 639
|
---|
5 | Height = 409
|
---|
6 | HelpContext = 2000
|
---|
7 | Caption = 'Problems List Page'
|
---|
8 | HelpFile = 'overvw'
|
---|
9 | Menu = mnuProbs
|
---|
10 | OnDestroy = FormDestroy
|
---|
11 | OnHide = FormHide
|
---|
12 | OnMouseMove = FormMouseMove
|
---|
13 | OnShow = FormShow
|
---|
14 | PixelsPerInch = 96
|
---|
15 | TextHeight = 13
|
---|
16 | inherited shpPageBottom: TShape
|
---|
17 | Top = 358
|
---|
18 | Width = 631
|
---|
19 | Constraints.MinHeight = 5
|
---|
20 | end
|
---|
21 | inherited sptHorz: TSplitter
|
---|
22 | Left = 159
|
---|
23 | Width = 2
|
---|
24 | Height = 358
|
---|
25 | OnMoved = sptHorzMoved
|
---|
26 | end
|
---|
27 | inherited pnlLeft: TPanel
|
---|
28 | Width = 159
|
---|
29 | Height = 358
|
---|
30 | TabStop = True
|
---|
31 | object pnlButtons: TPanel
|
---|
32 | Left = 0
|
---|
33 | Top = 312
|
---|
34 | Width = 159
|
---|
35 | Height = 46
|
---|
36 | Align = alBottom
|
---|
37 | BevelOuter = bvNone
|
---|
38 | Constraints.MinHeight = 46
|
---|
39 | TabOrder = 3
|
---|
40 | object bbOtherProb: TORAlignButton
|
---|
41 | Left = 0
|
---|
42 | Top = 2
|
---|
43 | Width = 159
|
---|
44 | Height = 22
|
---|
45 | Caption = 'Other Problem'
|
---|
46 | TabOrder = 0
|
---|
47 | OnClick = bbOtherProbClick
|
---|
48 | OnExit = bbNewProbExit
|
---|
49 | OnMouseMove = FormMouseMove
|
---|
50 | Align = alBottom
|
---|
51 | end
|
---|
52 | object bbCancel: TORAlignButton
|
---|
53 | Left = 0
|
---|
54 | Top = 24
|
---|
55 | Width = 159
|
---|
56 | Height = 22
|
---|
57 | Caption = 'Cancel'
|
---|
58 | TabOrder = 1
|
---|
59 | OnClick = bbCancelClick
|
---|
60 | OnExit = bbNewProbExit
|
---|
61 | OnMouseMove = FormMouseMove
|
---|
62 | Align = alBottom
|
---|
63 | end
|
---|
64 | end
|
---|
65 | object pnlView: TPanel
|
---|
66 | Left = 0
|
---|
67 | Top = 0
|
---|
68 | Width = 159
|
---|
69 | Height = 312
|
---|
70 | Align = alClient
|
---|
71 | BevelOuter = bvNone
|
---|
72 | TabOrder = 1
|
---|
73 | object lblView: TOROffsetLabel
|
---|
74 | Left = 0
|
---|
75 | Top = 0
|
---|
76 | Width = 159
|
---|
77 | Height = 19
|
---|
78 | Align = alTop
|
---|
79 | Caption = 'View options'
|
---|
80 | HorzOffset = 2
|
---|
81 | Transparent = False
|
---|
82 | VertOffset = 6
|
---|
83 | WordWrap = False
|
---|
84 | end
|
---|
85 | object lstView: TORListBox
|
---|
86 | Left = 0
|
---|
87 | Top = 19
|
---|
88 | Width = 159
|
---|
89 | Height = 97
|
---|
90 | Align = alTop
|
---|
91 | ExtendedSelect = False
|
---|
92 | ItemHeight = 13
|
---|
93 | Items.Strings = (
|
---|
94 | 'A^Active'
|
---|
95 | 'I^Inactive'
|
---|
96 | 'B^Both active and inactive'
|
---|
97 | 'R^Removed')
|
---|
98 | ParentShowHint = False
|
---|
99 | ShowHint = True
|
---|
100 | TabOrder = 0
|
---|
101 | OnClick = lstViewClick
|
---|
102 | OnExit = lstViewExit
|
---|
103 | OnMouseMove = FormMouseMove
|
---|
104 | Caption = 'View options'
|
---|
105 | ItemTipColor = clWindow
|
---|
106 | LongList = False
|
---|
107 | Pieces = '2'
|
---|
108 | end
|
---|
109 | object bbNewProb: TORAlignButton
|
---|
110 | Tag = 100
|
---|
111 | Left = 0
|
---|
112 | Top = 116
|
---|
113 | Width = 159
|
---|
114 | Height = 24
|
---|
115 | Caption = 'New problem'
|
---|
116 | TabOrder = 1
|
---|
117 | OnClick = lstProbActsClick
|
---|
118 | OnExit = bbNewProbExit
|
---|
119 | OnMouseMove = FormMouseMove
|
---|
120 | Align = alTop
|
---|
121 | end
|
---|
122 | end
|
---|
123 | object pnlProbEnt: TPanel
|
---|
124 | Left = 0
|
---|
125 | Top = 0
|
---|
126 | Width = 159
|
---|
127 | Height = 312
|
---|
128 | Align = alClient
|
---|
129 | BevelOuter = bvNone
|
---|
130 | TabOrder = 2
|
---|
131 | Visible = False
|
---|
132 | OnResize = pnlProbEntResize
|
---|
133 | object lblProbEnt: TLabel
|
---|
134 | Left = 0
|
---|
135 | Top = 278
|
---|
136 | Width = 159
|
---|
137 | Height = 13
|
---|
138 | Align = alBottom
|
---|
139 | AutoSize = False
|
---|
140 | Caption = 'Enter new problem:'
|
---|
141 | end
|
---|
142 | object edProbEnt: TCaptionEdit
|
---|
143 | Left = 0
|
---|
144 | Top = 291
|
---|
145 | Width = 159
|
---|
146 | Height = 21
|
---|
147 | TabOrder = 0
|
---|
148 | OnExit = lstViewExit
|
---|
149 | OnKeyPress = edProbEntKeyPress
|
---|
150 | Align = alBottom
|
---|
151 | Caption = 'Enter new problem'
|
---|
152 | end
|
---|
153 | end
|
---|
154 | object pnlProbList: TORAutoPanel
|
---|
155 | Left = 0
|
---|
156 | Top = 0
|
---|
157 | Width = 159
|
---|
158 | Height = 312
|
---|
159 | Align = alClient
|
---|
160 | BevelOuter = bvNone
|
---|
161 | Constraints.MinHeight = 90
|
---|
162 | TabOrder = 0
|
---|
163 | object sptProbPanel: TSplitter
|
---|
164 | Left = 0
|
---|
165 | Top = 157
|
---|
166 | Width = 159
|
---|
167 | Height = 3
|
---|
168 | Cursor = crVSplit
|
---|
169 | Align = alTop
|
---|
170 | end
|
---|
171 | object pnlProbCats: TPanel
|
---|
172 | Left = 0
|
---|
173 | Top = 0
|
---|
174 | Width = 159
|
---|
175 | Height = 157
|
---|
176 | Align = alTop
|
---|
177 | BevelOuter = bvNone
|
---|
178 | TabOrder = 0
|
---|
179 | object lblProbCats: TLabel
|
---|
180 | Left = 0
|
---|
181 | Top = 0
|
---|
182 | Width = 159
|
---|
183 | Height = 13
|
---|
184 | Align = alTop
|
---|
185 | AutoSize = False
|
---|
186 | Caption = 'Problem categories'
|
---|
187 | end
|
---|
188 | object lstCatPick: TORListBox
|
---|
189 | Left = 0
|
---|
190 | Top = 13
|
---|
191 | Width = 159
|
---|
192 | Height = 144
|
---|
193 | Hint = 'Select problem category'
|
---|
194 | Align = alClient
|
---|
195 | ExtendedSelect = False
|
---|
196 | ItemHeight = 13
|
---|
197 | ParentShowHint = False
|
---|
198 | ShowHint = True
|
---|
199 | TabOrder = 0
|
---|
200 | OnClick = lstCatPickClick
|
---|
201 | OnExit = lstViewExit
|
---|
202 | OnMouseMove = FormMouseMove
|
---|
203 | Caption = 'Problem categories'
|
---|
204 | ItemTipColor = clWindow
|
---|
205 | LongList = False
|
---|
206 | Pieces = '2'
|
---|
207 | end
|
---|
208 | end
|
---|
209 | object pnlProbs: TPanel
|
---|
210 | Left = 0
|
---|
211 | Top = 160
|
---|
212 | Width = 159
|
---|
213 | Height = 152
|
---|
214 | Align = alClient
|
---|
215 | BevelOuter = bvNone
|
---|
216 | TabOrder = 1
|
---|
217 | object lblProblems: TLabel
|
---|
218 | Left = 0
|
---|
219 | Top = 0
|
---|
220 | Width = 159
|
---|
221 | Height = 13
|
---|
222 | Align = alTop
|
---|
223 | AutoSize = False
|
---|
224 | Caption = 'Problems'
|
---|
225 | Constraints.MaxHeight = 13
|
---|
226 | Constraints.MinHeight = 13
|
---|
227 | end
|
---|
228 | object lstProbPick: TORListBox
|
---|
229 | Left = 0
|
---|
230 | Top = 13
|
---|
231 | Width = 159
|
---|
232 | Height = 139
|
---|
233 | Hint = 'Select problem to add'
|
---|
234 | Align = alClient
|
---|
235 | Ctl3D = False
|
---|
236 | ExtendedSelect = False
|
---|
237 | ItemHeight = 13
|
---|
238 | ParentCtl3D = False
|
---|
239 | ParentShowHint = False
|
---|
240 | ShowHint = True
|
---|
241 | TabOrder = 0
|
---|
242 | OnClick = lstProbPickClick
|
---|
243 | OnDblClick = lstProbPickDblClick
|
---|
244 | Caption = 'Problems'
|
---|
245 | ItemTipColor = clWindow
|
---|
246 | LongList = False
|
---|
247 | Pieces = '2,3'
|
---|
248 | end
|
---|
249 | end
|
---|
250 | end
|
---|
251 | end
|
---|
252 | inherited pnlRight: TPanel
|
---|
253 | Left = 161
|
---|
254 | Width = 470
|
---|
255 | Height = 358
|
---|
256 | OnExit = pnlRightExit
|
---|
257 | OnResize = pnlRightResize
|
---|
258 | object lblProbList: TOROffsetLabel
|
---|
259 | Left = 0
|
---|
260 | Top = 0
|
---|
261 | Width = 470
|
---|
262 | Height = 19
|
---|
263 | Align = alTop
|
---|
264 | Caption = 'Active Problems List'
|
---|
265 | HorzOffset = 2
|
---|
266 | Transparent = False
|
---|
267 | VertOffset = 6
|
---|
268 | WordWrap = False
|
---|
269 | end
|
---|
270 | object pnlProbDlg: TPanel
|
---|
271 | Left = 0
|
---|
272 | Top = 36
|
---|
273 | Width = 470
|
---|
274 | Height = 322
|
---|
275 | Align = alClient
|
---|
276 | TabOrder = 0
|
---|
277 | Visible = False
|
---|
278 | OnMouseMove = FormMouseMove
|
---|
279 | end
|
---|
280 | object wgProbData: TCaptionListBox
|
---|
281 | Left = 0
|
---|
282 | Top = 36
|
---|
283 | Width = 470
|
---|
284 | Height = 322
|
---|
285 | Style = lbOwnerDrawVariable
|
---|
286 | Align = alClient
|
---|
287 | Color = clCream
|
---|
288 | ItemHeight = 13
|
---|
289 | MultiSelect = True
|
---|
290 | ParentShowHint = False
|
---|
291 | PopupMenu = popProb
|
---|
292 | ShowHint = True
|
---|
293 | TabOrder = 1
|
---|
294 | OnClick = wgProbDataClick
|
---|
295 | OnDblClick = wgProbDataDblClick
|
---|
296 | OnDrawItem = wgProbDataDrawItem
|
---|
297 | OnMeasureItem = wgProbDataMeasureItem
|
---|
298 | OnMouseMove = FormMouseMove
|
---|
299 | Caption = 'Active Problems List'
|
---|
300 | end
|
---|
301 | object HeaderControl: THeaderControl
|
---|
302 | Left = 0
|
---|
303 | Top = 19
|
---|
304 | Width = 470
|
---|
305 | Height = 17
|
---|
306 | DragReorder = False
|
---|
307 | Sections = <
|
---|
308 | item
|
---|
309 | ImageIndex = -1
|
---|
310 | Text = 'Column 0'
|
---|
311 | Width = 0
|
---|
312 | end
|
---|
313 | item
|
---|
314 | ImageIndex = -1
|
---|
315 | Text = 'Stat/Ver'
|
---|
316 | Width = 65
|
---|
317 | end
|
---|
318 | item
|
---|
319 | ImageIndex = -1
|
---|
320 | MinWidth = 20
|
---|
321 | Text = 'Description'
|
---|
322 | Width = 65
|
---|
323 | end
|
---|
324 | item
|
---|
325 | ImageIndex = -1
|
---|
326 | MinWidth = 16
|
---|
327 | Text = 'Onset Date'
|
---|
328 | Width = 65
|
---|
329 | end
|
---|
330 | item
|
---|
331 | ImageIndex = -1
|
---|
332 | MinWidth = 16
|
---|
333 | Text = 'Last Updated'
|
---|
334 | Width = 80
|
---|
335 | end
|
---|
336 | item
|
---|
337 | ImageIndex = -1
|
---|
338 | Text = 'Column 5'
|
---|
339 | Width = 0
|
---|
340 | end
|
---|
341 | item
|
---|
342 | ImageIndex = -1
|
---|
343 | Text = 'Location'
|
---|
344 | Width = 65
|
---|
345 | end
|
---|
346 | item
|
---|
347 | ImageIndex = -1
|
---|
348 | Text = 'Provider'
|
---|
349 | Width = 65
|
---|
350 | end
|
---|
351 | item
|
---|
352 | ImageIndex = -1
|
---|
353 | Text = 'Service'
|
---|
354 | Width = 65
|
---|
355 | end
|
---|
356 | item
|
---|
357 | ImageIndex = -1
|
---|
358 | Text = 'Column 9'
|
---|
359 | Width = 0
|
---|
360 | end
|
---|
361 | item
|
---|
362 | ImageIndex = -1
|
---|
363 | Text = 'Column 10'
|
---|
364 | Width = 0
|
---|
365 | end
|
---|
366 | item
|
---|
367 | ImageIndex = -1
|
---|
368 | Text = 'Column 11'
|
---|
369 | Width = 0
|
---|
370 | end
|
---|
371 | item
|
---|
372 | ImageIndex = -1
|
---|
373 | Text = 'Column12'
|
---|
374 | Width = 0
|
---|
375 | end
|
---|
376 | item
|
---|
377 | ImageIndex = -1
|
---|
378 | Text = 'Column 13'
|
---|
379 | Width = 0
|
---|
380 | end
|
---|
381 | item
|
---|
382 | ImageIndex = -1
|
---|
383 | Text = 'Column 14'
|
---|
384 | Width = 0
|
---|
385 | end
|
---|
386 | item
|
---|
387 | ImageIndex = -1
|
---|
388 | Text = 'Inactive Flag'
|
---|
389 | Width = 0
|
---|
390 | end>
|
---|
391 | OnSectionClick = HeaderControlSectionClick
|
---|
392 | OnSectionResize = HeaderControlSectionResize
|
---|
393 | OnMouseDown = HeaderControlMouseDown
|
---|
394 | OnMouseUp = HeaderControlMouseUp
|
---|
395 | end
|
---|
396 | end
|
---|
397 | object popProb: TPopupMenu
|
---|
398 | Left = 282
|
---|
399 | Top = 313
|
---|
400 | object popChange: TMenuItem
|
---|
401 | Tag = 400
|
---|
402 | Caption = '&Change...'
|
---|
403 | Enabled = False
|
---|
404 | OnClick = lstProbActsClick
|
---|
405 | end
|
---|
406 | object popInactivate: TMenuItem
|
---|
407 | Tag = 200
|
---|
408 | Caption = '&Inactivate'
|
---|
409 | Enabled = False
|
---|
410 | OnClick = lstProbActsClick
|
---|
411 | end
|
---|
412 | object popVerify: TMenuItem
|
---|
413 | Tag = 250
|
---|
414 | Caption = '&Verify...'
|
---|
415 | Enabled = False
|
---|
416 | OnClick = lstProbActsClick
|
---|
417 | end
|
---|
418 | object N36: TMenuItem
|
---|
419 | Caption = '-'
|
---|
420 | Enabled = False
|
---|
421 | end
|
---|
422 | object popAnnotate: TMenuItem
|
---|
423 | Tag = 600
|
---|
424 | Caption = '&Annotate...'
|
---|
425 | Enabled = False
|
---|
426 | OnClick = lstProbActsClick
|
---|
427 | end
|
---|
428 | object N37: TMenuItem
|
---|
429 | Caption = '-'
|
---|
430 | Enabled = False
|
---|
431 | Visible = False
|
---|
432 | end
|
---|
433 | object popRemove: TMenuItem
|
---|
434 | Tag = 500
|
---|
435 | Caption = '&Remove...'
|
---|
436 | Enabled = False
|
---|
437 | OnClick = lstProbActsClick
|
---|
438 | end
|
---|
439 | object popRestore: TMenuItem
|
---|
440 | Tag = 550
|
---|
441 | Caption = 'Re&store'
|
---|
442 | Enabled = False
|
---|
443 | OnClick = lstProbActsClick
|
---|
444 | end
|
---|
445 | object N3: TMenuItem
|
---|
446 | Caption = '-'
|
---|
447 | end
|
---|
448 | object popViewDetails: TMenuItem
|
---|
449 | Tag = 300
|
---|
450 | Caption = 'View Details'
|
---|
451 | OnClick = lstProbActsClick
|
---|
452 | end
|
---|
453 | object mnuOptimizeFields: TMenuItem
|
---|
454 | Caption = 'Adjust Column Size'
|
---|
455 | Visible = False
|
---|
456 | OnClick = mnuOptimizeFieldsClick
|
---|
457 | end
|
---|
458 | end
|
---|
459 | object mnuProbs: TMainMenu
|
---|
460 | Left = 243
|
---|
461 | Top = 313
|
---|
462 | object mnuView: TMenuItem
|
---|
463 | Caption = '&View'
|
---|
464 | GroupIndex = 3
|
---|
465 | object mnuViewChart: TMenuItem
|
---|
466 | Caption = 'Chart &Tab'
|
---|
467 | object mnuChartCover: TMenuItem
|
---|
468 | Tag = 1
|
---|
469 | Caption = 'Cover &Sheet'
|
---|
470 | ShortCut = 16467
|
---|
471 | OnClick = mnuChartTabClick
|
---|
472 | end
|
---|
473 | object mnuChartProbs: TMenuItem
|
---|
474 | Tag = 2
|
---|
475 | Caption = '&Problem List'
|
---|
476 | ShortCut = 16464
|
---|
477 | OnClick = mnuChartTabClick
|
---|
478 | end
|
---|
479 | object mnuChartMeds: TMenuItem
|
---|
480 | Tag = 3
|
---|
481 | Caption = '&Medications'
|
---|
482 | ShortCut = 16461
|
---|
483 | OnClick = mnuChartTabClick
|
---|
484 | end
|
---|
485 | object mnuChartOrders: TMenuItem
|
---|
486 | Tag = 4
|
---|
487 | Caption = '&Orders'
|
---|
488 | ShortCut = 16463
|
---|
489 | OnClick = mnuChartTabClick
|
---|
490 | end
|
---|
491 | object mnuChartNotes: TMenuItem
|
---|
492 | Tag = 6
|
---|
493 | Caption = 'Progress &Notes'
|
---|
494 | ShortCut = 16462
|
---|
495 | OnClick = mnuChartTabClick
|
---|
496 | end
|
---|
497 | object mnuChartCslts: TMenuItem
|
---|
498 | Tag = 7
|
---|
499 | Caption = 'Consul&ts'
|
---|
500 | ShortCut = 16468
|
---|
501 | OnClick = mnuChartTabClick
|
---|
502 | end
|
---|
503 | object mnuChartSurgery: TMenuItem
|
---|
504 | Tag = 11
|
---|
505 | Caption = 'S&urgery'
|
---|
506 | ShortCut = 16469
|
---|
507 | OnClick = mnuChartTabClick
|
---|
508 | end
|
---|
509 | object mnuChartDCSumm: TMenuItem
|
---|
510 | Tag = 8
|
---|
511 | Caption = '&Discharge Summaries'
|
---|
512 | ShortCut = 16452
|
---|
513 | OnClick = mnuChartTabClick
|
---|
514 | end
|
---|
515 | object mnuChartLabs: TMenuItem
|
---|
516 | Tag = 9
|
---|
517 | Caption = '&Laboratory'
|
---|
518 | ShortCut = 16460
|
---|
519 | OnClick = mnuChartTabClick
|
---|
520 | end
|
---|
521 | object mnuChartReports: TMenuItem
|
---|
522 | Tag = 10
|
---|
523 | Caption = '&Reports'
|
---|
524 | ShortCut = 16466
|
---|
525 | OnClick = mnuChartTabClick
|
---|
526 | end
|
---|
527 | end
|
---|
528 | object mnuViewInformation: TMenuItem
|
---|
529 | Caption = 'Information'
|
---|
530 | OnClick = mnuViewInformationClick
|
---|
531 | object mnuViewDemo: TMenuItem
|
---|
532 | Tag = 1
|
---|
533 | Caption = 'De&mographics...'
|
---|
534 | OnClick = ViewInfo
|
---|
535 | end
|
---|
536 | object mnuViewVisits: TMenuItem
|
---|
537 | Tag = 2
|
---|
538 | Caption = 'Visits/Pr&ovider...'
|
---|
539 | OnClick = ViewInfo
|
---|
540 | end
|
---|
541 | object mnuViewPrimaryCare: TMenuItem
|
---|
542 | Tag = 3
|
---|
543 | Caption = 'Primary &Care...'
|
---|
544 | OnClick = ViewInfo
|
---|
545 | end
|
---|
546 | object mnuViewMyHealtheVet: TMenuItem
|
---|
547 | Tag = 4
|
---|
548 | Caption = 'MyHealthe&Vet...'
|
---|
549 | OnClick = ViewInfo
|
---|
550 | end
|
---|
551 | object mnuInsurance: TMenuItem
|
---|
552 | Tag = 5
|
---|
553 | Caption = '&Insurance...'
|
---|
554 | OnClick = ViewInfo
|
---|
555 | end
|
---|
556 | object mnuViewFlags: TMenuItem
|
---|
557 | Tag = 6
|
---|
558 | Caption = '&Flags...'
|
---|
559 | OnClick = ViewInfo
|
---|
560 | end
|
---|
561 | object mnuViewRemoteData: TMenuItem
|
---|
562 | Tag = 7
|
---|
563 | Caption = 'Remote &Data...'
|
---|
564 | OnClick = ViewInfo
|
---|
565 | end
|
---|
566 | object mnuViewReminders: TMenuItem
|
---|
567 | Tag = 8
|
---|
568 | Caption = '&Reminders...'
|
---|
569 | Enabled = False
|
---|
570 | OnClick = ViewInfo
|
---|
571 | end
|
---|
572 | object mnuViewPostings: TMenuItem
|
---|
573 | Tag = 9
|
---|
574 | Caption = '&Postings...'
|
---|
575 | OnClick = ViewInfo
|
---|
576 | end
|
---|
577 | end
|
---|
578 | object Z1: TMenuItem
|
---|
579 | Caption = '-'
|
---|
580 | end
|
---|
581 | object mnuViewActive: TMenuItem
|
---|
582 | Tag = 700
|
---|
583 | Caption = '&Active Problems'
|
---|
584 | OnClick = lstProbActsClick
|
---|
585 | end
|
---|
586 | object mnuViewInactive: TMenuItem
|
---|
587 | Tag = 800
|
---|
588 | Caption = '&Inactive Problems'
|
---|
589 | OnClick = lstProbActsClick
|
---|
590 | end
|
---|
591 | object mnuViewBoth: TMenuItem
|
---|
592 | Tag = 900
|
---|
593 | Caption = '&Both Active/Inactive Problems'
|
---|
594 | OnClick = lstProbActsClick
|
---|
595 | end
|
---|
596 | object mnuViewRemoved: TMenuItem
|
---|
597 | Tag = 950
|
---|
598 | Caption = '&Removed Problems'
|
---|
599 | OnClick = lstProbActsClick
|
---|
600 | end
|
---|
601 | object mnuViewFilters: TMenuItem
|
---|
602 | Tag = 975
|
---|
603 | Caption = 'Fi<ers...'
|
---|
604 | OnClick = lstProbActsClick
|
---|
605 | end
|
---|
606 | object mnuViewComments: TMenuItem
|
---|
607 | Caption = 'Show &Comments'
|
---|
608 | OnClick = mnuViewCommentsClick
|
---|
609 | end
|
---|
610 | object N2: TMenuItem
|
---|
611 | Caption = '-'
|
---|
612 | end
|
---|
613 | object mnuViewSave: TMenuItem
|
---|
614 | Caption = 'Sa&ve as Default View'
|
---|
615 | OnClick = mnuViewSaveClick
|
---|
616 | end
|
---|
617 | object mnuViewRestoreDefault: TMenuItem
|
---|
618 | Caption = 'Return to De&fault View'
|
---|
619 | OnClick = mnuViewRestoreDefaultClick
|
---|
620 | end
|
---|
621 | end
|
---|
622 | object mnuAct: TMenuItem
|
---|
623 | Caption = '&Action'
|
---|
624 | GroupIndex = 4
|
---|
625 | object mnuActNew: TMenuItem
|
---|
626 | Tag = 100
|
---|
627 | Caption = '&New Problem...'
|
---|
628 | OnClick = lstProbActsClick
|
---|
629 | end
|
---|
630 | object Z3: TMenuItem
|
---|
631 | Caption = '-'
|
---|
632 | end
|
---|
633 | object mnuActChange: TMenuItem
|
---|
634 | Tag = 400
|
---|
635 | Caption = '&Change...'
|
---|
636 | Enabled = False
|
---|
637 | OnClick = lstProbActsClick
|
---|
638 | end
|
---|
639 | object mnuActInactivate: TMenuItem
|
---|
640 | Tag = 200
|
---|
641 | Caption = '&Inactivate'
|
---|
642 | Enabled = False
|
---|
643 | OnClick = lstProbActsClick
|
---|
644 | end
|
---|
645 | object mnuActVerify: TMenuItem
|
---|
646 | Tag = 250
|
---|
647 | Caption = '&Verify...'
|
---|
648 | Enabled = False
|
---|
649 | OnClick = lstProbActsClick
|
---|
650 | end
|
---|
651 | object N1: TMenuItem
|
---|
652 | Caption = '-'
|
---|
653 | end
|
---|
654 | object mnuActAnnotate: TMenuItem
|
---|
655 | Tag = 600
|
---|
656 | Caption = '&Annotate...'
|
---|
657 | Enabled = False
|
---|
658 | OnClick = lstProbActsClick
|
---|
659 | end
|
---|
660 | object Z4: TMenuItem
|
---|
661 | Caption = '-'
|
---|
662 | Visible = False
|
---|
663 | end
|
---|
664 | object mnuActRemove: TMenuItem
|
---|
665 | Tag = 500
|
---|
666 | Caption = '&Remove'
|
---|
667 | Enabled = False
|
---|
668 | OnClick = lstProbActsClick
|
---|
669 | end
|
---|
670 | object mnuActRestore: TMenuItem
|
---|
671 | Tag = 550
|
---|
672 | Caption = 'Re&store'
|
---|
673 | Enabled = False
|
---|
674 | OnClick = lstProbActsClick
|
---|
675 | end
|
---|
676 | object N4: TMenuItem
|
---|
677 | Caption = '-'
|
---|
678 | end
|
---|
679 | object mnuActDetails: TMenuItem
|
---|
680 | Tag = 300
|
---|
681 | Caption = 'View &Details'
|
---|
682 | Enabled = False
|
---|
683 | OnClick = lstProbActsClick
|
---|
684 | end
|
---|
685 | end
|
---|
686 | end
|
---|
687 | end
|
---|