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
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
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
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
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