Курсовая работа: Автоматизированная система учета абонентов библиотеки

}

//---------------------------------------------------------------------------

void __fastcall TForm2::TimesNewRoman1Click(TObject *Sender)

{

Form2->Font->Name="Times New Roman";

TimesNewRoman1->Checked=true;

ArialBlack1->Checked=false;

Cambria1->Checked=false;

Colibri1->Checked=false;

Monotypecorsiva1->Checked=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Monotypecorsiva1Click(TObject *Sender)

{

Form2->Font->Name="Monotype Corsiva";

TimesNewRoman1->Checked=false;

ArialBlack1->Checked=false;

Cambria1->Checked=false;

Colibri1->Checked=false;

Monotypecorsiva1->Checked=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Colibri1Click(TObject *Sender)

{

Form2->Font->Name="Colibri";

TimesNewRoman1->Checked=false;

ArialBlack1->Checked=false;

Cambria1->Checked=false;

Colibri1->Checked=true;