Class TForm1 (unit GLUnit)

Inherits from

TForm

Constructors



Functions

procedure GLPanel1GLDraw(Sender: TObject);


procedure GLPanel1GLInit(Sender: TObject);


procedure GLPanel1GLPrep(Sender: TObject);

Distance to far clipping plane

procedure SetProjection(Sender: TObject);

Add a light to the scene.

procedure Timer1Timer(Sender: TObject);

Draw a three-dimensional array of cubes.

procedure TrackBar1Change(Sender: TObject);


Properties

Events

Variables

GLPanel1 : TGLPanel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Timer1 : TTimer;


TrackBar1 : TTrackBar;


Angle : GLfloat;

Private declarations


Constructors


Functions


procedure GLPanel1GLDraw(Sender: TObject);


procedure GLPanel1GLInit(Sender: TObject);


procedure GLPanel1GLPrep(Sender: TObject);

Distance to far clipping plane


procedure SetProjection(Sender: TObject);

Add a light to the scene. //


procedure Timer1Timer(Sender: TObject);

Draw a three-dimensional array of cubes. //


procedure TrackBar1Change(Sender: TObject);


Properties


Events


Variables


GLPanel1 : TGLPanel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Timer1 : TTimer;


TrackBar1 : TTrackBar;


Angle : GLfloat;

Private declarations