TPointSeries and Transparency
Posted: Mon Jul 02, 2012 11:11 am
Hi, I would like to make some red circles where the "inter content" is transparent (accordingly, I'm using style := bsClear) - However, When I'm using the code below the inner content becomes blue? How Can I avoid that?
Chart1.FreeAllSeries();
Chart1.RemoveAllSeries;
Chart1.View3D := false;
Chart1.AddSeries(TPointSeries.Create(self));
Chart1[Chart1.SeriesCount-1].ParentChart := Chart1;
Chart1[Chart1.SeriesCount-1].FillSampleValues(10);
with Chart1[Chart1.SeriesCount-1] as TpointSeries do
with Pointer do
begin
Style:=psCircle;
HorizSize:=8;
VertSize:=8;
Brush.Style:=bsClear;
Pen.Color:=clPurple;
Pen.Width:=2;
end;
Chart1.FreeAllSeries();
Chart1.RemoveAllSeries;
Chart1.View3D := false;
Chart1.AddSeries(TPointSeries.Create(self));
Chart1[Chart1.SeriesCount-1].ParentChart := Chart1;
Chart1[Chart1.SeriesCount-1].FillSampleValues(10);
with Chart1[Chart1.SeriesCount-1] as TpointSeries do
with Pointer do
begin
Style:=psCircle;
HorizSize:=8;
VertSize:=8;
Brush.Style:=bsClear;
Pen.Color:=clPurple;
Pen.Width:=2;
end;