Fórum Cores no CHART #284204

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    SpeedButton1: TSpeedButton;
    Series1: TPieSeries;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin
  Chart1.Series[0].Clear;
  Chart1.Series[0].Add(1234,´Norte´,clRed);
  chart1.Series[0].Add(4567,´Oeste´,clBlue);
  Chart1.Series[0].Add(2345,´Sul´,clNavy);
  Chart1.Series[0].Add(3456,´Leste´,clLime);
end;

end.