123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- //---------------------------------------------------------------------------
- #ifndef Unit1H
- #define Unit1H
- //---------------------------------------------------------------------------
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <StdCtrls.hpp>
- #include <Forms.hpp>
- #include "GLCadencer.hpp"
- #include "GLObjects.hpp"
- #include "GLScene.hpp"
- #include "GLTexture.hpp"
- #include "GLWin32Viewer.hpp"
- #include <Dialogs.hpp>
- #include <ExtCtrls.hpp>
- #include "GLBaseClasses.hpp"
- #include "GLCoordinates.hpp"
- #include "GLCrossPlatform.hpp"
- #include "GLMaterial.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
|