00001
00002
00003 #ifndef MDICuberilleH
00004 #define MDICuberilleH
00005
00006 #include <Classes.hpp>
00007 #include <Controls.hpp>
00008 #include <StdCtrls.hpp>
00009 #include <Forms.hpp>
00010 #include <ComCtrls.hpp>
00011 #include <Menus.hpp>
00012 #include <Dialogs.hpp>
00013 #include <Printers.hpp>
00014 #include <Clipbrd.hpp>
00015 #include <ExtCtrls.hpp>
00016 #include <ActnCtrls.hpp>
00017 #include <ActnMan.hpp>
00018 #include <CustomizeDlg.hpp>
00019 #include <ToolWin.hpp>
00020 #include <gl\gl.h>
00021 #include <gl\glu.h>
00022
00023 class TCuberilleForm : public TForm
00024 {
00025 __published:
00026 TPanel *Hauptpanel;
00027 TBevel *Bevel;
00028 TGroupBox *GroupBox;
00029 void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
00030 void __fastcall FormCreate(TObject *Sender);
00031 void __fastcall FormResize(TObject *Sender);
00032 void __fastcall FormPaint(TObject *Sender);
00033 void __fastcall FormActivate(TObject *Sender);
00034 private:
00035 HDC hdc;
00036 HGLRC hrc;
00037 int PixelFormat;
00038 GLfloat w, h, wh;
00039 void __fastcall PaintGL();
00040 void __fastcall PrepareGLWindow();
00041 public:
00042 __fastcall TCuberilleForm(TComponent* Owner);
00043 void __fastcall SetPixelFormatDescriptor();
00044 };
00045
00046 extern PACKAGE TCuberilleForm *CuberilleForm;
00047
00048 #endif