00001
00007
00008
00009 #ifndef MDIGradientH
00010 #define MDIGradientH
00011
00012 #include <Classes.hpp>
00013 #include <Controls.hpp>
00014 #include <StdCtrls.hpp>
00015 #include <Forms.hpp>
00016 #include <ComCtrls.hpp>
00017 #include <Menus.hpp>
00018 #include <Dialogs.hpp>
00019 #include <Printers.hpp>
00020 #include <Clipbrd.hpp>
00021 #include <ExtCtrls.hpp>
00022 #include <ActnCtrls.hpp>
00023 #include <ActnMan.hpp>
00024 #include <CustomizeDlg.hpp>
00025 #include <ToolWin.hpp>
00026 #include <gl\gl.h>
00027 #include <gl\glu.h>
00028
00029 class TGradientForm : public TForm
00030 {
00031 __published:
00032 TPanel *Hauptpanel;
00033 TBevel *Bevel;
00034 TPanel *tPanel;
00035 TTrackBar *TrackBar;
00036 TGroupBox *GroupBox;
00037 TLabel *lpos;
00038 TLabel *lslice;
00039 TRadioButton *RadioButton1;
00040 TRadioButton *RadioButton2;
00041 TRadioButton *RadioButton3;
00042 void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
00043 void __fastcall FormCreate(TObject *Sender);
00044 void __fastcall FormResize(TObject *Sender);
00045 void __fastcall FormPaint(TObject *Sender);
00046 void __fastcall FormActivate(TObject *Sender);
00047 void __fastcall TrackBarChange(TObject *Sender);
00048 void __fastcall RadioButton1Click(TObject *Sender);
00049 void __fastcall RadioButton2Click(TObject *Sender);
00050 void __fastcall RadioButton3Click(TObject *Sender);
00051 private:
00052 HDC hdc;
00053 HGLRC hrc;
00054 int PixelFormat;
00055 GLfloat w, h, wh;
00056 int pagesize;
00057 void __fastcall PaintGL();
00058 void __fastcall PrepareGLWindow();
00059 public:
00060 __fastcall TGradientForm(TComponent* Owner);
00061 void __fastcall SetPixelFormatDescriptor();
00062 };
00063
00064 extern PACKAGE TGradientForm *GradientForm;
00065
00066 #endif
