TMapSeries Brush & Pen Issues
Posted: Sat Nov 04, 2023 5:35 am
Here is a simple sample program:
I get a solid blue triangle with a tin black boundary, Changing pen or brush properties have no effect. I use the explicit "TMapSeries(Series[0]).Shapes[0]" to ensure that the correct Pen and Brush are modified.
I am using TeeChart Pro v2023.37.230130 32bit VCL
Any suggestions?
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
with Chart1.AddSeries(TMapSeries) as TMapSeries do begin
with Shapes.Add do begin
AddXY(0,0);
AddXY(3,3);
AddXY(2,5);
end; // Add points
end; // Create map
with Chart1 do begin
TMapSeries(Series[0]).Shapes[0].Color := clBlue;
TMapSeries(Series[0]).Shapes[0].Pen.Color := clRed;
TMapSeries(Series[0]).Shapes[0].Pen.Width := 10;
TMapSeries(Series[0]).Shapes[0].Brush.Style := bsCross;
end; // Change triangle properties
end;
I am using TeeChart Pro v2023.37.230130 32bit VCL
Any suggestions?