>} __fastcall TForm1 :: CheckBox1MouseMove (TObject * Sender, Shift, int X, int Y)
{(CheckBox1-> Checked == false) -> Font-> Color = clWindowText;
}
{(CheckBox3-> Checked == false) -> Font-> Color = clWindowText;
}
{(CheckBox4-> Checked == false) -> Font-> Color = clWindowText;
}
{(CheckBox2-> Checked == false) -> Font-> Color = clWindowText;
}
{-> Font-> Color = clGreen;
}
{-> Font-> Color = clGreen;
}
// ---------------------------------------- -----------------------------------
// закриття форми
// якщо були видалені користувачі, то видаляємо результати їхнього тестування
void __ fastcall TForm1 :: FormClose (TObject * Sender, TCloseAction & Action)
{* QSel = new * From Otchet ");> Open ();> First (); (! QSel-> Eof)
{* QDel = new * From Users where User_ID =
} QSel; -> Close ();
}
{-> Hide (); -> Show ();
}
// ---------------------------------------- -----------------------------------
// перший таймер__fastcall TForm1 :: Timer1Timer (TObject * Sender)
{-> Enabled = false; -> Angles-> EndAngle = 360; (! QVopros-> Eof)
SQL-> Clear ();> SQL-> Add ("Select * from Otvet where Parent_id =
{> Prior ();
}
}
{("Тест закінчено!");
// Висновок форми з результатами-> Hide ();
Form3-> Show (); -> QOtchet-> Open ();
if (ball <10)// якщо тест не пройдений
{-> Label3-> Font-> Color = clRed; -> Label4-> Font-> Color = clRed; -> Label7-> Font-> Color = НЕ не пройдений! "; -> Label4-> Caption =" Набрано "+ FormatFloat (" #. # ", ball) +" балів "; -> Label7-> Caption = DateToStr ( Date ());
}// пройдено
{-> Label3-> Font-> Color = clGreen; -> Label4-> ...
