Modification in Gradient ?
Posted: Mon Jun 06, 2016 3:27 pm
Hello, I have a problem i cant understand and solve. In one previous version we use Gradient of the shape in a TmapSeries (Teechart2013 with delphi XE)
But now the code not work anymore (TeeChart 2015 and delphi 10 Seattle).
You can see exaclly wath i mean in the attached picture.
Here is the code :
Any idee to help me to do the same as before ?
But now the code not work anymore (TeeChart 2015 and delphi 10 Seattle).
You can see exaclly wath i mean in the attached picture.
Here is the code :
Code: Select all
Fserie := TMapSeries(Fchart.Series[0]) ;
Fserie.Shapes.Clear ;
Fserie.Shapes.Add ;
Fserie.Shapes.Polygon[0].Gradient.Visible := True ;
Fserie.Shapes.Polygon[0].Gradient.StartColor := clBlue ;
Fserie.Shapes.Polygon[0].Gradient.EndColor := clRed ;
FChart.BottomAxis.Maximum := 60 ;
FChart.LeftAxis.Maximum := 40 ;
//Premier plat et premère rampe
Fserie.Shapes[0].AddXY(24, 18.5) ;
Fserie.Shapes[0].AddXY(22, 18.5) ;
Fserie.Shapes[0].AddXY(15.2, 11.5) ;
Fserie.Shapes[0].AddXY(1, 11.5) ;
Fserie.Shapes[0].AddXY(1, 10.5) ;
Fserie.Shapes[0].AddXY(16, 10.5) ;
Fserie.Shapes[0].AddXY(24, 18.5) ;
//Jointure
Fserie.Shapes[0].AddXY(23, 18.5) ;
Fserie.Shapes[0].AddXY(24.2, 19.5) ;
//Premier step dans le plat
Fserie.Shapes[0].AddXY(26, 19.5) ;
Fserie.Shapes[0].AddXY(26, 20.25) ;
Fserie.Shapes[0].AddXY(28, 20.25) ;
Fserie.Shapes[0].AddXY(28, 18.75) ;
Fserie.Shapes[0].AddXY(26, 18.75) ;
Fserie.Shapes[0].AddXY(26, 19.5) ;
Fserie.Shapes[0].AddXY(26, 18.75) ;
Fserie.Shapes[0].AddXY(28, 18.75) ;
Fserie.Shapes[0].AddXY(28, 19.5) ;
//Deuxième step dans le plat
Fserie.Shapes[0].AddXY(30, 19.5) ;
Fserie.Shapes[0].AddXY(30, 20.25) ;
Fserie.Shapes[0].AddXY(32, 20.25) ;
Fserie.Shapes[0].AddXY(32, 18.75) ;
Fserie.Shapes[0].AddXY(30, 18.75) ;
Fserie.Shapes[0].AddXY(30, 19.5) ;
Fserie.Shapes[0].AddXY(30, 18.75) ;
Fserie.Shapes[0].AddXY(32, 18.75) ;
Fserie.Shapes[0].AddXY(32, 19.5) ;
//Jointure
Fserie.Shapes[0].AddXY(34, 19.5) ;
Fserie.Shapes[0].AddXY(35, 20.6) ;
//Premier step dans la rampe
Fserie.Shapes[0].AddXY(34.4, 21.1) ;
//Fserie.Shapes[0].AddXY(31.4, 13.1) ;
Fserie.Shapes[0].AddXY(36.2, 23) ;
//Fserie.Shapes[0].AddXY(32.6, 12) ;
Fserie.Shapes[0].AddXY(37.4, 21.8) ;
Fserie.Shapes[0].AddXY(35.6, 19.9) ;
Fserie.Shapes[0].AddXY(35, 20.6) ;
Fserie.Shapes[0].AddXY(35.6, 19.9) ;
//Fserie.Shapes[0].AddXY(32.6, 12) ;
Fserie.Shapes[0].AddXY(37.4, 21.8) ;
//Fserie.Shapes[0].AddXY(32, 12.6) ;
Fserie.Shapes[0].AddXY(36.8, 22.5) ;
Fserie.Shapes[0].AddXY(38.2, 23.8) ;
//Deuxième step dans la rampe
Fserie.Shapes[0].AddXY(37.6, 24.3) ;
Fserie.Shapes[0].AddXY(39.4, 26.2) ;
Fserie.Shapes[0].AddXY(40.6, 25) ;
Fserie.Shapes[0].AddXY(38.8, 23.1) ;
Fserie.Shapes[0].AddXY(38.2, 23.8) ;
Fserie.Shapes[0].AddXY(38.8, 23.1) ;
Fserie.Shapes[0].AddXY(40.6, 25) ;
Fserie.Shapes[0].AddXY(40, 25.5) ;
//Jointure
Fserie.Shapes[0].AddXY(41.2, 26.7) ;
Fserie.Shapes[0].AddXY(43, 26.7) ;
//Plat finale
Fserie.Shapes[0].AddXY(43, 26.7) ;
Fserie.Shapes[0].AddXY(43, 27.7) ;
Fserie.Shapes[0].AddXY(58, 27.7) ;
Fserie.Shapes[0].AddXY(58, 25.9) ;
Fserie.Shapes[0].AddXY(43, 25.9) ;
Fserie.Shapes[0].AddXY(43, 26.7) ;
//Retour en arrière
Fserie.Shapes[0].AddXY(41.2, 26.7) ;
Fserie.Shapes[0].AddXY(40, 25.5) ;
Fserie.Shapes[0].AddXY(40.6, 25) ;
Fserie.Shapes[0].AddXY(38.8, 23.1) ;
Fserie.Shapes[0].AddXY(38.2, 23.8) ;
//Fserie.Shapes[0].AddXY(32, 12.6) ;
Fserie.Shapes[0].AddXY(36.8, 22.5) ;
//Fserie.Shapes[0].AddXY(32.6, 12) ;
Fserie.Shapes[0].AddXY(37.4, 21.8) ;
Fserie.Shapes[0].AddXY(35.6, 19.9) ;
Fserie.Shapes[0].AddXY(35, 20.6) ;
Fserie.Shapes[0].AddXY(34, 19.5) ;
Fserie.Shapes[0].AddXY(32, 19.5) ;
Fserie.Shapes[0].AddXY(32, 18.75) ;
Fserie.Shapes[0].AddXY(30, 18.75) ;
Fserie.Shapes[0].AddXY(30, 19.5) ;
Fserie.Shapes[0].AddXY(28, 19.5) ;
Fserie.Shapes[0].AddXY(28, 18.75) ;
Fserie.Shapes[0].AddXY(26, 18.75) ;
Fserie.Shapes[0].AddXY(26, 19.5) ;
Fserie.Shapes[0].AddXY(24.2, 19.5) ;
Fserie.Shapes[0].AddXY(23, 18.5) ;
end ;- Gradient_Old_OK.png (10.02 KiB) Viewed 4099 times
- Gradient_New_NotOK.png (7.54 KiB) Viewed 4099 times