Page 1 of 1
Colorizing 3D point symbols
Posted: Wed Mar 08, 2017 1:06 pm
by 16580178
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.
Re: Colorizing 3D point symbols
Posted: Thu Mar 09, 2017 10:34 am
by yeray
Hello,
MatsOle wrote:1) Is it possible to colorize the simple symbols? How?
Using TChartShape series you can change the pen color. Ie:
MatsOle wrote: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 6537 times
I'm using an elephant but you can use any symbol.
Re: Colorizing 3D point symbols
Posted: Thu Mar 09, 2017 11:01 am
by 16580178
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.
Re: Colorizing 3D point symbols
Posted: Thu Mar 09, 2017 11:07 am
by yeray
MatsOle wrote: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;