Turbo Delphi 03

1. Программная смена цвета шрифта и цвета фона надписи.
1) Создать новый проект.
2) Задайте свойство Caption для формы. Также установите ее размеры: Width = 270, Height = 300.
3) Разместите на форме надписи, для этого на форме последовательно разместите две надписи компонента Label (вкладка Standard). Задайте надписям заголовки (свойство Caption): Label1 – «Подберите сочетания цветов текста и фона», Label2 – «Текст и Фон». Для всех объектов Label задайте размер шрифта = 12 (свойство Font).
4) Разместите на форме две панели группировки GroupBox (вкладка Standard), в каждой разместите по 5 зависимых переключателей RadioButton (вкладка Standard) с названиями цветов (свойство Caption): красный, желтый, зеленый, синий, белый.
5) Создайте обработчики для зависимых переключателей (дважды щелкните по каждому) и запишите обработчик события (выделено жирным):
- для установки цвета шрифта:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Label2.Font.Color := clRed;
end;
- для установки цвета фона:
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
Label2.Color := clRed;
end;
Соответственно присвойте цвета в обработчике для каждого зависимого переключателя, используя константы цвета: clRed, clYellow, clGreen, clBlue, clWhite.
6) На форме разместите кнопку (Button) с надписью (свойство Caption) «Закрыть» и впишите в обработчик код закрытия главной формы Close.

2. Программная смена цвета формы на цвет, выбранный пользователем.
1) Создать новый проект.
2) Задайте свойство Caption для формы. Также для свойства BorderStyle задайте значение bsDialog.
3) Сохраните еще проект в отдельную папку.
4) Поместите на форму компонент GroupBox (вкладка Standard). Изменить для него значения свойств следующим образом: Caption – «Цвет формы», Font – полужирный курсивный, красный.
5) В компоненте GroupBox разместите 3 компонента RadioButton (вкладка Standard). Свойство Caption для каждого из трех зависимых переключателя изменить на "синий", "желтый", "зеленый" соответственно.
6) Поместите на форме компонент Button. Заголовок (свойство Caption) для кнопки измените на "Принять".
7) Поместите на форму графическую кнопку BitBtn с вкладки Additional палитры компонент. Из ниспадающего списка значений свойства Kind для данного компонента выберите значение bkClose, а свойство Caption измените следующим образом: "&Закрыть".
8) Запрограммируйте обработчик события нажатия для кнопки "Принять", для чего выберите объект Button на вашей форме, перейдите в окно инспектора объектов (Object Inspector) на закладку События (Events) и дважды щелкните мышкой на поле значения для события OnClik. Перед вами появится окно редактора кода с заготовкой обработчика события. Внесите свой код (выделено жирным), так чтобы обработчик принял вид:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
if form1.RadioButton1.Checked then form1.Tag := 1;
if form1.RadioButton2.Checked then form1.Tag := 2;
if form1.RadioButton3.Checked then form1.Tag := 3;
i := form1.Tag;
case i of
0: ShowMessage('Внимание! Не выбран ни один цвет!');
1: begin
MessageDlg('Выбран синий цвет',mtInformation,[mbOk],0);
Form1.Color:=clNavy;
end;
2: begin
MessageDlg('Выбран желтый цвет',mtInformation,[mbOk],0);
Form1.Color:=clYellow;
end;
3: begin
MessageDlg('Выбран зеленый цвет',mtInformation,[mbOk],0);
Form1.Color:=clGreen;
end;
end;
end;
Жирным здесь выделены строчки, которые необходимо набрать самостоятельно.
9) Добавьте в программу обработчик события OnCloseQuery для вашей формы (компонент Form):
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageDlg('Вы уверены, что хотите прекратить?',
mtConfirmation, [mbYes,mbNo], 0) = IDYES;
end;
10) Сохраните проект и запустите программу на исполнение.
11) Предложите вариант реализации обработчика установки цвета без использования свойства формы Tag и оператора case.

3. Разработайте программy расчета значения функции квадрата и куба числа x.

4. Программная установка вида формы.
1) Создать новый проект.
2) Задайте заголовок формы (свойство Caption) и установите ее размеры (свойства Width и Height).
3) Разместите на форме независимый переключатель CheckBox (вкладка Standard) и задайте в свойстве Caption «включить выбор вида окна». В свойстве Checked установите True.
4) Разместите на форме группу зависимых переключателей RadioGroup (вкладка Standard) и задайте в свойстве Caption «вид окна».
5) В свойстве Items компонента RadioGroup задайте элементы списка переключателей в каждой строке: масштабируемое, диалоговое, без заголовка, управляемое, инструментальное окно, диалоговое инструментальное окно.

6) На форме разместите кнопку (Button) с надписью (свойство Caption) «Закрыть» и впишите в обработчик код закрытия главной формы Close.
7) Создайте обработчик события OnClick для группы зависимых переключателей RadioGroup (щелчком или через вкладку Events Инспектора объектов) и пропишите следующий код:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
RadioGroup1.Enabled := CheckBox1.Checked
end;
8). Создайте обработчик события для независимого переключателя OnClick (щелчком или через вкладку Events Инспектора объектов) и пропишите следующий код:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: BorderStyle:= bsSizeable;
1: BorderStyle:= bsDialog;
2: BorderStyle:= bsNone;
3: BorderStyle:= bsSingle;
4: BorderStyle:= bsSizeToolWin;
5: BorderStyle:= bsToolWindow;
end;
CheckBox1.Refresh
end;
9) Сохраните проект и запустите программу на исполнение.
10) Выясните назначение команды CheckBox1.Refresh.