/*
=======================================================================================================================
=======================================================================================================================
*/
void __fastcall TForm5::Edit2KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Key == 13)
{
Button2Click(Sender);
}
}
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
y0 = (y1 / 2.0) + (rand() % 91 - 45);
x0 += 4 ;
Form1->PaintBox1->Canvas->LineTo(x0, y0);
Form1->Panel2->Height = y0;
if(x0 > x1)
{
Button2Click(Sender);
}
}
void __fastcall TRegPac::Button1Click(TObject *Sender)
{
if(MaskEdit1->Text.IsEmpty()||Edit1->Text.IsEmpty()||Edit2->Text.IsEmpty()||Memo1->Text.IsEmpty()||MaskEdit2->Text.IsEmpty()){
ShowMessage("LLene todos los campos...");
}else{
if (fechNac->Date>Date().CurrentDate()-364.25)
{
ShowMessage("La fecha de nacimiento no puede ser menor a 1 año");
}else{
if(Masc->Checked){
sexo=true;
}else{
sexo=false;
}
nuevo.ingresar(MaskEdit1->Text, Edit1->Text, Edit2->Text, sexo, Memo1->Text, MaskEdit2->Text, fechNac->Date.DateString());
this->Close();
Button2Click(Sender);
}
}
}