Steema Central

Code: Select all

uses Tee.GridData.Rtti;

var Chart: TChart;
    Grid: TTeeGrid;

procedure TForm1.FormCreate(Sender: TObject);
var topPanel,
    botPanel: TPanel;
    data: TChartValueList;
begin
  topPanel:=TPanel.Create(Self);
  topPanel.Parent:=Self;
  topPanel.Align:=alTop;
  topPanel.Height:=Self.Height div 2;

  botPanel:=TPanel.Create(Self);
  botPanel.Parent:=Self;
  botPanel.Align:=alClient;

  Chart:=TChart.Create(Self);
  Chart.Parent:=topPanel;
  Chart.Align:=alClient;

  Grid:=TTeeGrid.Create(Self);
  Grid.Parent:=botPanel;
  Grid.Align:=alClient;

  Chart.View3D:=False;
  Chart.AddSeries(TBarSeries).FillSampleValues;

  data:=Chart[0].YValues;
  Grid.Data:=TVirtualData<TChartValueList>.Create(data);


  Chart.Legend.Shadow.Size:=8;
  Chart.Legend.Shadow.Color:=clRed;

  Grid.Header.Format.Brush.Gradient.Hide;
  Grid.Header.Format.Brush.Color:=clGreen;
end;

Code: Select all

procedure TFMXPainter.SetBrush(const ABrush: TBrush);
//...
  procedure PrepareGradient(const AGradient:FMXGradient);
  //...
  begin
    AGradient.Color:=Color0;
    AGradient.Color1:=Color1;
    //...

Code: Select all

procedure TFMXPainter.SetBrush(const ABrush: TBrush);
//...
  procedure PrepareGradient(const AGradient:FMXGradient);
  //...
    // Do not use AGradient Color0 and Color1. Instead, reset Points property.
    // When using a TChart and a TeeGrid together,
    // the chart canvas uses 3 point gradients, so it must be reset to 2:

    procedure ResetGradientPoints;
    var P : TGradientPoint;
    begin
      AGradient.Points.Clear;

      P:=TGradientPoint(AGradient.Points.Add);
      P.IntColor:=Color0;

      P:=TGradientPoint(AGradient.Points.Add);
      P.IntColor:=Color1;
      P.Offset:=1;
    end;

  begin
    ResetGradientPoints;
    //...