void __fastcall TFormClasificacion::b_borrar_equipo(TObject *Sender)
{
TForm *x=new TFormBorrarEquipo(this,t);
x->ShowModal();
delete x;
MostrarClasificacion();
}
void __fastcall TFormClasificacion::b_anyadir_partido(TObject *Sender)
{
TForm *x=new TFormAnyadirPartido(this,t);
x->ShowModal();
delete x;
MostrarClasificacion();
}
void __fastcall TFormClasificacion::Abrirtorneo1Click(TObject *Sender)
{
if (DlgAbrirTorneo->Execute()){
torneo_abrir(t,DlgAbrirTorneo->FileName);
MostrarClasificacion();
}
}
void __fastcall TFormClasificacion::b_listado_partidos(TObject *Sender)
{
TForm *x=new TFormListadoPartidos(this,t);
x->ShowModal();
delete x;
MostrarClasificacion();
}
void __fastcall TFormClasificacion::ButtonAnyadirEquipoClick(
TObject *Sender)
{
TForm *x = new TFormAnyadirEquipo(this,t);
x->ShowModal();
delete x;
MostrarClasificacion();
}
void __fastcall TFormClasificacion::ButtonBorrarPartidoClick(
TObject *Sender)
{
TForm *x = new TFormBorrarPartido(this,t);
x->ShowModal();
delete x;
MostrarClasificacion();
}
void __fastcall TFormClasificacion::Nuevotorneo1Click(TObject *Sender)
{
if (MessageDlg("Va a comenzar un torneo nuevo. Los cambios no guardados se perderán. ¿Desea continuar?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
{
torneo_limpiar(t);
torneo_inicializar(t);
MostrarClasificacion();
}
}
void __fastcall TFormClasificacion::crear_clasificacion(TObject *Sender)
{
torneo_inicializar(t);
MostrarClasificacion();
}
void __fastcall TFormClasificacion::ButtonLimpiarClick(TObject *Sender)
{
torneo_inicializar(t);
MostrarClasificacion();
}
