Steema Central

Code: Select all

      case FBLDsql1.FieldByNameAsInt64('VALUE') of
        0 : Chart1.Series[0].AddXY(FBLDsql1.FieldByNameAsDateTime('DATE'), FBLDsql1.FieldByNameAsInt64('FUEL'), '', clGreen);
        1 : Chart1.Series[0].AddXY(FBLDsql1.FieldByNameAsDateTime('DATE'), FBLDsql1.FieldByNameAsInt64('FUEL'), '', clYellow);
      end; 

Code: Select all

YourLineSeries.ColorEachLine:=true;
YourLineSeries.ColorEachPoint:=true;

Code: Select all

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AddValues(i: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var MaxPoints, ScrollPoints : Double;
begin
// Prepare chart for maximum speed:
  with Chart1 do
  begin
    ClipPoints := False;
    Title.Visible := False;
    Legend.Visible := False;
    LeftAxis.Axis.Width:=1;
    BottomAxis.Axis.Width:=1;
    BottomAxis.RoundFirstLabel := False;
    View3D := False;
  end;

  // Number of points we'll be displaying
  MaxPoints:=10000;
  // Number of points deleted when scrolling chart
  ScrollPoints := 5000;

  // Prepare series.
  // Disable AutoRepaint and X Order

  Chart1.AutoRepaint := False;

  // Set Ordering to none, to increment speed when adding points
  Series1.XValues.Order := loNone;
  Series2.XValues.Order := loNone;
  Series3.XValues.Order := loNone;
  Series4.XValues.Order := loNone;
  Series5.XValues.Order := loNone;
  Series6.XValues.Order := loNone;

  // Initialize axis scales
  // we're assuming left axis values are within [0,1000]
//  Chart1.LeftAxis.SetMinMax(0,10000);
//  Chart1.BottomAxis.SetMinMax(1,MaxPoints);

  // Speed tips:

  // When using only a single thread, disable locking:
  Chart1.Canvas.ReferenceCanvas.Pen.OwnerCriticalSection := nil;
  Series1.LinePen.OwnerCriticalSection := nil;
  Series2.LinePen.OwnerCriticalSection := nil;
  Series3.LinePen.OwnerCriticalSection := nil;
  Series4.LinePen.OwnerCriticalSection := nil;
  Series5.LinePen.OwnerCriticalSection := nil;
  Series6.LinePen.OwnerCriticalSection := nil;
end;

procedure TForm1.AddValues(i : Integer);
Var X,Y : Array of Double;   // TChartValues
    t   : Integer;
    Num : Integer;
begin
  { 1M points }
  Num:= 1000000;

  { allocate our custom arrays }
  SetLength(X,Num);
  SetLength(Y,Num);

  { fill data in our custom arrays }
  X[0]:=0;
  Y[0]:=Random(10000);
  for t:=1 to Num-1 do
  begin
    X[t]:=t;
    Y[t]:=Y[t-1]+Random(101)-50;
  end;

  { set our X array }
  With Chart1[i].XValues do
  begin
    Value:=TChartValues(X);  { <-- the array }
    Count:=Num;               { <-- number of points }
    Modified:=True;           { <-- recalculate min and max }
  end;

  { set our Y array }
  With Chart1[i].YValues do
  begin
    Value:=TChartValues(Y);
    Count:=Num;
    Modified:=True;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var i : Integer;
begin
  for i := 0 to 5 do
    AddValues(i);

  { Show data }
  Chart1.AutoRepaint := True;
  Series1.Repaint;
end;
end.