unit1.pas

来自「delphi 最好的3D控件GLScene_Demos」· PAS 代码 · 共 80 行

unit Unit1;

interface

uses
  Classes, Graphics, Controls, Forms, GLScene, GLObjects, GLMisc, GLTexture,
  GLCadencer, StdCtrls, ComCtrls, GLWin32Viewer, GLTimeEventsMgr, ExtCtrls;

type
  TForm1 = class(TForm)
    GLSceneViewer1: TGLSceneViewer;
    GLScene1: TGLScene;
    Camera1: TGLCamera;
    Cube1: TGLCube;
    Timer1: TTimer;
    GLCadencer1: TGLCadencer;
    GLTimeEventsMGR1: TGLTimeEventsMGR;
    Cube2: TGLCube;
    DummyCube1: TGLDummyCube;
    Cube3: TGLCube;
    procedure Timer1Timer(Sender: TObject);
    procedure GLTimeEventsMGR1Events0Event(event: TTimeEvent);
    procedure GLTimeEventsMGR1Events1Event(event: TTimeEvent);
    procedure GLTimeEventsMGR1Events2Event(event: TTimeEvent);
    procedure GLTimeEventsMGR1Events3Event(event: TTimeEvent);
    procedure GLTimeEventsMGR1Events4Event(event: TTimeEvent);
    procedure GLTimeEventsMGR1Events5Event(event: TTimeEvent);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses SysUtils;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
	Caption:=Format('TIME: %.4f', [GLCadencer1.CurrentTime]);
	GLSceneViewer1.ResetPerformanceMonitor;
end;

procedure TForm1.GLTimeEventsMGR1Events0Event(event: TTimeEvent);
begin
   cube1.RollAngle:=event.ElapsedTime*180/3;
end;

procedure TForm1.GLTimeEventsMGR1Events1Event(event: TTimeEvent);
begin
   cube2.RollAngle:=event.TickCount/499*180;
end;

procedure TForm1.GLTimeEventsMGR1Events2Event(event: TTimeEvent);
begin
   cube3.RollAngle:=90;
end;

procedure TForm1.GLTimeEventsMGR1Events3Event(event: TTimeEvent);
begin
   cube1.RollAngle:=event.TickCount/4*90;
end;

procedure TForm1.GLTimeEventsMGR1Events4Event(event: TTimeEvent);
begin
   cube2.RollAngle:=event.TickCount/20*90;
end;

procedure TForm1.GLTimeEventsMGR1Events5Event(event: TTimeEvent);
begin
   cube3.RollAngle:=event.TickCount/200*90;
end;

end.