Лабораторная работа № 10

Самостоятельная работа № 2.

Атрибуты шрифта

Тема: Файлы, текстовые редакторы.

Цель: Научиться использовать компоненты.

Выработать навыки для создания простейших

компьютерных программ.

Вызвать интерес к изучению предмета.

Создайте приложение, в котором при активизации переключателей цвет надписи изменяется, а при выборе соответствующего флажка изменяются различные атрибуты шрифта. Пример действующего окна программы приведён на рис.1.

Рис.1

Рабочее окно

CheckBox1. – caption – подчёркнутый

CheckBox2. – caption – курсив

CheckBox3. – caption – жирный

Memo1. – color

RadioGroup1. – caption – Цвет шрифта

RadioButton1. – caption – чёрный

RadioButton2. – caption – красный

RadioButton3. – caption – синий

Компоненты

Код программы:

class TForm1 : public TForm

{

__published: // IDE-managed Components

TMemo *Memo1;

TRadioGroup *RadioGroup1;

TRadioButton *RadioButton1;

TRadioButton *RadioButton2;

TRadioButton *RadioButton3;

TCheckBox *CheckBox1;

TCheckBox *CheckBox2;

TCheckBox *CheckBox3;

void __fastcall RadioButton1Click(TObject *Sender);

void __fastcall RadioButton2Click(TObject *Sender);

void __fastcall RadioButton3Click(TObject *Sender);

void __fastcall CheckBox1Click(TObject *Sender);

void __fastcall CheckBox2Click(TObject *Sender);

void __fastcall CheckBox3Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

Memo1->Font->Color=clRed;

}

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

Memo1->Font->Color=clBlack;

}

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

Memo1->Font->Color=clBlue;

}

void __fastcall TForm1::CheckBox1Click(TObject *Sender)

{

if( CheckBox1->Checked )

Memo1->Font->Style = Memo1->Font->Style << fsUnderline;

else

Memo1->Font->Style = Memo1->Font->Style >> fsUnderline;

}

void __fastcall TForm1::CheckBox2Click(TObject *Sender)

{

if( CheckBox2->Checked )

Memo1->Font->Style = Memo1->Font->Style << fsItalic;

else

Memo1->Font->Style = Memo1->Font->Style >> fsItalic;

}

void __fastcall TForm1::CheckBox3Click(TObject *Sender)

{

if( CheckBox3->Checked )

Memo1->Font->Style = Memo1->Font->Style << fsBold;

else

Memo1->Font->Style = Memo1->Font->Style >> fsBold;

}