Class TDemo (unit Sample)

Inherits from

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

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;



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;