Cannot change some markers in chart

);

   I want to change the color of some markers in a serie. With the implementation of the following code it doesn't work. 
Any idea how to implement this in a correct way?

	Chart.BeginUpdate;
	with Chart.Panes[0].Series.Add do 
	 begin 
		 ClearPoints; 
		 ChartType := ctMarkers; 
		 ShowValue := False;

		Marker.MarkerType := mCircle; Marker.MarkerSize := 13; Marker.MarkerColor := clGreen;		Marker.MarkerColorTo := Lighter(clGreen, 50); Marker.MarkerLineColor := clGreen;		Marker.GradientType := gtForwardDiagonal;

		// add all points
		for i := 0 to _series.Count - 1 do
      		begin
        		 ecoGraphSerie := TEcoGraphSerie(_series);
         		AddDoublePoint(ecoGraphSerie.Mean, ecoGraphSerie.Mean, ecoGraphSerie.Name);
      		end;
	end;	
   	Chart.EndUpdate;	

	Chart.BeginUpdate;
   	with Chart.Panes[0].Series[0] do
      		for i := 0 to 2 do
      			begin
         			Points.Color := clRed;
			         Points.ColorTo := Lighter(clRed, 50);
		       end;
   	Chart.EndUpdate;

Author	Message Share Topic Printable Version Delicious Digg Facebook Furl Google MySpace Newsvine reddit StumbleUpon Translate Twitter Windows Live Yahoo Bookmarks Topic Search Topic Options Post Reply Create New Topic
Hennekens Stephan Members Profile Find Members Posts New Member Joined: 16 Aug 2012 Posts: 22	Post Options Post Reply Quote Hennekens Stephan Report Post Quote Reply Topic: Cannot change some markers in chart Posted: 04 Jul 2018 at 9:29am
	I want to change the color of some markers in a serie. With the implementation of the following code it doesn't work. Any idea how to implement this in a correct way? Chart.BeginUpdate; with Chart.Panes[0].Series.Add do begin ClearPoints; ChartType := ctMarkers; ShowValue := False; Marker.MarkerType := mCircle; Marker.MarkerSize := 13; Marker.MarkerColor := clGreen; Marker.MarkerColorTo := Lighter(clGreen, 50); Marker.MarkerLineColor := clGreen; Marker.GradientType := gtForwardDiagonal; // add all points for i := 0 to _series.Count - 1 do begin ecoGraphSerie := TEcoGraphSerie(_series); AddDoublePoint(ecoGraphSerie.Mean, ecoGraphSerie.Mean, ecoGraphSerie.Name); end; end; Chart.EndUpdate; Chart.BeginUpdate; with Chart.Panes[0].Series[0] do for i := 0 to 2 do begin Points.Color := clRed; Points.ColorTo := Lighter(clRed, 50); end; Chart.EndUpdate;

Pieter Scheldeman Members Profile Find Members Posts TMS Support Joined: 18 May 2010 Posts: 3301	Post Options Post Reply Quote Pieter Scheldeman Report Post Quote Reply Posted: 05 Jul 2018 at 2:33pm
	Hi, Markers cannot be changed individually. Each marker has the same color.

Hennekens Stephan Members Profile Find Members Posts New Member Joined: 16 Aug 2012 Posts: 22	Post Options Post Reply Quote Hennekens Stephan Report Post Quote Reply Posted: 09 Jul 2018 at 3:42pm
	OK. But maybe a feature that can be implemented in future :-)

TMS ALL-ACCESS

ALL PRODUCTS

SEARCH BY TAGS

Cannot change some markers in chart