//--------------------------------------------------------------------------- #ifndef fFogCH #define fFogCH //--------------------------------------------------------------------------- #include #include #include #include #include "GLS.Cadencer.hpp" #include "GLS.Objects.hpp" #include "GLS.Scene.hpp" #include "GLS.Texture.hpp" #include "GLS.SceneViewer.hpp" #include #include #include "GLS.BaseClasses.hpp" #include "GLS.Coordinates.hpp" #include "GLS.Material.hpp" //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // published declarations TGLSceneViewer *GLSceneViewer1; TGLScene *GLScene1; TGLDummyCube *GLDummyCube1; TGLLightSource *GLLightSource1; TGLCamera *GLCamera1; TGLCadencer *GLCadencer1; TColorDialog *ColorDialog1; TGLMaterialLibrary *GLMaterialLibrary1; TPanel *Panel1; TCheckBox *CBFogEnable; TLabel *LFogStart; TEdit *EFogStart; TLabel *LFogEnd; TEdit *EFogEnd; TGroupBox *GBTexture; TCheckBox *CBTextureEnabled; TCheckBox *CBTextureIgnoreFog; TShape *SFogColor; TLabel *LFogColor; TCheckBox *CBApplyToBackground; TLabel *LFogDensity; TEdit *EFogDensity; TRadioGroup *RGFogDistance; TRadioGroup *RGFogMode; 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 CBFogEnableClick(TObject *Sender); void __fastcall EFogStartChange(TObject *Sender); void __fastcall SFogColorMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall RGFogModeClick(TObject *Sender); void __fastcall CBApplyToBackgroundClick(TObject *Sender); void __fastcall CBTextureEnabledClick(TObject *Sender); void __fastcall CBTextureIgnoreFogClick(TObject *Sender); void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled); private: // private declarations void ApplyFogSettings(void); int mx, my; public: // public declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif