Class TForm1 (unit Graph)

Inherits from

TForm

!!!! I wanted you to see this. put a bracket at the beginning of this line to compile! this demo program is starting to get real messy - there's too many features to show in one program. But I'm too lazy to do better. While you're looking at this, checkout the event method on the add button: there several variants for the kind of data to add

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

smoothing value

procedure Button3Click(Sender: TObject);

delete any points with x value = 2 from series 1

procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure CheckBox4Click(Sender: TObject);


procedure CheckBox5Click(Sender: TObject);


procedure CheckBox6Click(Sender: TObject);


procedure CheckBox7Click(Sender: TObject);


procedure CheckBox8Click(Sender: TObject);


procedure ComboBox1Change(Sender: TObject);

check that series has been defined

procedure ComboBox2Change(Sender: TObject);

have to check this or loops to override

procedure exmaxChange(Sender: TObject);

have to check this or loops to override

procedure exminChange(Sender: TObject);


procedure eymaxChange(Sender: TObject);

have to check this or loops to override

procedure eyminChange(Sender: TObject);

have to check this or loops to override

procedure FormCreate(Sender: TObject);

txyGraph demo *) (* 1.

procedure SpinEdit1Change(Sender: TObject);

xygraph1.

procedure xygraph1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

mouse procedures *) { Use mouse to display the nearest point and other information at the bottom of the screen.

procedure xygraph1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

get (xs,ys) the values where the mouse is.

procedure xygraph1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure xygraph1PaintEnd(Sender: TObject; Canvas:TCanvas);


procedure xygraph1ReScale(Sender: TObject);

check that series has been defined

Properties

Events

Variables

BitBtn1 : TBitBtn;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button5 : TButton;


Button7 : TButton;


Button8 : TButton;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


CheckBox4 : TCheckBox;


CheckBox5 : TCheckBox;


CheckBox6 : TCheckBox;


CheckBox7 : TCheckBox;


CheckBox8 : TCheckBox;


ComboBox1 : TComboBox;


ComboBox2 : TComboBox;


Edit1 : TEdit;


Edit2 : TEdit;


Edit9 : TEdit;


exmax : TEdit;


exmin : TEdit;


eymax : TEdit;


eymin : TEdit;


Histogram1 : THistogram;


Histogram2 : THistogram;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


sd : TSaveDialog;


SpinEdit1 : TSpinEdit;


xygraph1 : TxyGraph;


xyGraph2 : TxyGraph;


initialised : boolean;

Public declarations

mousedrag : boolean;

Private declarations


Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);

smoothing value


procedure Button3Click(Sender: TObject);

delete any points with x value = 2 from series 1


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure CheckBox2Click(Sender: TObject);


procedure CheckBox3Click(Sender: TObject);


procedure CheckBox4Click(Sender: TObject);


procedure CheckBox5Click(Sender: TObject);


procedure CheckBox6Click(Sender: TObject);


procedure CheckBox7Click(Sender: TObject);


procedure CheckBox8Click(Sender: TObject);


procedure ComboBox1Change(Sender: TObject);

check that series has been defined


procedure ComboBox2Change(Sender: TObject);

have to check this or loops to override


procedure exmaxChange(Sender: TObject);

have to check this or loops to override


procedure exminChange(Sender: TObject);


procedure eymaxChange(Sender: TObject);

have to check this or loops to override


procedure eyminChange(Sender: TObject);

have to check this or loops to override


procedure FormCreate(Sender: TObject);

txyGraph demo *) (* 1. Adding a data series


procedure SpinEdit1Change(Sender: TObject);

xygraph1.clearall;


procedure xygraph1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

mouse procedures *) { Use mouse to display the nearest point and other information at the bottom of the screen. shift left will cause dragging


procedure xygraph1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

get (xs,ys) the values where the mouse is. get (xp,yp) the nearest point, where t is the index of the point. r is whether a point was found, which is the same thing as whether the mouse is inside the plotting area


procedure xygraph1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure xygraph1PaintEnd(Sender: TObject; Canvas:TCanvas);


procedure xygraph1ReScale(Sender: TObject);

check that series has been defined


Properties


Events


Variables


BitBtn1 : TBitBtn;


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button5 : TButton;


Button7 : TButton;


Button8 : TButton;


CheckBox2 : TCheckBox;


CheckBox3 : TCheckBox;


CheckBox4 : TCheckBox;


CheckBox5 : TCheckBox;


CheckBox6 : TCheckBox;


CheckBox7 : TCheckBox;


CheckBox8 : TCheckBox;


ComboBox1 : TComboBox;


ComboBox2 : TComboBox;


Edit1 : TEdit;


Edit2 : TEdit;


Edit9 : TEdit;


exmax : TEdit;


exmin : TEdit;


eymax : TEdit;


eymin : TEdit;


Histogram1 : THistogram;


Histogram2 : THistogram;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


sd : TSaveDialog;


SpinEdit1 : TSpinEdit;


xygraph1 : TxyGraph;


xyGraph2 : TxyGraph;


initialised : boolean;

Public declarations


mousedrag : boolean;

Private declarations