//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MenuPpal.h"
#include "Herm.h"
#include "herm_insignias.h"
#include "ListInit.h"
#include "Etiquetas.h"
#include "ListVotantes.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TLanzadera *Lanzadera;
//---------------------------------------------------------------------------
__fastcall TLanzadera::TLanzadera(TComponent* Owner)
        : TForm(Owner)
{
 Image1->Picture->LoadFromFile( "logo.jpg" );
}
//---------------------------------------------------------------------------
void __fastcall TLanzadera::Hermanos1Click(TObject *Sender)
{
  TGestionHnos *Hnos;
  Visible = false;
  Hnos = new TGestionHnos(this);
  Hnos->ShowModal();
  Visible = true;
  delete Hnos;
}
//---------------------------------------------------------------------------
void __fastcall TLanzadera::Insignias1Click(TObject *Sender)
{
  TInsignias *Insignias;
  Visible = false;
  Insignias = new TInsignias(this);
  Insignias->ShowModal();
  Visible = true;
  delete Insignias;
}
//---------------------------------------------------------------------------
void __fastcall TLanzadera::Ahora1Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TLanzadera::CopiadeSeguridad1Click(TObject *Sender)
{
 ShowMessage( "Función no disponible en esta versión" );
}
//---------------------------------------------------------------------------
void __fastcall TLanzadera::Contents1Click(TObject *Sender)
{
 ShowMessage( "Función no disponible en esta versión" );
}
//---------------------------------------------------------------------------

void __fastcall TLanzadera::HowtoUseHelp1Click(TObject *Sender)
{
 ShowMessage( "Función no disponible en esta versión" );
}
//---------------------------------------------------------------------------


void __fastcall TLanzadera::About1Click(TObject *Sender)
{
 TAcercaDe *about;
 about = new TAcercaDe(this);
 about->ShowModal();
 delete about;
}
//---------------------------------------------------------------------------


void __fastcall TLanzadera::Etiquetas1Click(TObject *Sender)
{
  TQREtiquetas *print;
  print = new TQREtiquetas(this);
  print->Etiquetas->Preview();
  delete print;
}
//---------------------------------------------------------------------------





void __fastcall TLanzadera::Votantes1Click(TObject *Sender)
{
 TQRVotantes *Votantes;
 Votantes = new TQRVotantes(this);
 Votantes->QuickRep1->Preview();
 delete Votantes;
}
//---------------------------------------------------------------------------