CPP_Builder/Herm-Win
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 10/01/2001

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:25:13 +02:00
commit ef9e12b1db
53 changed files with 2444 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
MenuPpal.cpp Normal file
View File

@ -0,0 +1,106 @@
//---------------------------------------------------------------------------
#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<EFBFBD>n no disponible en esta versi<73>n" );
}
//---------------------------------------------------------------------------
void __fastcall TLanzadera::Contents1Click(TObject *Sender)
{
ShowMessage( "Funci<EFBFBD>n no disponible en esta versi<73>n" );
}
//---------------------------------------------------------------------------
void __fastcall TLanzadera::HowtoUseHelp1Click(TObject *Sender)
{
ShowMessage( "Funci<EFBFBD>n no disponible en esta versi<73>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;
}
//---------------------------------------------------------------------------