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