| Class TMainForm (unit Unit1) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);| Properties |
| Events |
| Variables |
Timer1 : TTimer;
Angle : Integer;
RC : HGLRC;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);initialize OpenGL and create a context for rendering
procedure FormKeyPress(Sender: TObject; var Key: Char);release control of context
procedure FormPaint(Sender: TObject);destroy the rendering context
procedure FormResize(Sender: TObject);
procedure Timer1Timer(Sender: TObject);cause redraw
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);do some animation
| Properties |
| Events |
| Variables |
Timer1 : TTimer;
Angle : Integer;
RC : HGLRC;