Show Unit1.pas syntax highlighted
//a Demo with absolutely no code :)
unit Unit1;
interface
{$I GLScene.inc}
uses
//VCL
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
//GLScene
GLScene, GLObjects, GLMisc, GLWin32Viewer, GLCadencer,
//Strange components
GLSimpleNavigation {$IFDEF STRANGE_INIFILE_SUPPORT}, StrangeIniObjects{$ENDIF};
type
TForm1 = class(TForm)
GLScene1: TGLScene;
GLSceneViewer1: TGLSceneViewer;
GLCamera1: TGLCamera;
GLCadencer1: TGLCadencer;
GLCube1: TGLCube;
GLLightSource1: TGLLightSource;
GLSimpleNavigation1: TGLSimpleNavigation;
procedure GLCadencer1Progress(Sender: TObject; const deltaTime,
newTime: Double);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.GLCadencer1Progress(Sender: TObject; const deltaTime,
newTime: Double);
begin
GLSceneViewer1.Invalidate;
end;
end.
See more files for this project here