Class TMainWindow
Unit
UTestBezier
Declaration
type TMainWindow = class(TForm)
Description
Mainwindow of the test class Fields
| Name | Description |
| cbClosed |
Close polygons |
| pbMain |
Paintbox for the viewport. |
| rbCircle1 |
Handle circle as mode rectangle |
| rbCircle2 |
Handle circle as mode rhombus |
| rbEllipse |
Handle Ellipse |
| rbFreestyle |
Draw freestyle |
| sbMain |
Scrollbox for viewport. |
| tbCommand |
Command Bar |
| tbtExact |
Button to create objects in exact mode. |
| tbtSmoot |
Button to create objects in smooth mode. |
| tbtSplit1 |
1. Button splitter |
| tbtSplit2 |
2. Button splitter |
Methods
Overview
Description
Create a image of the modell.
Procedure FormCreate(Sender: TObject); |
Initialize something
Procedure GeneratePolygon; |
Create some ways to generate the polygon.
Procedure pbMainPaint(Sender: TObject); |
Handle the paint and redraw event
Procedure tbtExactClick(Sender: TObject); |
Create the "exact" beziers
Procedure tbtSmootClick(Sender: TObject); |
Create the "smooth" beziers
Properties
None.
Generated by pasdoc 0.6.20 on Mon 18 Feb 2002 20:55:35