Changeset 830 for cprs/trunk/CPRS-Chart/fGraphs.dfm
- Timestamp:
- Jul 7, 2010, 4:51:54 PM (14 years ago)
- File:
-
- 1 edited
-
cprs/trunk/CPRS-Chart/fGraphs.dfm (modified) (46 diffs)
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/fGraphs.dfm
r456 r830 1 objectfrmGraphs: TfrmGraphs2 Left = 5243 Top = 1051 inherited frmGraphs: TfrmGraphs 2 Left = 265 3 Top = 279 4 4 BorderIcons = [] 5 5 BorderStyle = bsNone 6 6 Caption = 'CPRS Graphing - CPRSpatient,One' 7 ClientHeight = 4 127 ClientHeight = 400 8 8 ClientWidth = 592 9 Color = clBtnFace10 Font.Charset = DEFAULT_CHARSET11 Font.Color = clWindowText12 Font.Height = -1113 Font.Name = 'MS Sans Serif'14 Font.Style = []15 OldCreateOrder = False16 9 PopupMenu = mnuPopGraphStuff 10 Position = poDesigned 17 11 OnClose = FormClose 18 12 OnCreate = FormCreate 19 13 OnDestroy = FormDestroy 20 14 OnShow = FormShow 15 ExplicitLeft = 265 16 ExplicitTop = 279 17 ExplicitWidth = 600 18 ExplicitHeight = 427 21 19 PixelsPerInch = 96 22 20 TextHeight = 13 23 object pnlHeader: TPanel 21 object pnlHeader: TPanel [0] 24 22 Left = 0 25 23 Top = 0 … … 55 53 end 56 54 object chartBase: TChart 57 Left = 14 558 Top = 055 Left = 146 56 Top = -2 59 57 Width = 105 60 58 Height = 17 … … 76 74 BottomAxis.AutomaticMinimum = False 77 75 BottomAxis.Increment = 0.000694444444444444 78 BottomAxis.Maximum = 25 76 BottomAxis.Maximum = 25.000000000000000000 79 77 BottomAxis.Visible = False 80 78 Legend.Alignment = laTop … … 88 86 OnDblClick = mnuPopGraphDetailsClick 89 87 OnMouseDown = chartBaseMouseDown 88 OnMouseUp = chartBaseMouseUp 90 89 end 91 90 end 92 object pnlFooter: TPanel 91 object pnlFooter: TPanel [1] 93 92 Left = 0 94 Top = 3 8393 Top = 371 95 94 Width = 592 96 95 Height = 29 … … 124 123 end 125 124 object cboDateRange: TORComboBox 126 Left = 68127 Top = 4125 Left = 70 126 Top = 6 128 127 Width = 121 129 128 Height = 21 … … 168 167 end 169 168 object btnGraphSelections: TButton 170 Left = 28 4169 Left = 288 171 170 Top = 4 172 171 Width = 85 … … 177 176 end 178 177 end 179 object pnlMain: TPanel 178 object pnlMain: TPanel [2] 180 179 Left = 0 181 180 Top = 21 182 181 Width = 592 183 Height = 3 62182 Height = 350 184 183 Align = alClient 185 184 BevelOuter = bvNone … … 187 186 object splGraphs: TSplitter 188 187 Left = 0 189 Top = 2 61188 Top = 249 190 189 Width = 592 191 190 Height = 3 … … 196 195 ParentColor = False 197 196 OnMoved = splGraphsMoved 197 ExplicitTop = 261 198 198 end 199 199 object pnlTop: TPanel … … 202 202 Top = 0 203 203 Width = 592 204 Height = 2 61204 Height = 249 205 205 Align = alClient 206 206 BevelOuter = bvNone … … 210 210 Top = 0 211 211 Width = 2 212 Height = 261 213 Cursor = crHSplit 212 Height = 249 214 213 AutoSnap = False 215 214 Beveled = True 216 215 MinSize = 15 217 216 OnMoved = splItemsTopMoved 217 ExplicitHeight = 261 218 218 end 219 219 object pnlItemsTop: TPanel … … 221 221 Top = 0 222 222 Width = 148 223 Height = 2 61223 Height = 249 224 224 Align = alLeft 225 225 BevelOuter = bvNone … … 229 229 Top = 0 230 230 Width = 148 231 Height = 2 5231 Height = 22 232 232 Align = alTop 233 233 BevelOuter = bvNone … … 235 235 DesignSize = ( 236 236 148 237 2 5)237 22) 238 238 object bvlBottomLeft: TBevel 239 239 Left = 0 240 240 Top = 0 241 241 Width = 2 242 Height = 2 5242 Height = 22 243 243 Align = alLeft 244 ExplicitHeight = 25 244 245 end 245 246 object bvlBottomRight: TBevel … … 247 248 Top = 0 248 249 Width = 2 249 Height = 2 5250 Height = 22 250 251 Align = alRight 251 252 Visible = False 252 end 253 object lblViewsTop: TOROffsetLabel 254 Left = 2 255 Top = 0 256 Width = 28 257 Height = 25 258 Align = alLeft 259 Caption = 'View:' 260 HorzOffset = 2 261 Transparent = False 262 VertOffset = 8 263 WordWrap = False 253 ExplicitHeight = 25 264 254 end 265 255 object chkItemsTop: TCheckBox 266 256 Left = 40 267 Top = 5257 Top = 2 268 258 Width = 105 269 259 Height = 20 … … 271 261 Anchors = [akTop, akRight] 272 262 Caption = 'Individual Graphs' 263 Checked = True 264 State = cbChecked 273 265 TabOrder = 0 274 266 OnClick = chkItemsTopClick 275 267 end 276 268 end 277 object lvwItemsTop: TListView269 object pcTop: TPageControl 278 270 Left = 0 279 Top = 46271 Top = 22 280 272 Width = 148 281 Height = 215 273 Height = 227 274 ActivePage = tsTopItems 282 275 Align = alClient 283 BevelInner = bvNone 284 BevelOuter = bvNone 285 Columns = < 286 item 287 Caption = 'Item' 288 Width = 100 276 TabOrder = 1 277 object tsTopItems: TTabSheet 278 Caption = 'Items' 279 object lvwItemsTop: TListView 280 Left = 0 281 Top = 0 282 Width = 140 283 Height = 199 284 Align = alClient 285 BevelInner = bvNone 286 BevelOuter = bvNone 287 Columns = < 288 item 289 Caption = 'Item' 290 Width = 100 291 end 292 item 293 Caption = 'Type' 294 Width = 60 295 end 296 item 297 Caption = 'View' 298 Width = 40 299 end 300 item 301 Caption = 'Classification' 302 end 303 item 304 Caption = 'Remote Location' 305 Width = 150 306 end> 307 HideSelection = False 308 MultiSelect = True 309 ReadOnly = True 310 RowSelect = True 311 ParentShowHint = False 312 ShowHint = False 313 TabOrder = 0 314 ViewStyle = vsReport 315 OnChange = lvwItemsTopChange 316 OnClick = lvwItemsTopClick 317 OnColumnClick = lvwItemsTopColumnClick 318 OnCompare = lvwItemsTopCompare 319 OnEnter = lvwItemsTopEnter 320 OnKeyDown = lvwItemsTopKeyDown 289 321 end 290 item 291 Caption = 'Type' 292 Width = 60 322 end 323 object tsTopViews: TTabSheet 324 Caption = 'Views' 325 ImageIndex = 1 326 ExplicitLeft = 0 327 ExplicitTop = 0 328 ExplicitWidth = 0 329 ExplicitHeight = 0 330 object splViewsTop: TSplitter 331 Left = 0 332 Top = 196 333 Width = 140 334 Height = 2 335 Cursor = crVSplit 336 Align = alBottom 337 OnMoved = splViewsTopMoved 338 ExplicitTop = 149 293 339 end 294 item 295 Caption = 'View' 296 Width = 40 340 object lstViewsTop: TORListBox 341 Left = 0 342 Top = 0 343 Width = 140 344 Height = 196 345 Align = alClient 346 ItemHeight = 13 347 ParentShowHint = False 348 ShowHint = False 349 TabOrder = 0 350 OnEnter = lstViewsTopEnter 351 OnMouseDown = lstViewsTopMouseDown 352 ItemTipColor = clWindow 353 LongList = False 354 Pieces = '2' 355 OnChange = lstViewsTopChange 297 356 end 298 item 299 Caption = 'Classification' 300 end> 301 HideSelection = False 302 MultiSelect = True 303 ReadOnly = True 304 RowSelect = True 305 ParentShowHint = False 306 ShowHint = False 307 TabOrder = 2 308 ViewStyle = vsReport 309 OnChange = lvwItemsTopChange 310 OnClick = lvwItemsTopClick 311 OnColumnClick = lvwItemsTopColumnClick 312 OnCompare = lvwItemsTopCompare 313 OnEnter = lvwItemsTopEnter 314 OnKeyDown = lvwItemsTopKeyDown 315 end 316 object pnlViewsTopSpacer: TPanel 317 Left = 0 318 Top = 25 319 Width = 148 320 Height = 21 321 Align = alTop 322 BevelOuter = bvNone 323 TabOrder = 1 324 object cboViewsTop: TORComboBox 325 Left = 0 326 Top = 0 327 Width = 140 328 Height = 21 329 Style = orcsDropDown 330 Align = alClient 331 AutoSelect = True 332 Color = clWindow 333 DropDownCount = 12 334 ItemHeight = 13 335 ItemTipColor = clWindow 336 ItemTipEnable = True 337 ListItemsOnly = False 338 LongList = False 339 LookupPiece = 0 340 MaxLength = 0 341 Pieces = '2' 342 Sorted = False 343 SynonymChars = '<>' 344 TabOrder = 0 345 TabStop = True 346 OnChange = cboViewsTopChange 347 OnDropDown = cboViewsTopDropDown 348 OnDropDownClose = cboViewsTopDropDownClose 349 CharsNeedMatch = 1 350 end 351 object pnlViewsTopSpacerRight: TPanel 352 Left = 140 353 Top = 0 354 Width = 8 355 Height = 21 356 Align = alRight 357 BevelOuter = bvNone 358 TabOrder = 1 357 object memViewsTop: TRichEdit 358 Left = 0 359 Top = 198 360 Width = 140 361 Height = 1 362 Align = alBottom 363 Color = clCream 364 Font.Charset = ANSI_CHARSET 365 Font.Color = clWindowText 366 Font.Height = -11 367 Font.Name = 'Courier New' 368 Font.Style = [] 369 Lines.Strings = ( 370 'View Definition') 371 ParentFont = False 372 PlainText = True 373 ReadOnly = True 374 ScrollBars = ssBoth 375 TabOrder = 1 376 WantReturns = False 377 WordWrap = False 378 end 379 end 380 object tsTopCustom: TTabSheet 381 Caption = 'Custom' 382 ImageIndex = 2 383 ExplicitLeft = 0 384 ExplicitTop = 0 385 ExplicitWidth = 0 386 ExplicitHeight = 0 359 387 end 360 388 end … … 365 393 Top = 0 366 394 Width = 15 367 Height = 2 61395 Height = 249 368 396 Align = alRight 369 397 BevelOuter = bvNone … … 373 401 Left = 150 374 402 Top = 0 375 Width = 42 7376 Height = 2 61403 Width = 426 404 Height = 249 377 405 Align = alClient 378 406 BevelOuter = bvNone … … 381 409 object pnlBlankTop: TPanel 382 410 Left = 0 383 Top = 233384 Width = 42 7385 Height = 2 0411 Top = 0 412 Width = 426 413 Height = 219 386 414 Align = alClient 387 415 BevelOuter = bvNone 388 TabOrder = 3416 TabOrder = 2 389 417 Visible = False 390 418 end … … 392 420 Tag = 5 393 421 Left = 0 394 Top = 233395 Width = 42 7396 Height = 2 0422 Top = 0 423 Width = 426 424 Height = 219 397 425 Align = alClient 398 426 BevelInner = bvNone … … 405 433 object pnlDatelineTop: TPanel 406 434 Left = 0 407 Top = 2 31408 Width = 42 7435 Top = 219 436 Width = 426 409 437 Height = 30 410 438 Align = alBottom … … 414 442 Left = 20 415 443 Top = 0 416 Width = 40 7444 Width = 406 417 445 Height = 30 418 446 AllowPanning = pmNone … … 434 462 BottomAxis.DateTimeFormat = 'M/d/yyyy' 435 463 BottomAxis.Increment = 0.000694444444444444 436 BottomAxis.Maximum = 25 464 BottomAxis.Maximum = 25.000000000000000000 437 465 Frame.Visible = False 438 466 LeftAxis.Automatic = False … … 443 471 LeftAxis.Labels = False 444 472 LeftAxis.LabelsOnAxis = False 445 LeftAxis.Maximum = 9 473 LeftAxis.Maximum = 9.000000000000000000 446 474 LeftAxis.MinorGrid.Visible = True 447 475 LeftAxis.RoundFirstLabel = False … … 469 497 OnDblClick = mnuPopGraphDetailsClick 470 498 OnMouseDown = chartBaseMouseDown 499 OnMouseUp = chartBaseMouseUp 471 500 object serDatelineTop: TGanttSeries 472 501 ColorEachPoint = True … … 481 510 XValues.DateTime = True 482 511 XValues.Name = 'Start' 483 XValues.Multiplier = 1 512 XValues.Multiplier = 1.000000000000000000 484 513 XValues.Order = loAscending 485 514 YValues.DateTime = False 486 515 YValues.Name = 'Y' 487 YValues.Multiplier = 1 516 YValues.Multiplier = 1.000000000000000000 488 517 YValues.Order = loNone 489 518 StartValues.DateTime = True 490 519 StartValues.Name = 'Start' 491 StartValues.Multiplier = 1 520 StartValues.Multiplier = 1.000000000000000000 492 521 StartValues.Order = loAscending 493 522 EndValues.DateTime = True 494 523 EndValues.Name = 'End' 495 EndValues.Multiplier = 1 524 EndValues.Multiplier = 1.000000000000000000 496 525 EndValues.Order = loNone 497 526 NextTask.DateTime = False 498 527 NextTask.Name = 'NextTask' 499 NextTask.Multiplier = 1 528 NextTask.Multiplier = 1.000000000000000000 500 529 NextTask.Order = loNone 501 530 end … … 511 540 end 512 541 end 513 object pnlData: TPanel 514 Left = 0 515 Top = 0 516 Width = 427 517 Height = 233 518 Align = alTop 519 Caption = 'pnlData' 520 TabOrder = 2 521 Visible = False 522 DesignSize = ( 523 427 524 233) 525 object lstZoomHistory: TListBox 526 Left = 336 527 Top = 4 528 Width = 82 529 Height = 33 530 Anchors = [akLeft, akTop, akRight] 531 ItemHeight = 13 532 TabOrder = 22 533 end 534 object lstTypes: TListBox 535 Left = 8 536 Top = 119 537 Width = 413 538 Height = 33 539 Anchors = [akLeft, akTop, akRight] 540 ItemHeight = 13 541 TabOrder = 0 542 end 543 object lstItemsTemp: TListBox 544 Left = 8 545 Top = 4 546 Width = 73 547 Height = 33 548 ItemHeight = 13 549 TabOrder = 1 550 end 551 object lstAllTypes: TListBox 552 Left = 254 553 Top = 4 554 Width = 82 555 Height = 33 556 Anchors = [akLeft, akTop, akRight] 557 ItemHeight = 13 558 TabOrder = 2 559 end 560 object lstItems: TListBox 561 Left = 8 562 Top = 158 563 Width = 413 564 Height = 33 565 Anchors = [akLeft, akTop, akRight] 566 ItemHeight = 13 567 TabOrder = 3 568 end 569 object lstData: TListBox 570 Left = 8 571 Top = 81 572 Width = 413 573 Height = 33 574 Anchors = [akLeft, akTop, akRight] 575 ItemHeight = 13 576 TabOrder = 4 577 end 578 object lstSpec2: TListBox 579 Left = 188 580 Top = 43 581 Width = 42 582 Height = 33 583 ItemHeight = 13 584 TabOrder = 5 585 end 586 object lstSpec1: TListBox 587 Left = 143 588 Top = 43 589 Width = 42 590 Height = 33 591 ItemHeight = 13 592 TabOrder = 6 593 end 594 object lstSpec3: TListBox 595 Left = 233 596 Top = 43 597 Width = 42 598 Height = 33 599 ItemHeight = 13 600 TabOrder = 7 601 end 602 object lstSpec4: TListBox 603 Left = 278 604 Top = 43 605 Width = 42 606 Height = 33 607 ItemHeight = 13 608 TabOrder = 8 609 end 610 object lstMultiSpec: TListBox 611 Left = 320 612 Top = 43 613 Width = 45 614 Height = 33 615 ItemHeight = 13 616 TabOrder = 10 617 end 618 object lstTestSpec: TListBox 619 Left = 368 620 Top = 43 621 Width = 42 622 Height = 33 623 ItemHeight = 13 624 TabOrder = 11 625 end 626 object lstSelCopyBottom: TListBox 627 Left = 283 628 Top = 195 629 Width = 41 630 Height = 33 631 ItemHeight = 13 632 TabOrder = 15 633 end 634 object lstTempCheck: TListBox 635 Left = 53 636 Top = 195 637 Width = 41 638 Height = 33 639 ItemHeight = 13 640 MultiSelect = True 641 TabOrder = 18 642 end 643 object lstViews: TListBox 644 Left = 191 645 Top = 195 646 Width = 41 647 Height = 33 648 ItemHeight = 13 649 MultiSelect = True 650 TabOrder = 19 651 end 652 object lstScratchTemp: TListBox 653 Left = 53 654 Top = 43 655 Width = 42 656 Height = 33 657 ItemHeight = 13 658 TabOrder = 20 659 end 660 object lstScratchLab: TListBox 661 Left = 98 662 Top = 43 663 Width = 42 664 Height = 33 665 ItemHeight = 13 666 TabOrder = 21 667 end 668 object lstCheck: TListBox 669 Left = 172 670 Top = 5 671 Width = 73 672 Height = 33 673 ItemHeight = 13 674 MultiSelect = True 675 TabOrder = 13 676 end 677 object lstSelCopyTop: TListBox 678 Left = 237 679 Top = 195 680 Width = 41 681 Height = 33 682 ItemHeight = 13 683 TabOrder = 16 684 end 685 object lstScratchSwap: TListBox 686 Left = 8 687 Top = 43 688 Width = 41 689 Height = 33 690 ItemHeight = 13 691 TabOrder = 9 692 end 693 object lstNonNumeric: TListBox 694 Left = 90 695 Top = 4 696 Width = 79 697 Height = 33 698 ItemHeight = 13 699 TabOrder = 12 700 end 701 object lstDrugClass: TListBox 702 Left = 8 703 Top = 195 704 Width = 41 705 Height = 33 706 ItemHeight = 13 707 TabOrder = 14 708 end 709 object lstSelPrevTop: TListBox 710 Left = 329 711 Top = 195 712 Width = 41 713 Height = 33 714 ItemHeight = 13 715 TabOrder = 23 716 end 717 object lstSelPrevBottom: TListBox 718 Left = 375 719 Top = 195 720 Width = 41 721 Height = 33 722 ItemHeight = 13 723 TabOrder = 24 724 end 725 object lstTemp: TListBox 726 Left = 99 727 Top = 195 728 Width = 41 729 Height = 33 730 ItemHeight = 13 731 MultiSelect = True 732 TabOrder = 17 733 end 734 object lstComp: TListBox 735 Left = 145 736 Top = 195 737 Width = 41 738 Height = 33 739 ItemHeight = 13 740 MultiSelect = True 741 TabOrder = 25 742 end 743 end 542 end 543 object memTop: TMemo 544 Left = 576 545 Top = 0 546 Width = 1 547 Height = 249 548 Align = alRight 549 BevelInner = bvNone 550 BevelOuter = bvNone 551 BorderStyle = bsNone 552 Color = clBtnFace 553 Lines.Strings = ( 554 'm' 555 'e' 556 'm' 557 'T' 558 'o' 559 'p') 560 TabOrder = 3 561 Visible = False 562 OnEnter = memTopEnter 563 OnExit = memTopExit 564 OnKeyDown = memTopKeyDown 744 565 end 745 566 end … … 747 568 Tag = 1 748 569 Left = 0 749 Top = 2 64570 Top = 252 750 571 Width = 592 751 572 Height = 98 … … 758 579 Width = 2 759 580 Height = 98 760 Cursor = crHSplit761 581 AutoSnap = False 762 582 Beveled = True … … 776 596 Top = 0 777 597 Width = 148 778 Height = 2 5598 Height = 22 779 599 Align = alTop 780 600 BevelOuter = bvNone 781 601 TabOrder = 0 782 DesignSize = (783 148784 25)785 602 object bvlTopLeft: TBevel 786 603 Left = 0 787 604 Top = 0 788 605 Width = 2 789 Height = 2 5606 Height = 22 790 607 Align = alLeft 608 ExplicitHeight = 25 791 609 end 792 610 object bvlTopRight: TBevel … … 794 612 Top = 0 795 613 Width = 2 796 Height = 2 5614 Height = 22 797 615 Align = alRight 798 616 Visible = False 799 end 800 object lblViewsBottom: TOROffsetLabel 801 Left = 2 802 Top = 0 803 Width = 28 804 Height = 25 805 Align = alLeft 806 Caption = 'View:' 807 HorzOffset = 2 808 Transparent = False 809 VertOffset = 8 810 WordWrap = False 617 ExplicitHeight = 25 811 618 end 812 619 object chkItemsBottom: TCheckBox 813 Left = 40814 Top = 5620 Left = 39 621 Top = 2 815 622 Width = 105 816 623 Height = 20 817 624 Alignment = taLeftJustify 818 Anchors = [akTop, akRight]819 625 Caption = 'Individual Graphs' 626 Checked = True 627 State = cbChecked 820 628 TabOrder = 0 821 629 OnClick = chkItemsBottomClick … … 823 631 end 824 632 end 825 object lvwItemsBottom: TListView633 object pcBottom: TPageControl 826 634 Left = 0 827 Top = 46635 Top = 22 828 636 Width = 148 829 Height = 52 637 Height = 76 638 ActivePage = tsBottomViews 830 639 Align = alClient 831 BevelInner = bvNone 832 BevelOuter = bvNone 833 Columns = < 834 item 835 Caption = 'Item' 836 Width = 100 640 TabOrder = 1 641 object tsBottomItems: TTabSheet 642 Caption = 'Items' 643 ExplicitLeft = 0 644 ExplicitTop = 0 645 ExplicitWidth = 0 646 ExplicitHeight = 0 647 object lvwItemsBottom: TListView 648 Left = 0 649 Top = 0 650 Width = 140 651 Height = 48 652 Align = alClient 653 BevelInner = bvNone 654 BevelOuter = bvNone 655 Columns = < 656 item 657 Caption = 'Item' 658 Width = 100 659 end 660 item 661 Caption = 'Type' 662 Width = 60 663 end 664 item 665 Caption = 'View' 666 Width = 40 667 end 668 item 669 Caption = 'Classification' 670 end 671 item 672 Caption = 'Remote Location' 673 Width = 150 674 end> 675 HideSelection = False 676 MultiSelect = True 677 ReadOnly = True 678 RowSelect = True 679 ParentShowHint = False 680 ShowHint = False 681 TabOrder = 0 682 ViewStyle = vsReport 683 OnChange = lvwItemsBottomChange 684 OnClick = lvwItemsBottomClick 685 OnColumnClick = lvwItemsBottomColumnClick 686 OnCompare = lvwItemsBottomCompare 687 OnEnter = lvwItemsBottomEnter 688 OnKeyDown = lvwItemsTopKeyDown 837 689 end 838 item 839 Caption = 'Type' 840 Width = 60 690 end 691 object tsBottomViews: TTabSheet 692 Caption = 'Views' 693 ImageIndex = 1 694 ExplicitLeft = 0 695 ExplicitTop = 0 696 ExplicitWidth = 0 697 ExplicitHeight = 0 698 object splViewsBottom: TSplitter 699 Left = 0 700 Top = 45 701 Width = 140 702 Height = 2 703 Cursor = crVSplit 704 Align = alBottom 705 OnMoved = splViewsTopMoved 706 ExplicitTop = 25 841 707 end 842 item 843 Caption = 'View' 844 Width = 40 708 object lstViewsBottom: TORListBox 709 Left = 0 710 Top = 0 711 Width = 140 712 Height = 45 713 Align = alClient 714 ItemHeight = 13 715 ParentShowHint = False 716 ShowHint = False 717 TabOrder = 0 718 OnEnter = lstViewsBottomEnter 719 OnMouseDown = lstViewsBottomMouseDown 720 ItemTipColor = clWindow 721 LongList = False 722 Pieces = '2' 723 OnChange = lstViewsBottomChange 845 724 end 846 item 847 Caption = 'Classification' 848 end> 849 HideSelection = False 850 MultiSelect = True 851 ReadOnly = True 852 RowSelect = True 853 ParentShowHint = False 854 ShowHint = False 855 TabOrder = 2 856 ViewStyle = vsReport 857 OnChange = lvwItemsBottomChange 858 OnClick = lvwItemsBottomClick 859 OnColumnClick = lvwItemsBottomColumnClick 860 OnCompare = lvwItemsBottomCompare 861 OnEnter = lvwItemsBottomEnter 862 OnKeyDown = lvwItemsTopKeyDown 863 end 864 object pnlViewsBottomSpacer: TPanel 865 Left = 0 866 Top = 25 867 Width = 148 868 Height = 21 869 Align = alTop 870 BevelOuter = bvNone 871 TabOrder = 1 872 object cboViewsBottom: TORComboBox 873 Left = 0 874 Top = 0 875 Width = 140 876 Height = 21 877 Style = orcsDropDown 878 Align = alClient 879 AutoSelect = True 880 Color = clWindow 881 DropDownCount = 12 882 ItemHeight = 13 883 ItemTipColor = clWindow 884 ItemTipEnable = True 885 ListItemsOnly = False 886 LongList = False 887 LookupPiece = 0 888 MaxLength = 0 889 Pieces = '2' 890 Sorted = False 891 SynonymChars = '<>' 892 TabOrder = 0 893 TabStop = True 894 OnChange = cboViewsBottomChange 895 OnDropDown = cboViewsBottomDropDown 896 OnDropDownClose = cboViewsBottomDropDownClose 897 OnEnter = cboViewsBottomEnter 898 CharsNeedMatch = 1 899 end 900 object pnlViewsBottomSpacerRight: TPanel 901 Left = 140 902 Top = 0 903 Width = 8 904 Height = 21 905 Align = alRight 906 BevelOuter = bvNone 907 TabOrder = 1 725 object memViewsBottom: TRichEdit 726 Left = 0 727 Top = 47 728 Width = 140 729 Height = 1 730 Align = alBottom 731 Color = clCream 732 Font.Charset = ANSI_CHARSET 733 Font.Color = clWindowText 734 Font.Height = -11 735 Font.Name = 'Courier New' 736 Font.Style = [] 737 Lines.Strings = ( 738 'View Definition') 739 ParentFont = False 740 PlainText = True 741 ReadOnly = True 742 ScrollBars = ssBoth 743 TabOrder = 1 744 WantReturns = False 745 WordWrap = False 746 end 747 end 748 object tsBottomCustom: TTabSheet 749 Caption = 'Custom' 750 ImageIndex = 2 751 ExplicitLeft = 0 752 ExplicitTop = 0 753 ExplicitWidth = 0 754 ExplicitHeight = 0 908 755 end 909 756 end … … 922 769 Left = 150 923 770 Top = 0 924 Width = 42 7771 Width = 426 925 772 Height = 98 926 773 Align = alClient … … 930 777 Left = 0 931 778 Top = 0 932 Width = 42 7779 Width = 426 933 780 Height = 68 934 781 Align = alClient … … 940 787 Left = 0 941 788 Top = 68 942 Width = 42 7789 Width = 426 943 790 Height = 30 944 791 Align = alBottom … … 948 795 Left = 20 949 796 Top = 0 950 Width = 40 7797 Width = 406 951 798 Height = 30 952 799 AllowPanning = pmNone … … 967 814 BottomAxis.DateTimeFormat = 'M/d/yyyy' 968 815 BottomAxis.Increment = 0.000694444444444444 969 BottomAxis.Maximum = 25 816 BottomAxis.Maximum = 25.000000000000000000 970 817 Frame.Visible = False 971 818 LeftAxis.Automatic = False … … 973 820 LeftAxis.AutomaticMinimum = False 974 821 LeftAxis.Axis.Visible = False 975 LeftAxis. ExactDateTime = False822 LeftAxis.Grid.Visible = False 976 823 LeftAxis.Labels = False 977 824 LeftAxis.LabelsOnAxis = False 978 LeftAxis.Maximum = 9 825 LeftAxis.Maximum = 9.000000000000000000 979 826 LeftAxis.MinorGrid.Visible = True 980 827 LeftAxis.RoundFirstLabel = False … … 1001 848 OnDblClick = mnuPopGraphDetailsClick 1002 849 OnMouseDown = chartBaseMouseDown 850 OnMouseUp = chartBaseMouseUp 1003 851 object serDatelineBottom: TGanttSeries 1004 852 ColorEachPoint = True … … 1013 861 XValues.DateTime = True 1014 862 XValues.Name = 'Start' 1015 XValues.Multiplier = 1 863 XValues.Multiplier = 1.000000000000000000 1016 864 XValues.Order = loAscending 1017 865 YValues.DateTime = False 1018 866 YValues.Name = 'Y' 1019 YValues.Multiplier = 1 867 YValues.Multiplier = 1.000000000000000000 1020 868 YValues.Order = loNone 1021 869 StartValues.DateTime = True 1022 870 StartValues.Name = 'Start' 1023 StartValues.Multiplier = 1 871 StartValues.Multiplier = 1.000000000000000000 1024 872 StartValues.Order = loAscending 1025 873 EndValues.DateTime = True 1026 874 EndValues.Name = 'End' 1027 EndValues.Multiplier = 1 875 EndValues.Multiplier = 1.000000000000000000 1028 876 EndValues.Order = loNone 1029 877 NextTask.DateTime = False 1030 878 NextTask.Name = 'NextTask' 1031 NextTask.Multiplier = 1 879 NextTask.Multiplier = 1.000000000000000000 1032 880 NextTask.Order = loNone 1033 881 end … … 1047 895 Left = 0 1048 896 Top = 0 1049 Width = 42 7897 Width = 426 1050 898 Height = 68 1051 899 Align = alClient … … 1057 905 end 1058 906 end 1059 end 907 object memBottom: TMemo 908 Left = 576 909 Top = 0 910 Width = 1 911 Height = 98 912 Align = alRight 913 BevelInner = bvNone 914 BevelOuter = bvNone 915 BorderStyle = bsNone 916 Color = clBtnFace 917 Lines.Strings = ( 918 'm' 919 'e' 920 'm' 921 'T' 922 'o' 923 'p') 924 TabOrder = 3 925 Visible = False 926 OnEnter = memBottomEnter 927 OnExit = memBottomExit 928 OnKeyDown = memBottomKeyDown 929 end 930 end 931 end 932 inherited amgrMain: TVA508AccessibilityManager 933 Data = ( 934 ( 935 'Component = pnlHeader' 936 'Status = stsDefault') 937 ( 938 'Component = pnlTemp' 939 'Status = stsDefault') 940 ( 941 'Component = pnlInfo' 942 'Status = stsDefault') 943 ( 944 'Component = chartBase' 945 'Status = stsDefault') 946 ( 947 'Component = pnlFooter' 948 'Status = stsDefault') 949 ( 950 'Component = btnClose' 951 'Status = stsDefault') 952 ( 953 'Component = btnChangeSettings' 954 'Status = stsDefault') 955 ( 956 'Component = cboDateRange' 957 'Label = lblDateRange' 958 'Status = stsOK') 959 ( 960 'Component = chkDualViews' 961 'Status = stsDefault') 962 ( 963 'Component = btnGraphSelections' 964 'Status = stsDefault') 965 ( 966 'Component = pnlMain' 967 'Status = stsDefault') 968 ( 969 'Component = pnlTop' 970 'Status = stsDefault') 971 ( 972 'Component = pnlItemsTop' 973 'Status = stsDefault') 974 ( 975 'Component = pnlItemsTopInfo' 976 'Status = stsDefault') 977 ( 978 'Component = chkItemsTop' 979 'Status = stsDefault') 980 ( 981 'Component = pnlTopRightPad' 982 'Status = stsDefault') 983 ( 984 'Component = pnlScrollTopBase' 985 'Status = stsDefault') 986 ( 987 'Component = pnlBlankTop' 988 'Status = stsDefault') 989 ( 990 'Component = scrlTop' 991 'Status = stsDefault') 992 ( 993 'Component = pnlDatelineTop' 994 'Status = stsDefault') 995 ( 996 'Component = chartDatelineTop' 997 'Status = stsDefault') 998 ( 999 'Component = pnlDatelineTopSpacer' 1000 'Status = stsDefault') 1001 ( 1002 'Component = memTop' 1003 'Status = stsDefault') 1004 ( 1005 'Component = pnlBottom' 1006 'Status = stsDefault') 1007 ( 1008 'Component = pnlItemsBottom' 1009 'Status = stsDefault') 1010 ( 1011 'Component = pnlItemsBottomInfo' 1012 'Status = stsDefault') 1013 ( 1014 'Component = chkItemsBottom' 1015 'Status = stsDefault') 1016 ( 1017 'Component = pnlBottomRightPad' 1018 'Status = stsDefault') 1019 ( 1020 'Component = pnlScrollBottomBase' 1021 'Status = stsDefault') 1022 ( 1023 'Component = pnlBlankBottom' 1024 'Status = stsDefault') 1025 ( 1026 'Component = pnlDatelineBottom' 1027 'Status = stsDefault') 1028 ( 1029 'Component = chartDatelineBottom' 1030 'Status = stsDefault') 1031 ( 1032 'Component = pnlDatelineBottomSpacer' 1033 'Status = stsDefault') 1034 ( 1035 'Component = scrlBottom' 1036 'Status = stsDefault') 1037 ( 1038 'Component = memBottom' 1039 'Status = stsDefault') 1040 ( 1041 'Component = frmGraphs' 1042 'Status = stsDefault') 1043 ( 1044 'Component = pcTop' 1045 'Status = stsDefault') 1046 ( 1047 'Component = tsTopItems' 1048 'Status = stsDefault') 1049 ( 1050 'Component = tsTopViews' 1051 'Status = stsDefault') 1052 ( 1053 'Component = tsTopCustom' 1054 'Status = stsDefault') 1055 ( 1056 'Component = lvwItemsTop' 1057 'Status = stsDefault') 1058 ( 1059 'Component = pcBottom' 1060 'Status = stsDefault') 1061 ( 1062 'Component = tsBottomItems' 1063 'Status = stsDefault') 1064 ( 1065 'Component = tsBottomViews' 1066 'Status = stsDefault') 1067 ( 1068 'Component = tsBottomCustom' 1069 'Status = stsDefault') 1070 ( 1071 'Component = lvwItemsBottom' 1072 'Status = stsDefault') 1073 ( 1074 'Component = lstViewsTop' 1075 'Status = stsDefault') 1076 ( 1077 'Component = lstViewsBottom' 1078 'Status = stsDefault') 1079 ( 1080 'Component = memViewsTop' 1081 'Status = stsDefault') 1082 ( 1083 'Component = memViewsBottom' 1084 'Status = stsDefault')) 1060 1085 end 1061 1086 object mnuPopGraphStuff: TPopupMenu 1062 1087 OnPopup = mnuPopGraphStuffPopup 1063 Left = 41088 Left = 30 1064 1089 object mnuPopGraphDetails: TMenuItem 1065 1090 Caption = 'Details...' 1091 OnClick = mnuPopGraphDetailsClick 1092 end 1093 object mnuPopGraphValueMarks: TMenuItem 1094 Caption = 'Values...' 1066 1095 Enabled = False 1067 OnClick = mnuPopGraphDetailsClick 1096 OnClick = mnuPopGraphValueMarksClick 1097 end 1098 object mnuPopGraphViewDefinition: TMenuItem 1099 Caption = 'View Definition...' 1100 OnClick = mnuPopGraphViewDefinitionClick 1068 1101 end 1069 1102 object mnuPopGraphDefineViews: TMenuItem … … 1186 1219 Caption = 'Copy' 1187 1220 ShortCut = 16451 1188 OnClick = mnuPopGraphCopyClick 1221 OnClick = mnuPopGraphPrintClick 1222 end 1223 object mnuPopGraphExport: TMenuItem 1224 Caption = 'Export Data...' 1225 OnClick = mnuPopGraphExportClick 1189 1226 end 1190 1227 object mnuPopGraphPrint: TMenuItem … … 1196 1233 Visible = False 1197 1234 end 1198 object mnumedsasgantt: TMenuItem 1199 Caption = 'meds as gantt' 1200 Checked = True 1201 RadioItem = True 1202 Visible = False 1203 OnClick = mnumedsasganttClick 1204 end 1205 object mnumedsasganttvertheight: TMenuItem 1206 Caption = 'meds as gantt + vert + height change' 1207 RadioItem = True 1208 Visible = False 1209 OnClick = mnumedsasganttClick 1235 object mnutest: TMenuItem 1236 Caption = 'testing' 1237 Enabled = False 1238 Visible = False 1239 end 1240 object mnuFunctions1: TMenuItem 1241 Caption = 'Functions' 1242 Enabled = False 1243 Visible = False 1244 object mnuInverseValues: TMenuItem 1245 Caption = 'Inverse Values' 1246 end 1247 object mnuStandardDeviations: TMenuItem 1248 Caption = 'Standard Deviations' 1249 end 1250 end 1251 object mnuCustom: TMenuItem 1252 Caption = 'Custom' 1253 Enabled = False 1254 Visible = False 1255 OnClick = mnuCustomClick 1256 end 1257 object mnuMHasNumeric1: TMenuItem 1258 Caption = 'MH as Numeric' 1259 Enabled = False 1260 Visible = False 1261 OnClick = mnuMHasNumeric1Click 1262 end 1263 object mnuGraphData: TMenuItem 1264 Caption = 'Show Graph Data...' 1265 Enabled = False 1266 Visible = False 1267 OnClick = mnuGraphDataClick 1210 1268 end 1211 1269 object mnuPopGraphToday: TMenuItem 1212 1270 Caption = 'Reset Today...' 1271 Enabled = False 1213 1272 Visible = False 1214 1273 OnClick = mnuPopGraphTodayClick 1215 1274 end 1216 object testcount1: TMenuItem1275 object mnuTestCount: TMenuItem 1217 1276 Caption = 'test count' 1218 Visible= False1219 OnClick = testcount1Click1277 Enabled = False 1278 Visible = False 1220 1279 end 1221 1280 end … … 1227 1286 RequireTime = False 1228 1287 Format = 'mmm d,yy@hh:nn' 1229 Left = 321288 Left = 59 1230 1289 end 1231 1290 object dlgDate: TORDateTimeDlg 1232 FMDateTime = 3040806 1291 FMDateTime = 3040806.000000000000000000 1233 1292 DateOnly = True 1234 1293 RequireTime = False 1235 Left = 571294 Left = 88 1236 1295 end 1237 1296 object timHintPause: TTimer … … 1239 1298 Interval = 100 1240 1299 OnTimer = timHintPauseTimer 1241 Left = 831300 Left = 117 1242 1301 end 1243 1302 end
Note:
See TracChangeset
for help on using the changeset viewer.
