123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101 |
- //---------------------------------------------------------------------------
- #ifndef Unit1H
- #define Unit1H
- //---------------------------------------------------------------------------
- #include <System.Classes.hpp>
- #include <Vcl.Controls.hpp>
- #include <Vcl.StdCtrls.hpp>
- #include <Vcl.Forms.hpp>
- #include <Vcl.ExtCtrls.hpp>
- #include <Vcl.Imaging.jpeg.hpp>
- #include "GLBaseClasses.hpp"
- #include "GLCadencer.hpp"
- #include "GLCoordinates.hpp"
- #include "GLCrossPlatform.hpp"
- #include "GLCustomShader.hpp"
- #include "GLGeomObjects.hpp"
- #include "GLGraph.hpp"
- #include "GLMaterial.hpp"
- #include "GLObjects.hpp"
- #include "GLPolyhedron.hpp"
- #include "GLScene.hpp"
- #include "GLSLShader.hpp"
- #include "GLVectorFileObjects.hpp"
- #include "GLWin32Viewer.hpp"
- #include "GLFileTGA.hpp"
- #include "GLFileSMD.hpp"
- #include "GLFileMD2.hpp"
- #include "GLFile3DS.hpp"
- #include "DDSImage.hpp"
- #include "GLFileMS3D.hpp"
- #include "GLUtils.hpp"
- #include "GLBaseClasses.hpp"
- #include "GLSLBumpShader.hpp"
- //---------------------------------------------------------------------------
- class TForm1 : public TForm
- {
- __published: // IDE-managed Components
- TGLSceneViewer *Viewer;
- TPanel *Panel1;
- TCheckBox *LightMovingCheckBox;
- TCheckBox *RollPitchTurnCheckBox;
- TCheckBox *ShaderEnabledCheckBox;
- TCheckBox *MultiLightShaderCheckBox;
- TCheckBox *UseSpecularTextureCheckBox;
- TCheckBox *UseNormalTextureCheckBox;
- TCheckBox *ShowNotGLSceneObjectsCheckBox;
- TGLScene *Scene;
- TGLDummyCube *GUICube;
- TGLArrowLine *GLArrowLine1;
- TGLXYZGrid *GLXYZGrid1;
- TGLDummyCube *LightCube;
- TGLLightSource *Light;
- TGLSphere *GLSphere1;
- TGLDummyCube *LightCube2;
- TGLLightSource *Light2;
- TGLSphere *GLSphere2;
- TGLDummyCube *WorldCube;
- TGLActor *Sphere_little;
- TGLActor *Sphere_big;
- TGLActor *Teapot;
- TGLActor *Fighter;
- TGLCube *GLCube;
- TGLDodecahedron *GLDodecahedron;
- TGLSphere *GLSphere;
- TGLCamera *Camera;
- TGLCadencer *Cadencer;
- TTimer *Timer1;
- TGLMaterialLibrary *MaterialLibrary;
- TGLSLBumpShader *MyBumpShader;
- TGLMaterialLibrary *TrinityMatlib;
- void __fastcall FormCreate(TObject *Sender);
- void __fastcall ShaderEnabledCheckBoxClick(TObject *Sender);
- void __fastcall ShowNotGLSceneObjectsCheckBoxClick(TObject *Sender);
- void __fastcall MultiLightShaderCheckBoxClick(TObject *Sender);
- void __fastcall UseSpecularTextureCheckBoxClick(TObject *Sender);
- void __fastcall UseNormalTextureCheckBoxClick(TObject *Sender);
- void __fastcall CadencerProgress(TObject *Sender, const double deltaTime, const double newTime);
- void __fastcall ViewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
- int X, int Y);
- void __fastcall ViewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
- void __fastcall Timer1Timer(TObject *Sender);
- void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
- TPoint &MousePos, bool &Handled);
- void __fastcall LightCubeProgress(TObject *Sender, const double deltaTime, const double newTime);
- void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
- private: // User declarations
- int mx, my;
- TGLSLMLBumpShader *MultiLightShader;
- public: // User declarations
- __fastcall TForm1(TComponent* Owner);
- };
- //---------------------------------------------------------------------------
- extern PACKAGE TForm1 *Form1;
- //---------------------------------------------------------------------------
- #endif
|