xy.pas

来自「Delphi Component - Chart Fx」· PAS 代码 · 共 45 行

unit xy;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ChartfxLib_TLB;

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   i,n: integer;
begin
    With ChartFX1 do begin
        n := NValues;
        OpenDataEx(COD_XVALUES, 2, n);
        For i := 0 To n-1 do
            XValueEx[0, i] := i * i;
        For i := 0 To n - 1 - 3 Do // Second series has 3 points less
            XValueEx[1, i] := i * i * 2;
        For i := i To n-1 do
            ValueEx[1, i] := CHART_HIDDEN;
        CloseData(COD_XVALUES Or COD_SMOOTH);
    End;
end;

end.