1object Form1: TForm1 2 Left = 343 3 Height = 413 4 Top = 184 5 Width = 566 6 Caption = 'TAChart axis demo' 7 ClientHeight = 413 8 ClientWidth = 566 9 OnCreate = FormCreate 10 Position = poScreenCenter 11 LCLVersion = '2.3.0.0' 12 object PageControl1: TPageControl 13 Left = 0 14 Height = 413 15 Top = 0 16 Width = 566 17 ActivePage = tsCustomMarks 18 Align = alClient 19 TabIndex = 0 20 TabOrder = 0 21 Options = [nboKeyboardTabSwitch] 22 object tsCustomMarks: TTabSheet 23 Caption = 'Customized marks' 24 ClientHeight = 385 25 ClientWidth = 558 26 object ChartCustomMarks: TChart 27 Left = 0 28 Height = 385 29 Top = 0 30 Width = 558 31 AxisList = < 32 item 33 TickLength = 0 34 Marks.Distance = 0 35 Marks.Format = '$%0:.9g' 36 Marks.Frame.Style = psSolid 37 Marks.LabelBrush.Color = clMoneyGreen 38 Marks.Source = lcsMarks 39 Marks.Style = smsCustom 40 Minors = <> 41 Title.LabelFont.Orientation = 900 42 Title.LabelBrush.Style = bsClear 43 end 44 item 45 Grid.Visible = False 46 TickLength = 0 47 Alignment = calBottom 48 AxisPen.Color = clGreen 49 AxisPen.Width = 3 50 AxisPen.Visible = True 51 Marks.LabelFont.Style = [fsBold] 52 Marks.Format = '%2:s' 53 Marks.LabelBrush.Style = bsClear 54 Marks.Source = lcsMarks 55 Marks.Style = smsLabel 56 Minors = < 57 item 58 Grid.Visible = False 59 Intervals.Count = 2 60 Intervals.MinLength = 5 61 Intervals.Options = [aipUseCount] 62 TickColor = clGreen 63 TickLength = 10 64 Marks.LabelBrush.Style = bsClear 65 end> 66 Title.LabelBrush.Style = bsClear 67 OnMarkToText = ChartCustomMarksAxisList1MarkToText 68 end> 69 Foot.Brush.Color = clBtnFace 70 Foot.Font.Color = clBlue 71 Frame.Visible = False 72 Margins.Left = 10 73 Margins.Top = 10 74 Margins.Right = 10 75 Margins.Bottom = 0 76 MarginsExternal.Left = 0 77 Title.Brush.Color = clBtnFace 78 Title.Font.Color = clBlue 79 Title.Text.Strings = ( 80 'TAChart' 81 ) 82 Align = alClient 83 object ChartCustomMarksBarSeries1: TBarSeries 84 BarBrush.Color = clGreen 85 BarPen.Color = clLime 86 BarPen.Width = 2 87 Marks.Frame.Visible = False 88 Marks.LabelBrush.Style = bsClear 89 Source = lcsMarks 90 end 91 end 92 end 93 object tsAxisGroup: TTabSheet 94 Caption = 'Axis groups' 95 ClientHeight = 385 96 ClientWidth = 558 97 object ChartAxisGroup: TChart 98 Left = 0 99 Height = 385 100 Top = 0 101 Width = 558 102 AxisList = < 103 item 104 Grid.Visible = False 105 TickLength = 0 106 Group = 2 107 Marks.LabelBrush.Style = bsClear 108 Minors = <> 109 Title.LabelFont.Orientation = 900 110 Title.LabelBrush.Style = bsClear 111 end 112 item 113 Alignment = calBottom 114 Marks.LabelBrush.Style = bsClear 115 Minors = <> 116 Title.LabelBrush.Style = bsClear 117 end> 118 Foot.Brush.Color = clBtnFace 119 Foot.Font.Color = clBlue 120 Title.Brush.Color = clBtnFace 121 Title.Font.Color = clBlue 122 Title.Text.Strings = ( 123 'TAChart' 124 ) 125 Align = alClient 126 end 127 end 128 object tsSubmarks: TTabSheet 129 Caption = 'Submarks' 130 ClientHeight = 385 131 ClientWidth = 558 132 object ChartSubmarks: TChart 133 Left = 0 134 Height = 385 135 Top = 0 136 Width = 558 137 AxisList = < 138 item 139 TickLength = 6 140 Group = 1 141 Marks.LabelBrush.Style = bsClear 142 Marks.Source = udcsMain 143 Minors = <> 144 Title.LabelFont.Orientation = 900 145 Title.LabelBrush.Style = bsClear 146 end 147 item 148 Intervals.MaxLength = 100 149 Intervals.MinLength = 30 150 Intervals.NiceSteps = '0.2|0.25|0.5|1.0' 151 TickLength = 6 152 Alignment = calBottom 153 Group = 2 154 Marks.LabelFont.Style = [fsBold] 155 Marks.LabelBrush.Style = bsClear 156 Minors = < 157 item 158 Grid.Color = clGray 159 Grid.Cosmetic = False 160 Intervals.Count = 10 161 Intervals.MinLength = 5 162 Intervals.Options = [aipUseCount, aipUseMinLength] 163 Marks.Distance = 4 164 Marks.LabelFont.Height = -9 165 Marks.LabelFont.Orientation = 900 166 Marks.Format = '%0:.9g' 167 Marks.LabelBrush.Style = bsClear 168 Marks.Style = smsValue 169 end> 170 Title.LabelBrush.Style = bsClear 171 end 172 item 173 Grid.Visible = False 174 TickLength = 2 175 Group = 1 176 Marks.LabelBrush.Style = bsClear 177 Marks.Source = udcsSub 178 Marks.Style = smsNone 179 Minors = <> 180 Title.LabelBrush.Style = bsClear 181 end> 182 BackColor = clWhite 183 Foot.Brush.Color = clBtnFace 184 Foot.Font.Color = clBlue 185 Title.Brush.Color = clBtnFace 186 Title.Font.Color = clBlue 187 Title.Text.Strings = ( 188 'TAChart' 189 ) 190 Align = alClient 191 object ChartSubmarksLineSeries1: TLineSeries 192 Source = udcsGraph 193 end 194 end 195 end 196 object tsDateTime: TTabSheet 197 Caption = 'Date and time' 198 ClientHeight = 385 199 ClientWidth = 558 200 object ChartDateTime: TChart 201 Left = 0 202 Height = 350 203 Top = 0 204 Width = 558 205 AxisList = < 206 item 207 Marks.LabelBrush.Style = bsClear 208 Minors = <> 209 Title.LabelFont.Orientation = 900 210 Title.LabelBrush.Style = bsClear 211 end 212 item 213 Alignment = calBottom 214 Marks.Format = '%2:s' 215 Marks.LabelBrush.Style = bsClear 216 Marks.OverlapPolicy = opHideNeighbour 217 Marks.Source = DateTimeIntervalChartSource1 218 Marks.Style = smsLabel 219 Minors = <> 220 Title.LabelBrush.Style = bsClear 221 end> 222 Foot.Brush.Color = clBtnFace 223 Foot.Font.Color = clBlue 224 Title.Brush.Color = clBtnFace 225 Title.Font.Color = clBlue 226 Title.Text.Strings = ( 227 'The series contain data points for every hour in 10 years' 228 'Left/right-click to zoom and see various labels on the bottom axis' 229 ) 230 Title.Visible = True 231 Toolset = ChartToolsetDateTime 232 Align = alClient 233 object ChartDateTimeLineSeries1: TLineSeries 234 Source = rcsDates 235 end 236 end 237 object Panel1: TPanel 238 AnchorSideTop.Side = asrCenter 239 Left = 0 240 Height = 35 241 Top = 350 242 Width = 558 243 Align = alBottom 244 AutoSize = True 245 BevelOuter = bvNone 246 ClientHeight = 35 247 ClientWidth = 558 248 TabOrder = 1 249 object CbSuppressPrevUnit: TCheckBox 250 AnchorSideLeft.Control = Panel1 251 AnchorSideTop.Control = Panel1 252 AnchorSideTop.Side = asrCenter 253 Left = 8 254 Height = 19 255 Top = 8 256 Width = 139 257 BorderSpacing.Left = 8 258 BorderSpacing.Top = 8 259 BorderSpacing.Bottom = 8 260 Caption = 'Suppress previous unit' 261 Checked = True 262 OnChange = CbSuppressPrevUnitChange 263 State = cbChecked 264 TabOrder = 0 265 end 266 object CbAlternateFormat: TCheckBox 267 AnchorSideLeft.Control = CbSuppressPrevUnit 268 AnchorSideLeft.Side = asrBottom 269 AnchorSideTop.Control = Panel1 270 AnchorSideTop.Side = asrCenter 271 Left = 163 272 Height = 19 273 Top = 8 274 Width = 145 275 BorderSpacing.Left = 16 276 Caption = 'Alternate format strings' 277 OnChange = CbAlternateFormatChange 278 TabOrder = 1 279 end 280 object Label1: TLabel 281 AnchorSideLeft.Control = CbAlternateFormat 282 AnchorSideLeft.Side = asrBottom 283 AnchorSideTop.Control = Panel1 284 AnchorSideTop.Side = asrCenter 285 Left = 332 286 Height = 15 287 Top = 10 288 Width = 34 289 BorderSpacing.Left = 24 290 Caption = 'Label1' 291 end 292 end 293 end 294 object tsIntervals: TTabSheet 295 Caption = 'Intervals' 296 ClientHeight = 385 297 ClientWidth = 558 298 object ChartIntervals: TChart 299 Left = 0 300 Height = 385 301 Top = 0 302 Width = 558 303 AxisList = < 304 item 305 Grid.Visible = False 306 Intervals.NiceSteps = '0.25|1.0' 307 TickColor = clMaroon 308 TickLength = 3 309 AxisPen.Color = clMaroon 310 AxisPen.Visible = True 311 Marks.LabelFont.Color = clMaroon 312 Marks.LabelBrush.Style = bsClear 313 Minors = <> 314 Title.LabelFont.Color = clMaroon 315 Title.LabelFont.Orientation = 900 316 Title.Visible = True 317 Title.Caption = 'NiceSteps = 0.25' 318 Title.LabelBrush.Style = bsClear 319 end 320 item 321 Grid.Visible = False 322 Intervals.MinLength = 20 323 Intervals.NiceSteps = '0.3|0.6' 324 Alignment = calBottom 325 AxisPen.Visible = True 326 Marks.Format = '%0:.6g' 327 Marks.LabelBrush.Style = bsClear 328 Marks.Range.Max = 0.6 329 Marks.Range.Min = -0.3 330 Marks.Range.UseMax = True 331 Marks.Range.UseMin = True 332 Marks.Style = smsCustom 333 Minors = <> 334 Title.Visible = True 335 Title.Caption = 'Marks.Range = -0.3 .. 0.6' 336 Title.LabelBrush.Style = bsClear 337 end 338 item 339 Grid.Visible = False 340 Intervals.Count = 10 341 Intervals.MinLength = 4 342 Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps] 343 TickColor = clGreen 344 TickLength = 3 345 AxisPen.Color = clGreen 346 AxisPen.Visible = True 347 Margin = 8 348 Marks.LabelFont.Color = clGreen 349 Marks.LabelBrush.Style = bsClear 350 Minors = <> 351 Title.LabelFont.Color = clGreen 352 Title.LabelFont.Orientation = 900 353 Title.Visible = True 354 Title.Caption = 'MinLength = 4' 355 Title.LabelBrush.Style = bsClear 356 end 357 item 358 Grid.Visible = False 359 Intervals.MaxLength = 200 360 Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps] 361 TickColor = clNavy 362 TickLength = 3 363 AxisPen.Color = clNavy 364 AxisPen.Visible = True 365 Margin = 8 366 Marks.LabelFont.Color = clNavy 367 Marks.LabelBrush.Style = bsClear 368 Minors = <> 369 Title.LabelFont.Color = clNavy 370 Title.LabelFont.Orientation = 900 371 Title.Visible = True 372 Title.Caption = 'MaxLength = 200' 373 Title.LabelBrush.Style = bsClear 374 end 375 item 376 Grid.Visible = False 377 Intervals.Options = [aipUseMaxLength, aipUseMinLength] 378 TickLength = 3 379 AxisPen.Visible = True 380 Margin = 8 381 Marks.Format = '%0:.4g' 382 Marks.LabelBrush.Style = bsClear 383 Marks.Style = smsCustom 384 Minors = <> 385 Title.LabelFont.Orientation = 900 386 Title.Visible = True 387 Title.Caption = 'No nice steps' 388 Title.LabelBrush.Style = bsClear 389 end> 390 BackColor = clSilver 391 Foot.Brush.Color = clBtnFace 392 Foot.Font.Color = clBlue 393 Frame.Visible = False 394 Title.Brush.Color = clBtnFace 395 Title.Font.Color = clBlue 396 Title.Text.Strings = ( 397 'TAChart' 398 ) 399 Align = alClient 400 end 401 end 402 object tsPosition: TTabSheet 403 Caption = 'Position' 404 ClientHeight = 385 405 ClientWidth = 558 406 object ChartPosition: TChart 407 Left = 0 408 Height = 385 409 Top = 0 410 Width = 389 411 AxisList = < 412 item 413 Grid.Visible = False 414 Intervals.Tolerance = 1 415 AxisPen.Visible = True 416 Marks.LabelBrush.Style = bsClear 417 Minors = <> 418 Position = 50 419 Title.LabelBrush.Style = bsClear 420 end 421 item 422 Grid.Visible = False 423 Intervals.Tolerance = 1 424 Alignment = calBottom 425 AxisPen.Visible = True 426 Marks.LabelBrush.Style = bsClear 427 Minors = <> 428 Position = 50 429 Title.LabelBrush.Style = bsClear 430 end 431 item 432 Grid.Color = clGray 433 Intervals.Tolerance = 1 434 Visible = False 435 Marks.LabelBrush.Style = bsClear 436 Minors = <> 437 Title.LabelFont.Orientation = 900 438 Title.LabelBrush.Style = bsClear 439 end 440 item 441 Grid.Color = clGray 442 Intervals.Tolerance = 1 443 Visible = False 444 Alignment = calBottom 445 Marks.LabelBrush.Style = bsClear 446 Minors = <> 447 Title.LabelBrush.Style = bsClear 448 end> 449 BackColor = clWhite 450 Foot.Brush.Color = clBtnFace 451 Foot.Font.Color = clBlue 452 Title.Brush.Color = clBtnFace 453 Title.Font.Color = clBlue 454 Title.Text.Strings = ( 455 'TAChart' 456 ) 457 Align = alClient 458 Color = clWhite 459 object ChartPositionFuncSeries1: TFuncSeries 460 Extent.UseXMax = True 461 Extent.UseXMin = True 462 Extent.UseYMax = True 463 Extent.UseYMin = True 464 Extent.XMax = 100 465 Extent.XMin = -100 466 Extent.YMax = 30 467 Extent.YMin = -30 468 Pen.Color = clTeal 469 Pen.Width = 2 470 OnCalculate = ChartPositionFuncSeries1Calculate 471 end 472 end 473 object pnlPosition: TPanel 474 Left = 389 475 Height = 385 476 Top = 0 477 Width = 169 478 Align = alRight 479 BevelOuter = bvNone 480 ClientHeight = 385 481 ClientWidth = 169 482 TabOrder = 1 483 object gbPositionX: TGroupBox 484 Left = 0 485 Height = 124 486 Top = 0 487 Width = 163 488 Align = alTop 489 AutoSize = True 490 BorderSpacing.Right = 6 491 Caption = ' X axis ' 492 ClientHeight = 104 493 ClientWidth = 159 494 TabOrder = 0 495 object seXPosition: TSpinEdit 496 AnchorSideLeft.Control = lblPositionX 497 AnchorSideLeft.Side = asrBottom 498 AnchorSideTop.Control = gbPositionX 499 AnchorSideRight.Control = gbPositionX 500 AnchorSideRight.Side = asrBottom 501 Left = 62 502 Height = 23 503 Top = 0 504 Width = 89 505 Anchors = [akTop, akLeft, akRight] 506 BorderSpacing.Left = 8 507 BorderSpacing.Right = 8 508 OnChange = seXPositionChange 509 TabOrder = 0 510 Value = 50 511 end 512 object lblPositionX: TLabel 513 AnchorSideLeft.Control = gbPositionX 514 AnchorSideTop.Control = seXPosition 515 AnchorSideTop.Side = asrCenter 516 Left = 8 517 Height = 15 518 Top = 4 519 Width = 46 520 BorderSpacing.Left = 8 521 Caption = 'Position:' 522 end 523 object cbStaticX: TCheckBox 524 AnchorSideLeft.Control = lblPositionX 525 AnchorSideTop.Control = cbUnitsX 526 AnchorSideTop.Side = asrBottom 527 Left = 8 528 Height = 19 529 Top = 54 530 Width = 103 531 BorderSpacing.Top = 4 532 Caption = 'Show static axis' 533 OnChange = cbStaticXChange 534 TabOrder = 1 535 end 536 object rbPositionBottom: TRadioButton 537 AnchorSideLeft.Control = lblPositionX 538 AnchorSideTop.Control = cbStaticX 539 AnchorSideTop.Side = asrBottom 540 Left = 8 541 Height = 19 542 Top = 77 543 Width = 60 544 BorderSpacing.Top = 4 545 BorderSpacing.Bottom = 8 546 Caption = 'Bottom' 547 Checked = True 548 OnChange = rbPositionBottomChange 549 TabOrder = 3 550 TabStop = True 551 end 552 object rbPositionTop: TRadioButton 553 AnchorSideLeft.Control = rbPositionBottom 554 AnchorSideLeft.Side = asrBottom 555 AnchorSideTop.Control = rbPositionBottom 556 Left = 76 557 Height = 19 558 Top = 77 559 Width = 40 560 BorderSpacing.Left = 8 561 Caption = 'Top' 562 TabOrder = 2 563 end 564 object lblUnitsX: TLabel 565 AnchorSideLeft.Control = lblPositionX 566 AnchorSideTop.Control = cbUnitsX 567 AnchorSideTop.Side = asrCenter 568 Left = 8 569 Height = 15 570 Top = 31 571 Width = 30 572 Caption = 'Units:' 573 end 574 object cbUnitsX: TComboBox 575 AnchorSideLeft.Control = seXPosition 576 AnchorSideTop.Control = seXPosition 577 AnchorSideTop.Side = asrBottom 578 AnchorSideRight.Control = seXPosition 579 AnchorSideRight.Side = asrBottom 580 Left = 62 581 Height = 23 582 Top = 27 583 Width = 89 584 Anchors = [akTop, akLeft, akRight] 585 BorderSpacing.Top = 4 586 ItemHeight = 15 587 ItemIndex = 0 588 Items.Strings = ( 589 'percent' 590 'axis' 591 'graph' 592 'pixel' 593 ) 594 OnChange = cbUnitsXChange 595 Style = csDropDownList 596 TabOrder = 4 597 Text = 'percent' 598 end 599 end 600 object gbPositionY: TGroupBox 601 Left = 0 602 Height = 124 603 Top = 132 604 Width = 163 605 Align = alTop 606 AutoSize = True 607 BorderSpacing.Top = 8 608 BorderSpacing.Right = 6 609 Caption = ' Y axis ' 610 ClientHeight = 104 611 ClientWidth = 159 612 TabOrder = 1 613 object lblPositionY: TLabel 614 AnchorSideLeft.Control = gbPositionY 615 AnchorSideTop.Control = seYPosition 616 AnchorSideTop.Side = asrCenter 617 Left = 8 618 Height = 15 619 Top = 4 620 Width = 46 621 BorderSpacing.Left = 8 622 Caption = 'Position:' 623 end 624 object cbStaticY: TCheckBox 625 AnchorSideLeft.Control = lblPositionY 626 AnchorSideTop.Control = cbUnitsY 627 AnchorSideTop.Side = asrBottom 628 Left = 8 629 Height = 19 630 Top = 54 631 Width = 103 632 BorderSpacing.Top = 4 633 Caption = 'Show static axis' 634 OnChange = cbStaticYChange 635 TabOrder = 0 636 end 637 object seYPosition: TSpinEdit 638 AnchorSideLeft.Control = lblPositionY 639 AnchorSideLeft.Side = asrBottom 640 AnchorSideTop.Control = gbPositionY 641 AnchorSideRight.Control = gbPositionY 642 AnchorSideRight.Side = asrBottom 643 Left = 62 644 Height = 23 645 Top = 0 646 Width = 89 647 Anchors = [akTop, akLeft, akRight] 648 BorderSpacing.Left = 8 649 BorderSpacing.Right = 8 650 OnChange = seYPositionChange 651 TabOrder = 1 652 Value = 50 653 end 654 object rbPositionRight: TRadioButton 655 AnchorSideLeft.Control = rbPositionLeft 656 AnchorSideLeft.Side = asrBottom 657 AnchorSideTop.Control = rbPositionLeft 658 Left = 64 659 Height = 19 660 Top = 77 661 Width = 48 662 BorderSpacing.Left = 16 663 Caption = 'Right' 664 TabOrder = 2 665 end 666 object rbPositionLeft: TRadioButton 667 AnchorSideLeft.Control = lblPositionY 668 AnchorSideTop.Control = cbStaticY 669 AnchorSideTop.Side = asrBottom 670 Left = 8 671 Height = 19 672 Top = 77 673 Width = 40 674 BorderSpacing.Top = 4 675 BorderSpacing.Bottom = 8 676 Caption = 'Left' 677 Checked = True 678 OnChange = rbPositionLeftChange 679 TabOrder = 3 680 TabStop = True 681 end 682 object cbUnitsY: TComboBox 683 AnchorSideLeft.Control = seYPosition 684 AnchorSideTop.Control = seYPosition 685 AnchorSideTop.Side = asrBottom 686 AnchorSideRight.Control = seYPosition 687 AnchorSideRight.Side = asrBottom 688 Left = 62 689 Height = 23 690 Top = 27 691 Width = 89 692 Anchors = [akTop, akLeft, akRight] 693 BorderSpacing.Top = 4 694 ItemHeight = 15 695 ItemIndex = 0 696 Items.Strings = ( 697 'percent' 698 'graph' 699 'pixel' 700 ) 701 OnChange = cbUnitsYChange 702 Style = csDropDownList 703 TabOrder = 4 704 Text = 'percent' 705 end 706 object lblUnitsY: TLabel 707 AnchorSideLeft.Control = lblPositionY 708 AnchorSideTop.Control = cbUnitsY 709 AnchorSideTop.Side = asrCenter 710 Left = 8 711 Height = 15 712 Top = 31 713 Width = 30 714 Caption = 'Units:' 715 end 716 end 717 end 718 end 719 object TabSheet1: TTabSheet 720 Caption = 'Rotated' 721 ClientHeight = 385 722 ClientWidth = 558 723 object ChartRotated: TChart 724 Left = 0 725 Height = 349 726 Top = 0 727 Width = 558 728 AxisList = < 729 item 730 Marks.LabelBrush.Style = bsClear 731 Minors = <> 732 Title.LabelFont.Orientation = 900 733 Title.LabelBrush.Style = bsClear 734 end 735 item 736 Alignment = calBottom 737 Marks.Format = '%2:s' 738 Marks.LabelBrush.Style = bsClear 739 Marks.Source = lcsRotatedSeries 740 Marks.Style = smsLabel 741 Minors = <> 742 Title.LabelBrush.Style = bsClear 743 end> 744 Foot.Brush.Color = clBtnFace 745 Foot.Font.Color = clBlue 746 Title.Brush.Color = clBtnFace 747 Title.Font.Color = clBlue 748 Title.Text.Strings = ( 749 'TAChart' 750 ) 751 Align = alClient 752 object ChartRotatedBarSeries: TBarSeries 753 BarBrush.Color = clRed 754 Source = lcsRotatedSeries 755 Styles = ChartStyles1 756 end 757 end 758 object Panel2: TPanel 759 Left = 0 760 Height = 36 761 Top = 349 762 Width = 558 763 Align = alBottom 764 AutoSize = True 765 BevelOuter = bvNone 766 ClientHeight = 36 767 ClientWidth = 558 768 TabOrder = 1 769 object cbRotated: TCheckBox 770 AnchorSideLeft.Control = Panel2 771 AnchorSideTop.Control = Panel2 772 AnchorSideTop.Side = asrCenter 773 Left = 8 774 Height = 19 775 Top = 9 776 Width = 61 777 BorderSpacing.Around = 8 778 Caption = 'Rotated' 779 OnChange = cbRotatedChange 780 TabOrder = 0 781 end 782 end 783 end 784 end 785 object lcsMarks: TListChartSource 786 DataPoints.Strings = ( 787 '1|18000|?|January' 788 '2|35000|?|February' 789 '3|31000|?|March' 790 '4|26000|?|April' 791 '5|37000|?|May' 792 '6|22000|?|June' 793 ) 794 Left = 216 795 Top = 164 796 end 797 object rcsDates: TRandomChartSource 798 RandSeed = 1079653020 799 YMax = 50 800 YMin = 5 801 Left = 216 802 Top = 216 803 end 804 object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource 805 Params.Count = 10 806 Params.MaxLength = 150 807 Params.MinLength = 20 808 Params.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps] 809 OnDateTimeStepChange = DateTimeIntervalChartSource1DateTimeStepChange 810 Left = 248 811 Top = 320 812 end 813 object ChartToolsetDateTime: TChartToolset 814 Left = 448 815 Top = 320 816 object ChartToolset1ZoomIn: TZoomClickTool 817 Shift = [ssLeft] 818 ZoomFactor = 4 819 ZoomRatio = 0.25 820 end 821 object ChartToolset1ZoomOut: TZoomClickTool 822 Shift = [ssRight] 823 ZoomFactor = 0.25 824 ZoomRatio = 4 825 end 826 end 827 object udcsMain: TUserDefinedChartSource 828 OnGetChartDataItem = udcsMainGetChartDataItem 829 PointsNumber = 10 830 Left = 344 831 Top = 72 832 end 833 object udcsSub: TUserDefinedChartSource 834 OnGetChartDataItem = udcsSubGetChartDataItem 835 PointsNumber = 50 836 Left = 344 837 Top = 116 838 end 839 object udcsGraph: TUserDefinedChartSource 840 OnGetChartDataItem = udcsGraphGetChartDataItem 841 PointsNumber = 100 842 Left = 352 843 Top = 184 844 end 845 object csStripes: TChartStyles 846 Styles = < 847 item 848 Brush.Color = 16631498 849 UsePen = False 850 end 851 item 852 Brush.Color = 12319483 853 UsePen = False 854 end> 855 Left = 304 856 Top = 176 857 end 858 object lcsRotatedSeries: TListChartSource 859 DataPoints.Strings = ( 860 '1|104|53|62|?|A' 861 '2|243|47|51|?|B' 862 '3|405|51|26|?|C' 863 '4|156|68|28|?|D' 864 '5|364|16|35|?|E' 865 ) 866 YCount = 3 867 Left = 468 868 Top = 35 869 end 870 object ChartStyles1: TChartStyles 871 Styles = < 872 item 873 Brush.Color = clRed 874 end 875 item 876 Brush.Color = clYellow 877 end 878 item 879 Brush.Color = clGreen 880 end> 881 Left = 468 882 Top = 88 883 end 884end 885