1object Form1: TForm1 2 Left = 443 3 Height = 559 4 Top = 340 5 Width = 659 6 Caption = 'Form1' 7 ClientHeight = 559 8 ClientWidth = 659 9 OnCreate = FormCreate 10 Position = poScreenCenter 11 LCLVersion = '2.3.0.0' 12 object PageControl1: TPageControl 13 Left = 0 14 Height = 559 15 Top = 0 16 Width = 659 17 ActivePage = tsPie 18 Align = alClient 19 TabIndex = 0 20 TabOrder = 0 21 object tsPie: TTabSheet 22 Caption = 'Pie' 23 ClientHeight = 531 24 ClientWidth = 651 25 object ChartPie: TChart 26 Left = 0 27 Height = 407 28 Top = 124 29 Width = 651 30 AxisList = < 31 item 32 Visible = False 33 Marks.LabelBrush.Style = bsClear 34 Minors = <> 35 Title.LabelFont.Orientation = 900 36 Title.LabelBrush.Style = bsClear 37 end 38 item 39 Visible = False 40 Alignment = calBottom 41 Marks.LabelBrush.Style = bsClear 42 Minors = <> 43 Title.LabelBrush.Style = bsClear 44 end> 45 Foot.Brush.Color = clBtnFace 46 Foot.Font.Color = clBlue 47 Title.Alignment = taLeftJustify 48 Title.Brush.Color = clNone 49 Title.Font.Color = clBlue 50 Title.Text.Strings = ( 51 ' Click on a slice to explode/unexplode it' 52 ) 53 Title.Visible = True 54 Toolset = ChartToolset1 55 Align = alClient 56 Color = clDefault 57 OnMouseDown = ChartPieMouseDown 58 object ChartPiePieSeries1: TPieSeries 59 DepthBrightnessDelta = -32 60 Exploded = True 61 Marks.Distance = 40 62 Marks.Format = '%2:s' 63 Marks.Frame.Color = clSilver 64 Marks.LinkPen.Color = clSilver 65 Marks.Style = smsLabel 66 Source = ListChartSource1 67 end 68 end 69 object Panel1: TPanel 70 AnchorSideTop.Side = asrCenter 71 Left = 0 72 Height = 124 73 Top = 0 74 Width = 651 75 Align = alTop 76 Alignment = taLeftJustify 77 Anchors = [akTop, akRight] 78 AutoSize = True 79 BevelOuter = bvNone 80 ClientHeight = 124 81 ClientWidth = 651 82 TabOrder = 1 83 object seWords: TSpinEdit 84 AnchorSideLeft.Control = lblWords 85 AnchorSideLeft.Side = asrBottom 86 AnchorSideTop.Control = cbShowLabels 87 AnchorSideTop.Side = asrCenter 88 AnchorSideRight.Control = lblInnerRadius 89 Left = 222 90 Height = 23 91 Top = 6 92 Width = 72 93 BorderSpacing.Top = 6 94 BorderSpacing.Right = 24 95 MaxValue = 10 96 OnChange = seWordsChange 97 TabOrder = 0 98 Value = 1 99 end 100 object lblWords: TLabel 101 AnchorSideLeft.Control = cbMarkPositions 102 AnchorSideLeft.Side = asrBottom 103 AnchorSideTop.Control = seWords 104 AnchorSideTop.Side = asrCenter 105 AnchorSideRight.Control = seWords 106 Left = 151 107 Height = 15 108 Top = 10 109 Width = 63 110 BorderSpacing.Left = 16 111 BorderSpacing.Right = 8 112 Caption = 'Label words' 113 end 114 object seLabelAngle: TSpinEdit 115 AnchorSideLeft.Control = seWords 116 AnchorSideTop.Control = seWords 117 AnchorSideTop.Side = asrBottom 118 AnchorSideRight.Control = seWords 119 AnchorSideRight.Side = asrBottom 120 Left = 222 121 Height = 23 122 Top = 35 123 Width = 72 124 Anchors = [akTop, akLeft, akRight] 125 BorderSpacing.Top = 6 126 Increment = 5 127 MaxValue = 360 128 MinValue = -360 129 OnChange = seLabelAngleChange 130 TabOrder = 1 131 end 132 object lblLabelAngle: TLabel 133 AnchorSideTop.Control = seLabelAngle 134 AnchorSideTop.Side = asrCenter 135 AnchorSideRight.Control = seLabelAngle 136 Left = 154 137 Height = 15 138 Top = 39 139 Width = 60 140 Anchors = [akTop, akRight] 141 BorderSpacing.Right = 8 142 Caption = 'Label angle' 143 end 144 object cbRotate: TCheckBox 145 AnchorSideLeft.Control = cbShowLabels 146 AnchorSideTop.Control = seLabelAngle 147 AnchorSideTop.Side = asrCenter 148 AnchorSideRight.Side = asrBottom 149 Left = 8 150 Height = 19 151 Top = 37 152 Width = 87 153 BorderSpacing.Top = 6 154 BorderSpacing.Bottom = 6 155 Caption = 'Rotate labels' 156 OnChange = cbRotateChange 157 TabOrder = 2 158 end 159 object cbMarkPositions: TComboBox 160 AnchorSideLeft.Control = cbShowLabels 161 AnchorSideTop.Control = cbMarkAttachment 162 AnchorSideTop.Side = asrBottom 163 AnchorSideRight.Control = seDepthBrightnessDelta 164 AnchorSideRight.Side = asrBottom 165 Left = 8 166 Height = 23 167 Top = 93 168 Width = 127 169 AutoSize = False 170 BorderSpacing.Bottom = 8 171 ItemHeight = 15 172 ItemIndex = 0 173 Items.Strings = ( 174 'Around' 175 'Inside' 176 'Left / right' 177 ) 178 OnChange = cbMarkPositionsChange 179 Style = csDropDownList 180 TabOrder = 3 181 Text = 'Around' 182 end 183 object Cb3D: TCheckBox 184 AnchorSideLeft.Control = lblInnerRadius 185 AnchorSideTop.Control = seDepth 186 AnchorSideTop.Side = asrCenter 187 Left = 327 188 Height = 19 189 Top = 66 190 Width = 34 191 Caption = '3D' 192 OnChange = Cb3DChange 193 TabOrder = 4 194 end 195 object seInnerRadius: TSpinEdit 196 AnchorSideLeft.Control = seDepthBrightnessDelta 197 AnchorSideTop.Control = seWords 198 AnchorSideRight.Side = asrBottom 199 Left = 410 200 Height = 23 201 Top = 6 202 Width = 62 203 BorderSpacing.Right = 8 204 OnChange = seInnerRadiusChange 205 TabOrder = 5 206 end 207 object lblInnerRadius: TLabel 208 AnchorSideLeft.Side = asrBottom 209 AnchorSideTop.Control = lblWords 210 AnchorSideRight.Control = seInnerRadius 211 Left = 327 212 Height = 15 213 Top = 10 214 Width = 75 215 Anchors = [akTop, akRight] 216 BorderSpacing.Right = 8 217 Caption = 'Inner radius %' 218 end 219 object lblDepth: TLabel 220 AnchorSideLeft.Control = Cb3D 221 AnchorSideLeft.Side = asrBottom 222 AnchorSideTop.Control = seDepth 223 AnchorSideTop.Side = asrCenter 224 AnchorSideRight.Control = seDepth 225 Left = 370 226 Height = 15 227 Top = 68 228 Width = 32 229 Anchors = [akTop, akRight] 230 BorderSpacing.Left = 12 231 BorderSpacing.Right = 8 232 Caption = 'Depth' 233 Enabled = False 234 end 235 object seDepth: TSpinEdit 236 AnchorSideLeft.Control = seDepthBrightnessDelta 237 AnchorSideTop.Control = seDistance 238 AnchorSideTop.Side = asrCenter 239 AnchorSideRight.Side = asrBottom 240 Left = 410 241 Height = 23 242 Top = 64 243 Width = 62 244 BorderSpacing.Right = 6 245 Enabled = False 246 MaxValue = 1000 247 OnChange = seDepthChange 248 TabOrder = 6 249 Value = 20 250 end 251 object seDepthBrightnessDelta: TSpinEdit 252 AnchorSideLeft.Control = lblDepthBrightnessDelta 253 AnchorSideLeft.Side = asrBottom 254 AnchorSideTop.Control = seDepth 255 AnchorSideTop.Side = asrBottom 256 AnchorSideRight.Control = Panel1 257 AnchorSideRight.Side = asrBottom 258 Left = 410 259 Height = 23 260 Top = 93 261 Width = 62 262 BorderSpacing.Top = 6 263 BorderSpacing.Right = 6 264 Enabled = False 265 MaxValue = 255 266 MinValue = -255 267 OnChange = seDepthBrightnessDeltaChange 268 TabOrder = 7 269 Value = -32 270 end 271 object lblDepthBrightnessDelta: TLabel 272 AnchorSideLeft.Control = seDistance 273 AnchorSideLeft.Side = asrBottom 274 AnchorSideTop.Control = seDepthBrightnessDelta 275 AnchorSideTop.Side = asrCenter 276 AnchorSideRight.Control = seDepthBrightnessDelta 277 Left = 318 278 Height = 15 279 Top = 97 280 Width = 84 281 Alignment = taRightJustify 282 BorderSpacing.Left = 24 283 BorderSpacing.Right = 8 284 Caption = 'Brightness delta' 285 Enabled = False 286 WordWrap = True 287 end 288 object cbShowLabels: TCheckBox 289 AnchorSideLeft.Control = Panel1 290 AnchorSideTop.Control = Panel1 291 AnchorSideRight.Control = lblWords 292 Left = 8 293 Height = 19 294 Top = 8 295 Width = 82 296 BorderSpacing.Left = 8 297 BorderSpacing.Top = 8 298 BorderSpacing.Right = 16 299 Caption = 'Show labels' 300 Checked = True 301 OnChange = cbShowLabelsChange 302 State = cbChecked 303 TabOrder = 8 304 end 305 object lblDistance: TLabel 306 AnchorSideTop.Control = seDistance 307 AnchorSideTop.Side = asrCenter 308 AnchorSideRight.Control = seDistance 309 Left = 169 310 Height = 15 311 Top = 68 312 Width = 45 313 Anchors = [akTop, akRight] 314 BorderSpacing.Right = 8 315 Caption = 'Distance' 316 end 317 object seDistance: TSpinEdit 318 AnchorSideTop.Control = seLabelAngle 319 AnchorSideTop.Side = asrBottom 320 AnchorSideRight.Control = seLabelAngle 321 AnchorSideRight.Side = asrBottom 322 Left = 222 323 Height = 23 324 Top = 64 325 Width = 72 326 Anchors = [akTop, akRight] 327 BorderSpacing.Top = 6 328 MaxValue = 1000 329 OnChange = seDistanceChange 330 TabOrder = 9 331 Value = 40 332 end 333 object cbMarkAttachment: TComboBox 334 AnchorSideLeft.Control = cbShowLabels 335 AnchorSideTop.Control = seDistance 336 AnchorSideTop.Side = asrCenter 337 AnchorSideRight.Control = seDistance 338 AnchorSideRight.Side = asrBottom 339 Left = 8 340 Height = 23 341 Top = 64 342 Width = 125 343 BorderSpacing.Top = 6 344 BorderSpacing.Bottom = 6 345 ItemHeight = 15 346 ItemIndex = 0 347 Items.Strings = ( 348 'Default' 349 'Edge' 350 'Center' 351 ) 352 OnChange = cbMarkAttachmentChange 353 Style = csDropDownList 354 TabOrder = 10 355 Text = 'Default' 356 end 357 object cbMarkPositionsCentered: TCheckBox 358 AnchorSideLeft.Control = lblWords 359 AnchorSideTop.Control = cbMarkPositions 360 AnchorSideTop.Side = asrCenter 361 AnchorSideRight.Control = cbMarkPositions 362 AnchorSideRight.Side = asrBottom 363 Left = 151 364 Height = 19 365 Top = 95 366 Width = 147 367 Caption = 'Mark positions centered' 368 OnChange = cbMarkPositionsCenteredChange 369 TabOrder = 11 370 end 371 object lblStartAngle: TLabel 372 AnchorSideLeft.Side = asrBottom 373 AnchorSideTop.Control = seStartAngle 374 AnchorSideTop.Side = asrCenter 375 AnchorSideRight.Control = seStartAngle 376 Left = 346 377 Height = 15 378 Top = 39 379 Width = 56 380 Anchors = [akTop, akRight] 381 BorderSpacing.Right = 8 382 Caption = 'Start angle' 383 end 384 object seStartAngle: TSpinEdit 385 AnchorSideLeft.Control = seDepthBrightnessDelta 386 AnchorSideTop.Control = seLabelAngle 387 AnchorSideRight.Side = asrBottom 388 Left = 410 389 Height = 23 390 Top = 35 391 Width = 62 392 BorderSpacing.Right = 6 393 MaxValue = 180 394 MinValue = -180 395 OnChange = seStartAngleChange 396 TabOrder = 12 397 end 398 object seViewAngle: TSpinEdit 399 AnchorSideLeft.Control = seAngleRange 400 AnchorSideTop.Control = seDistance 401 AnchorSideTop.Side = asrCenter 402 AnchorSideRight.Control = cmbOrientation 403 AnchorSideRight.Side = asrBottom 404 Left = 562 405 Height = 23 406 Top = 64 407 Width = 62 408 Anchors = [akTop, akRight] 409 Enabled = False 410 MaxValue = 89 411 OnChange = seViewAngleChange 412 TabOrder = 13 413 Value = 60 414 end 415 object lblViewAngle: TLabel 416 AnchorSideLeft.Side = asrBottom 417 AnchorSideTop.Control = seViewAngle 418 AnchorSideTop.Side = asrCenter 419 AnchorSideRight.Control = seViewAngle 420 Left = 497 421 Height = 15 422 Top = 68 423 Width = 57 424 Anchors = [akTop, akRight] 425 BorderSpacing.Left = 12 426 BorderSpacing.Right = 8 427 Caption = 'View angle' 428 Enabled = False 429 end 430 object cmbOrientation: TComboBox 431 AnchorSideLeft.Control = seDepthBrightnessDelta 432 AnchorSideLeft.Side = asrBottom 433 AnchorSideTop.Control = cbMarkAttachment 434 AnchorSideTop.Side = asrBottom 435 AnchorSideRight.Side = asrBottom 436 Left = 496 437 Height = 23 438 Top = 93 439 Width = 128 440 AutoSize = False 441 BorderSpacing.Left = 24 442 BorderSpacing.Bottom = 8 443 Enabled = False 444 ItemHeight = 15 445 ItemIndex = 0 446 Items.Strings = ( 447 'normal' 448 'horizontal' 449 'vertical' 450 ) 451 OnChange = cmbOrientationChange 452 Style = csDropDownList 453 TabOrder = 14 454 Text = 'normal' 455 end 456 object lblAngleRange: TLabel 457 AnchorSideLeft.Side = asrBottom 458 AnchorSideTop.Control = seAngleRange 459 AnchorSideTop.Side = asrCenter 460 AnchorSideRight.Control = seAngleRange 461 Left = 493 462 Height = 15 463 Top = 39 464 Width = 64 465 Anchors = [akTop, akRight] 466 BorderSpacing.Left = 12 467 BorderSpacing.Right = 8 468 Caption = 'Angle range' 469 end 470 object seAngleRange: TSpinEdit 471 AnchorSideTop.Control = seStartAngle 472 AnchorSideRight.Control = cmbOrientation 473 AnchorSideRight.Side = asrBottom 474 Left = 565 475 Height = 23 476 Top = 35 477 Width = 59 478 Anchors = [akTop, akRight] 479 MaxValue = 360 480 MinValue = 1 481 OnChange = seAngleRangeChange 482 TabOrder = 15 483 Value = 360 484 end 485 end 486 end 487 object tsPolar: TTabSheet 488 Caption = 'Polar' 489 ClientHeight = 531 490 ClientWidth = 651 491 object ChartPolar: TChart 492 Left = 0 493 Height = 531 494 Top = 0 495 Width = 519 496 AxisList = < 497 item 498 Marks.LabelBrush.Style = bsClear 499 Minors = <> 500 Title.LabelFont.Orientation = 900 501 Title.LabelBrush.Style = bsClear 502 end 503 item 504 Alignment = calBottom 505 Marks.LabelBrush.Style = bsClear 506 Minors = <> 507 Title.LabelBrush.Style = bsClear 508 end> 509 Foot.Brush.Color = clBtnFace 510 Foot.Font.Color = clBlue 511 Title.Brush.Color = clBtnFace 512 Title.Font.Color = clBlue 513 Title.Text.Strings = ( 514 'TAChart' 515 ) 516 Align = alClient 517 Color = clDefault 518 object ChartPolarSeries1: TPolarSeries 519 Brush.Color = 14145495 520 OriginX = -5 521 Pointer.HorizSize = 6 522 Pointer.Style = psDiamond 523 Pointer.VertSize = 6 524 ShowPoints = False 525 Source = RandomChartSource1 526 end 527 object ChartPolarSeries2: TPolarSeries 528 Brush.Color = 12303359 529 LinePen.Color = clRed 530 OriginY = 5 531 Pointer.Brush.Color = clRed 532 Pointer.Style = psCircle 533 ShowPoints = False 534 Source = RandomChartSource1 535 end 536 end 537 object pnlPolar: TPanel 538 Left = 519 539 Height = 531 540 Top = 0 541 Width = 132 542 Align = alRight 543 AutoSize = True 544 ClientHeight = 531 545 ClientWidth = 132 546 TabOrder = 1 547 object cbCloseCircle: TCheckBox 548 AnchorSideLeft.Control = pnlPolar 549 AnchorSideTop.Control = pnlPolar 550 Left = 9 551 Height = 19 552 Top = 9 553 Width = 56 554 BorderSpacing.Left = 8 555 BorderSpacing.Top = 8 556 BorderSpacing.Bottom = 8 557 Caption = 'Closed' 558 OnChange = cbCloseCircleChange 559 TabOrder = 0 560 end 561 object cbShowPoints: TCheckBox 562 AnchorSideLeft.Control = pnlPolar 563 AnchorSideTop.Control = cbCloseCircle 564 AnchorSideTop.Side = asrBottom 565 Left = 9 566 Height = 19 567 Top = 36 568 Width = 85 569 BorderSpacing.Left = 8 570 BorderSpacing.Top = 8 571 BorderSpacing.Right = 8 572 Caption = 'Show points' 573 OnChange = cbShowPointsChange 574 TabOrder = 1 575 end 576 object cbFilled: TCheckBox 577 AnchorSideLeft.Control = pnlPolar 578 AnchorSideTop.Control = cbShowPoints 579 AnchorSideTop.Side = asrBottom 580 Left = 9 581 Height = 19 582 Top = 63 583 Width = 48 584 BorderSpacing.Left = 8 585 BorderSpacing.Top = 8 586 Caption = 'Filled' 587 OnChange = cbFilledChange 588 TabOrder = 2 589 end 590 object sbTransparency: TScrollBar 591 AnchorSideLeft.Control = pnlPolar 592 AnchorSideTop.Control = lblTransparency 593 AnchorSideTop.Side = asrBottom 594 Left = 9 595 Height = 17 596 Top = 117 597 Width = 114 598 BorderSpacing.Left = 8 599 BorderSpacing.Top = 4 600 BorderSpacing.Right = 8 601 Max = 255 602 PageSize = 0 603 TabOrder = 3 604 OnChange = sbTransparencyChange 605 end 606 object lblTransparency: TLabel 607 AnchorSideLeft.Control = pnlPolar 608 AnchorSideTop.Control = cbFilled 609 AnchorSideTop.Side = asrBottom 610 Left = 9 611 Height = 15 612 Top = 98 613 Width = 86 614 BorderSpacing.Left = 8 615 BorderSpacing.Top = 16 616 Caption = 'Transparency (0)' 617 FocusControl = sbTransparency 618 end 619 end 620 end 621 end 622 object ListChartSource1: TListChartSource 623 DataPoints.Strings = ( 624 '0|7|?|' 625 '0|3|?|' 626 '0|1|?|' 627 '0.2|0.2|?|' 628 '0|1|?|' 629 ) 630 Left = 64 631 Top = 256 632 end 633 object ChartToolset1: TChartToolset 634 Left = 64 635 Top = 200 636 end 637 object RandomChartSource1: TRandomChartSource 638 PointsNumber = 15 639 RandSeed = 1648434073 640 XMax = 6 641 YCount = 2 642 YMax = 10 643 YMin = 2 644 Left = 64 645 Top = 316 646 end 647end 648