| Class TDemo (unit Sample) |
TForm
Don't forget to add Util1 and Util2
| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ObjGrapheur1MarkerMove(Sender: TObject;
mMarker: TObjMarker; mGraphe: TObjGraphe; X, Y, dX, dY, Slop,
X0, Y0: Double);
procedure ObjGrapheur2Point(Sender: TObject; mPoint: TObjPoint;
mGraphe: TObjGraphe; mCourbe: TObjCourbe; Numero: Integer);| Properties |
| Events |
| Variables |
Lab1 : TLabel;
Lab2 : TLabel;
Lab4 : TLabel;
Lab6 : TLabel;
Label1 : TLabel;
Label2 : TLabel;
ObjGrapheur1 : TObjGrapheur;
ObjGrapheur2 : TObjGrapheur;
ObjGrapheur3 : TObjGrapheur;
ObjGrapheur4 : TObjGrapheur;
ObjGrapheur5 : TObjGrapheur;
ObjGrapheur6 : TObjGrapheur;
XMarker : TLabel;
XPoint : TLabel;
Graph1 : TObjGraphe;
Graph2 : TObjGraphe;
Plot1 : TObjCourbe;
Plot2 : TObjCourbe;| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ObjGrapheur1MarkerMove(Sender: TObject;
mMarker: TObjMarker; mGraphe: TObjGraphe; X, Y, dX, dY, Slop,
X0, Y0: Double);You can use the new method GetGraphe
procedure ObjGrapheur2Point(Sender: TObject; mPoint: TObjPoint;
mGraphe: TObjGraphe; mCourbe: TObjCourbe; Numero: Integer);| Properties |
| Events |
| Variables |
Lab1 : TLabel;
Lab2 : TLabel;
Lab4 : TLabel;
Lab6 : TLabel;
Label1 : TLabel;
Label2 : TLabel;
ObjGrapheur1 : TObjGrapheur;
ObjGrapheur2 : TObjGrapheur;
ObjGrapheur3 : TObjGrapheur;
ObjGrapheur4 : TObjGrapheur;
ObjGrapheur5 : TObjGrapheur;
ObjGrapheur6 : TObjGrapheur;
XMarker : TLabel;
XPoint : TLabel;
Graph1 : TObjGraphe;
Graph2 : TObjGraphe;
Plot1 : TObjCourbe;
Plot2 : TObjCourbe;