00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #ifndef UFprincipalH
00014 #define UFprincipalH
00015
00016 #include <Classes.hpp>
00017 #include <Controls.hpp>
00018 #include <StdCtrls.hpp>
00019 #include <Forms.hpp>
00020 #include <Menus.hpp>
00021 #include <ComCtrls.hpp>
00022 #include <ToolWin.hpp>
00023 #include <ActnList.hpp>
00024 #include <ImgList.hpp>
00025
00026 #include "configuracion.h"
00027 #include "UFcomvent.h"
00028 #include "Plano\MPlano.h"
00029 #include "Plano\CNorte.h"
00030 #include "hiloesc.h"
00031 #include "hilolec.h"
00032 #include "hiloppal.h"
00033
00034 #include <ExtCtrls.hpp>
00035
00039 class TFormPrincipal : public TForm
00040 {
00041 __published:
00042 TMainMenu *MainMenu1;
00043 TMenuItem *Archivo1;
00044 TMenuItem *Salir1;
00045 TMenuItem *Herramientas1;
00046 TMenuItem *Comunicaciones1;
00047 TMenuItem *Configuracion1;
00048 TToolBar *ToolBar1;
00049 TActionList *ActionList1;
00050 TImageList *icons;
00051 TAction *Actconfigurar;
00052 TAction *ActComunicar;
00053 TAction *ActSalir;
00054 TToolButton *BotonConf;
00055 TToolButton *botonSalir;
00056 TToolButton *BotonCom;
00057 TToolButton *ToolButton4;
00058 TStatusBar *StatusBar1;
00059 TMenuItem *Ventana;
00060 TAction *ActVentana;
00061 TToolButton *BotonVent;
00062 TToolButton *BotonPlano;
00063 TToolButton *ToolButton2;
00064 TAction *ActSatelites;
00065 TAction *ActNorte;
00066 TMenuItem *SituarNorte1;
00067 TTimer *Timer1;
00068 TAction *ActPosicion;
00069 TMenuItem *Posion1;
00070 TMenuItem *Configuracion2;
00071 TMenuItem *ConfEstacion;
00072 TMenuItem *Fijarposicion1;
00073 TMenuItem *Obteneryfijarposcicion1;
00074 TAction *ActFijarpos;
00075 TAction *ActObtenerFijaPos;
00076 TMenuItem *Monitorizacin1;
00077 TMenuItem *MostrarSatelites1;
00078 TMenuItem *Log1;
00079 TMenuItem *Posave1;
00080 TAction *ActLog;
00081
00083 void __fastcall ActSalirExecute(TObject *Sender);
00085 void __fastcall ActconfigurarExecute(TObject *Sender);
00087 void __fastcall ActComunicarExecute(TObject *Sender);
00089 void __fastcall FormActivate(TObject *Sender);
00091 void __fastcall StatusBar1DrawPanel(TStatusBar *StatusBar,
00092 TStatusPanel *Panel, const TRect &Rect);
00094 void __fastcall ActVentanaExecute(TObject *Sender);
00096 void __fastcall ActSatelitesExecute(TObject *Sender);
00098 void __fastcall ActNorteExecute(TObject *Sender);
00100 void __fastcall Timer1Timer(TObject *Sender);
00102 void __fastcall ActPosicionExecute(TObject *Sender);
00104 void __fastcall ActObtenerFijaPosExecute(TObject *Sender);
00106 void __fastcall ActFijarposExecute(TObject *Sender);
00108 void __fastcall Log1Click(TObject *Sender);
00109
00110 private:
00112
00115 DCB dcb;
00117 bool primero;
00119 int flag;
00120 public:
00122
00124
00126
00128
00130
00132
00134
00135
00137 __fastcall TFormPrincipal(TComponent* Owner);
00139 bool Comunicaciones_Ok(HANDLE Manejador);
00141 bool Abre_puerto(DCB,AnsiString,bool);
00142 };
00143
00144 extern PACKAGE TFormPrincipal *FormPrincipal;
00145
00146 #endif