00001
00002 #ifndef MainH
00003 #define MainH
00004
00005 #include <Classes.hpp>
00006 #include <Controls.hpp>
00007 #include <StdCtrls.hpp>
00008 #include <Forms.hpp>
00009 #include <Menus.hpp>
00010 #include <ExtCtrls.hpp>
00011 #include <Dialogs.hpp>
00012
00013
00017 class TForm1 : public TForm
00018 {
00019 __published:
00020 TMainMenu *MainMenu1;
00021 TMenuItem *Konec1;
00022 TButton *next;
00023 TButton *prev;
00024 TLabel *pocciar;
00025 TButton *spusti;
00026 TLabel *generacia;
00027 TLabel *Label7;
00028 TLabel *lepsie;
00029 TSaveDialog *SaveDialog1;
00030 TOpenDialog *OpenDialog1;
00031 TMenuItem *Stolicka1;
00032 TMenuItem *Uloz1;
00033 TMenuItem *Otvor1;
00034 TPanel *Panel1;
00035 TButton *zaciatok;
00036 TMenuItem *Nastavenia1;
00037 TLabel *Label9;
00038 TMenuItem *Nastavenia2;
00039 TMenuItem *Podrobnosti1;
00040 TMenuItem *Populacia1;
00041 TMenuItem *Novapopulacia2;
00042 TMenuItem *Nastavenie1;
00043 TTimer *Timer1;
00044 TMenuItem *Podrobnosti2;
00045 TButton *zoomplus;
00046 TButton *zoomminus;
00047 TLabel *Label1;
00048 TLabel *fitness;
00049 TEdit *Edit1;
00050 TLabel *Label2;
00051 TButton *rotujplus;
00052 TButton *rotujminus;
00053 TButton *Button1;
00054 void __fastcall FormResize(TObject *Sender);
00055 void __fastcall FormDestroy(TObject *Sender);
00056 void __fastcall FormCreate(TObject *Sender);
00057 void __fastcall Konec1Click(TObject *Sender);
00058 void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
00059 void __fastcall nextClick(TObject *Sender);
00060 void __fastcall prevClick(TObject *Sender);
00061 void __fastcall nieco();
00062 void __fastcall spustiClick(TObject *Sender);
00063 void __fastcall zobraz_info();
00064 void __fastcall Uloz1Click(TObject *Sender);
00065 void __fastcall Otvor1Click(TObject *Sender);
00066 void __fastcall zaciatokClick(TObject *Sender);
00067 void __fastcall Nastavenia2Click(TObject *Sender);
00068 void __fastcall Podrobnosti1Click(TObject *Sender);
00069 void __fastcall Novapopulacia2Click(TObject *Sender);
00070 void __fastcall Nastavenie1Click(TObject *Sender);
00071 void __fastcall Timer1Timer(TObject *Sender);
00072 void __fastcall Podrobnosti2Click(TObject *Sender);
00073 void __fastcall zoomplusClick(TObject *Sender);
00074 void __fastcall zoomminusClick(TObject *Sender);
00075 void __fastcall rotujplusClick(TObject *Sender);
00076 void __fastcall rotujminusClick(TObject *Sender);
00077 void __fastcall Button1Click(TObject *Sender);
00078
00079
00080 public:
00081 HGLRC hRC;
00082 HDC hDC;
00083 public:
00088 __fastcall TForm1(TComponent* Owner);
00089
00094 __fastcall ~TForm1();
00095
00099 void TForm1::DrawScene(void);
00100
00104 void __fastcall TForm1::IdleLoop(TObject* Sender, bool &Done);
00105
00109 void SetPixelFormatDescriptor();
00113 void InitGL();
00114
00118 int bitmapLoad(int texture, const char *filename);
00119 };
00120
00121 extern PACKAGE TForm1 *Form1;
00122 extern double R,G, B;
00123
00124 #endif
