GLScene/Demos/glslshaders/SimpleGLSL/fSimpleShaderC.h

#ifndef fSimpleShaderCH
#define fSimpleShaderCH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include "GLS.OpenGLAdapter.hpp"
#include "GLS.BitmapFont.hpp"
#include "GLS.Cadencer.hpp"
#include "GLS.GeomObjects.hpp"
#include "GLS.HUDObjects.hpp"
#include "GLS.Objects.hpp"
#include "GLS.Scene.hpp"
#include "GLS.Texture.hpp"
#include "GLSL.UserShader.hpp"
#include "GLS.VectorFileObjects.hpp"
#include "GLS.SceneViewer.hpp"
#include "GLS.WindowsFont.hpp"
#include "GLS.BaseClasses.hpp"
#include "GLS.Coordinates.hpp"

#include "GLS.Material.hpp"
#include "GLS.Context.hpp"

//---------------------------------------------------------------------------

#define MAXSHADERS 10

class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TGLSceneViewer *GLSceneViewer1;
        TGLScene *GLScene1;
        TGLDirectOpenGL *GLDOInitialize;
        TGLDummyCube *Scene;
        TGLCube *GLCube1;
        TGLSphere *GLSphere1;
        TGLCone *GLCone1;
        TGLFreeForm *GLFreeForm1;
        TGLDummyCube *DummyLight;
        TGLLightSource *Light;
        TGLHUDText *GLHUDText1;
        TGLCamera *Cam;
        TGLCadencer *GLCadencer1;
        TGLUserShader *GLUserShader1;
        TTimer *Timer1;
        TGLWindowsBitmapFont *GLWindowsBitmapFont1;
        TGLMaterialLibrary *MatLib;
        void __fastcall GLCadencer1Progress(TObject *Sender,
          const double deltaTime, const double newTime);
        void __fastcall GLUserShader1DoApply(TObject *Sender,
          TGLRenderContextInfo &rci);
        void __fastcall GLUserShader1DoUnApply(TObject *Sender, int Pass,
          TGLRenderContextInfo &rci, bool &Continue);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall GLSceneViewer1MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall GLSceneViewer1MouseMove(TObject *Sender,
          TShiftState Shift, int X, int Y);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall GLDOInitializeRender(TObject *Sender,
          TGLRenderContextInfo &rci);
	void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          TPoint &MousePos, bool &Handled);
private:	// User declarations
       bool ShaderActived;
       int mx,my;
public:		// User declarations
       TGLProgramHandle *GLSLProg[MAXSHADERS-1];
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif