UNITS
CLASSES, INTERFACES, OBJECTS
TYPES
VARIABLES
CONSTANTS
FUNCTIONS, PROCEDURES
IDENTIFIERS

Class TMainWindow

Unit

UTestBezier

Declaration

type TMainWindow = class(TForm)

Description

Mainwindow of the test class

Fields

NameDescription
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

Procedure DrawPolygon;
Procedure FormCreate(Sender: TObject);
Procedure GeneratePolygon;
Procedure pbMainPaint(Sender: TObject);
Procedure tbtExactClick(Sender: TObject);
Procedure tbtSmootClick(Sender: TObject);

Description

Procedure DrawPolygon;

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