"") p> ProgressBar1-> StepIt ();
if (ProgressBar1-> Position == 80)
{Timer1-> Enabled = false;
ProgressBar1-> Visible = false;}
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: N18Click (TObject * Sender)
{
Form8 = new TForm8 (Application);
Form8-> Show ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: FormCreate (TObject * Sender)
{
GroupBox1-> Visible = false;
ProgressBar1-> Visible = false;
Table1-> FilterOptions>> foNoPartialCompare;
Table1-> FilterOptions <
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: N19Click (TObject * Sender)
{
GroupBox1-> Visible = false;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: N20Click (TObject * Sender)
{
Panel1-> Visible = false;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: N8Click (TObject * Sender)
{
Form6 = new TForm6 (Application);
Form6-> Show ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: N1Click (TObject * Sender)
{
GroupBox1-> Visible = true;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: CheckBox1Click (TObject * Sender)
{
if (! CheckBox1-> Checked)
Table1-> Filtered = false;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm4 :: Edit2Change (TObject * Sender)
{float m;
String StrFiltr;
if (CheckBox1-> Checked)
{Table1-> Filtered = false;
Table1-> Refresh ();
StrFiltr = Edit2-> Text + "*";
if (ListBox1-> Items-> Strings [ListBox1-> ItemIndex] == "FIO")
{Table1-> Filter = "FIO = '" + StrFiltr + "'";}
else
{if (ListBox1-> Items-> Strings [ListBox1-> ItemIndex] == "God")
Table1-> Filter = "God = '" + FloatToStr (m) + "'";
else {If (ListBox1-> Items-> Strings [ListBox1-> ItemIndex] == "Pol")
Table1-> Filter = "Pol = '" + StrFiltr + "'";
else {If (ListBox1-> Items-> Strings [ListBox1-> ItemIndex] == "Spec")
Table1-> Filter = "Spec = '" + StrFiltr + "'";
else
Table1-> Filter = "Group = '" + StrFiltr + "'";}}}}
{
Table1-> Filtered = true;}
}
// -----------------------------------...
