Colorizing 3D point symbols

[MatsOle]

I have created a 3D chart with a number of series.

Selecting individual colors to each point works fine as long as the points are shapes.

I also want to set color to the simple figures (+, *, etc) but have not found a method to do that.

Questions:

1) Is it possible to colorize the simple symbols? How?

2) Is it possible to define own simple symbols like (U, E, I, T, etc) that will work when the chart is rotated.

[Yeray]

Hello,

1) Is it possible to colorize the simple symbols? How?

Using TChartShape series you can change the pen color. Ie:

Code: Select all

Series1.Pen.Color:=clGreen;

2) Is it possible to define own simple symbols like (U, E, I, T, etc) that will work when the chart is rotated.

I'm afraid that's not possible. However, you could save your symbols in images and use them in a TImagePointSeries. Ie:

Code: Select all

uses TeeShape, ImaPoint, TeePNG;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Aspect.Orthogonal:=False;
  Chart1.Aspect.Rotation:=315;
  Chart1.Aspect.Elevation:=330;

  with Chart1.AddSeries(TChartShape) as TChartShape do
  begin
    Style:=chasVertLine;
    Pen.Color:=clGreen;
  end;

  with Chart1.AddSeries(TImagePointSeries) as TImagePointSeries do
  begin
    AddXY(40, 50);
    Pointer.Size:=300;
    ImagePoint.LoadFromFile('E:\tmp\transparent_elephant.png');
  end;

  Chart1.Axes.Bottom.SetMinMax(0,100);
  Chart1.Axes.Left.SetMinMax(0,100);
end;

Project2_2017-03-09_11-33-35.png (178.45 KiB) Viewed 6367 times

I'm using an elephant but you can use any symbol.

[MatsOle]

I have tried to set the Pen.Color for my Point3D series.

It does not work to colorize individual points when I'm using simple symbols like +, X, *.

Colorizing true 3D symbols works fine.

[Yeray]

I have tried to set the Pen.Color for my Point3D series.

It does not work to colorize individual points when I'm using simple symbols like +, X, *.

Colorizing true 3D symbols works fine.

Sorry, I didnt' understand you were using TPoint3DSeries. You may be looking for the Pointer.Pen.Color property:

Code: Select all

  with Chart1.AddSeries(TPoint3DSeries) as TPoint3DSeries do
  begin
    Pointer.Style:=psCross;
    Pointer.Pen.Color:=clGreen;
    LinePen.Visible:=False;
    FillSampleValues();
  end;