| Class TForm1 (unit GLUnit) |
TForm
| Constructors |
| Functions |
procedure GLPanel1GLDraw(Sender: TObject);
procedure GLPanel1GLInit(Sender: TObject);
procedure GLPanel1GLPrep(Sender: TObject);
procedure SetProjection(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
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;| 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