| Class TBezierForm (unit BeziersUnit) |
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);
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;