Modification in Gradient ?

[cborgeat]

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 :

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 3956 times

Gradient_New_NotOK.png (7.54 KiB) Viewed 3956 times

Any idee to help me to do the same as before ?

[Yeray]

Hello,

I'm not getting the same result than you with that code, neither with v2013:

shapes.png (12.94 KiB) Viewed 3947 times

testShapes.zip

(1.72 KiB) Downloaded 507 times