Class TBezierForm (unit BeziersUnit)

Inherits from

TForm

***************************************************************************** This code illustrates the use of the Bezier support routines written by Clinton R. Johnson. // I felt it was about time that there were some examples on how to use some of the undocumented features of the graphics API. Its a shame that Borland declined implmenting these features, most of them are fairly straight forward, as can be seen here. // The end points of the curves, and the tension points positions are controlled by TSMPanel controls, I chose the TSMPanel components because they are easy to move without any extra coding. // This code is public domain, with the request that credit be given to the original author. // To get best effect from this sample, turn on "SHOW WINDOW CONTENTS WHILE DRAGGING" available in the plus from the control panel, and IE4.0 from the VIEW|Folder Options... menu of any folder (go to the View tab, and scroll down to the VISUAL SETTINGS section). // This program also requires the SMPANEL unit, available from www.undu.com. // WRITTEN IN DELPHI 3. // Written By Clinton R. Johnson, March, 1998

Constructors



Functions

procedure FormPaint(Sender: TObject);

Just finds the center of the control.

procedure P1Resize(Sender: TObject);


Properties

Events

Variables

P1 : TSMPanel;


P1a : TSMPanel;


P1b : TSMPanel;


P2 : TSMPanel;


P2a : TSMPanel;


P2b : TSMPanel;


P3 : TSMPanel;


P3a : TSMPanel;


P3b : TSMPanel;


P4 : TSMPanel;


P4a : TSMPanel;


P4b : TSMPanel;



Constructors


Functions


procedure FormPaint(Sender: TObject);

Just finds the center of the control.


procedure P1Resize(Sender: TObject);


Properties


Events


Variables


P1 : TSMPanel;


P1a : TSMPanel;


P1b : TSMPanel;


P2 : TSMPanel;


P2a : TSMPanel;


P2b : TSMPanel;


P3 : TSMPanel;


P3a : TSMPanel;


P3b : TSMPanel;


P4 : TSMPanel;


P4a : TSMPanel;


P4b : TSMPanel;