//--------------------------------------------------------------------------- #ifndef hlavniH #define hlavniH //--------------------------------------------------------------------------- #include #include #include #include #include #include #include "planety.h" #include #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TTimer *Timer1; TOpenDialog *OpenDialog1; TPanel *Panel1; TLabel *Label2; TLabel *Label3; TLabel *Label4; TLabel *Label5; TLabel *Label6; TLabel *Label7; TButton *Button3; TButton *Button4; TButton *Button5; TButton *Button6; TButton *Button7; TButton *Button8; TButton *Button9; TButton *Button10; TButton *Button11; TButton *Button12; TButton *Button13; TButton *Button14; TButton *Button15; TButton *Button16; TPaintBox *Image1; TImageList *ilPlanety; TGroupBox *gbVolbyZobr; TRadioButton *rbCary; TRadioButton *rbTecky; TRadioButton *rbObrazky; TLabel *lZobrPlaneta; TMemo *mAuthors; void __fastcall FormCreate(TObject *Sender); void __fastcall FormKeyPress(TObject *Sender, char &Key); void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift); void __fastcall Timer1Timer(TObject *Sender); void __fastcall Button3Click(TObject *Sender); void __fastcall Button4Click(TObject *Sender); void __fastcall Button6Click(TObject *Sender); void __fastcall Button5Click(TObject *Sender); void __fastcall Button8Click(TObject *Sender); void __fastcall Button7Click(TObject *Sender); void __fastcall Button10Click(TObject *Sender); void __fastcall Button9Click(TObject *Sender); void __fastcall Button12Click(TObject *Sender); void __fastcall Button11Click(TObject *Sender); void __fastcall Button15Click(TObject *Sender); void __fastcall Button14Click(TObject *Sender); void __fastcall Button13Click(TObject *Sender); void __fastcall Button16Click(TObject *Sender); void __fastcall FormResize(TObject *Sender); void __fastcall Image1Paint(TObject *Sender); void __fastcall rbCaryClick(TObject *Sender); void __fastcall rbTeckyClick(TObject *Sender); void __fastcall rbObrazkyClick(TObject *Sender); private: // User declarations void __fastcall init(); public: // User declarations __fastcall TForm1(TComponent* Owner); }; // Moje mile planetky struct telo tela[19]; long double uhela,uhelb,uhelc,zoom=1000; Graphics::TBitmap *FBuffer; //Framebuffer typedef enum { CARY, TECKY, OBRAZKY } eZobr; eZobr Zobr; char* const JmPlanet[]={ "Pocatek soust. sour.", "Slunce", "Merkur", "Venuse", "Zeme", "Mars", "Jupiter", "Saturn", "Uran", "Neptun", "Pluto" }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif