Class TMainForm (unit Unit1)

Inherits from

TForm

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;



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;