107 lines
2.7 KiB
C++
107 lines
2.7 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#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;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|