//--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include "GLS.BaseClasses.hpp" #include "GLS.Cadencer.hpp" #include "GLS.Coordinates.hpp" #include "GLS.Graph.hpp" #include "GLS.Objects.hpp" #include "GLS.Scene.hpp" #include "GLS.SceneViewer.hpp" #include #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TGLSceneViewer *Viewer; TPanel *Panel2; TLabel *Label5; TLabel *Label3; TLabel *Label4; TLabel *Label1; TLabel *Label7; TCheckBox *CheckBox06; TCheckBox *CheckBox04; TCheckBox *CheckBox05; TCheckBox *CheckBox07; TEdit *Edit1; TEdit *Edit2; TEdit *Edit3; TUpDown *UpDown1; TUpDown *UpDown2; TUpDown *UpDown3; TEdit *Edit4; TEdit *Edit5; TEdit *Edit6; TUpDown *UpDown4; TUpDown *UpDown5; TUpDown *UpDown6; TEdit *Edit7; TEdit *Edit8; TEdit *Edit9; TUpDown *UpDown7; TUpDown *UpDown8; TUpDown *UpDown9; TEdit *Edit10; TUpDown *UpDown10; TButton *Button3; TButton *Button4; TGLScene *GLScene; TGLDummyCube *DCCamTarget; TGLLightSource *GLLightSource1; TGLLightSource *GLLightSource2; TGLCube *GLCube1; TGLDummyCube *DCCube1; TGLSphere *GLSphere1; TGLSphere *GLSphere2; TGLXYZGrid *GLXYZGrid1; TGLLines *GLLines1; TGLLines *GLLines3; TGLCamera *GLCamera1; TGLCadencer *GLCadencer; void __fastcall Button4Click(TObject *Sender); void __fastcall FormCreate(TObject *Sender); void __fastcall CheckBox04Click(TObject *Sender); void __fastcall Edit1Change(TObject *Sender); void __fastcall Button3Click(TObject *Sender); void __fastcall ViewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall GLCadencerProgress(TObject *Sender, const double deltaTime, const double newTime); void __fastcall ViewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled); private: // User declarations int mdx, mdy; TAffineVector intersPoint, ResNormal, BoxScale, SpherePos; Gls::Vectorgeometry::TMatrix BoxMatrix; float SphereRadius; public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif