Проект в среде Lazarus «Форматирование»

Проект «Форматирование»

Запустите LAZARUS. Если открылся предыдущий проект, то выполните команду Проект — Создать проект.... В появившемся диалоговом окне выберите из списка слово Приложение и нажмите кнопку Создать.

Задание 1. Начертание шрифта

1. Установите свойства Формы:

Заголовок формы (свойствоCaption) – Форматирование_ФИ

Цвет формы (свойствоColor) - по настроению

2.    Поместите на форму метку Label1, свойство Caption - напишите Ура! Работает!

3.  Установите начальный размер шрифта 12. Раскройте список свойства Font, и в строке Size установите значение 12.

4.   Разместите на форме другие объекты (см рис)

5. Обратите внимание на начертание шрифта на кнопках: Полужирный, Курсивный, Подчеркнутый.

6. Для кнопки Полужирный пропишите событие: Label1.Font.Style:=[fsbold];

Аналогично для кнопок: Курсивный, Подчеркнутый. Свойство для этих кнопок можно посмотреть  здесь

     

7. Пропишите событие для кнопки Сброс (чтобы запись принимала первоначальный вид)

8. Код для увеличения размера шрифта: Label1.Font.Size:=Label1.Font.Size+1;

9.  Добавьте кнопку Размер шрифта-1по уменьшению шрифта на 1. Убедитесь в работоспособности программы.

10. Измените текст программы. Добавьте ограничения по длине надписи. Если она превышает Размеры формы+Отступ метки от левого края формы, увеличение должно остановиться, текст надписи изменяется, сообщая о причине отмены действия.

If Label1.Width+Label1.Left>= Form1.Width then

     begin

           Label1.Font.Size:=Label1.Font.Size;

           Label1.Caption:='Уменьшай!';

     end

     else

         begin

           Label1.Font.Size:=Label1.Font.Size+1;

           Label1.Caption:='Ура! Работает!';

         end;

Задание 2. Цвет шрифта

1.  Добавьте кнопку Случайно по Изменению цвета шрифта.

procedure TForm1.Button……Click(Sender: TObject);

var c:integer;

begin

  c:=random(3);

  case c of

         0:begin c:=clBlack;Label1.Caption:='Черный!';end;

         1:begin c:=clGreen;Label1.Caption:='Зеленый!';end;

         2:begin c:=clRed;Label1.Caption:='Красный!';end;

  end;

  Label1.Font.Color:=c;

end;         

2.   Добавьте еще 3 значения цвета по своему усмотрению.

3.  Чтобы иметь возможность выбора цвета, добавьте на форму объект ColorDialog вкладки Dialogs. Добавьте кнопку Диалог , пропишите код:

     If ColorDialog1.Execute=True then

        Label1.Font.Color:=ColorDialog1.Color;

4.  Фон надписи изменяем командой для кнопки Цвет фона шрифта

If ColorDialog1.Execute=True then

Label1.Color:=ColorDialog1.Color;

5. Добавьте команду для кнопки Сброс для сброса цвета шрифта  до первоначального. 

6.   Добавьте кнопку Цвет формы., и аналогичным образом измените цвет формы.

Контрольные вопросы

Заполните таблицу:

Шрифт	Код для кнопки
Полужирный
Курсив
Подчеркнутый
Сброс
Диалог
Цвет формы
Цвет фона

Проект «Форматирование»

Запустите LAZARUS. Если открылся предыдущий проект, то выполните команду Проект — Создать проект.... В появившемся диалоговом окне выберите из списка слово Приложение и нажмите кнопку Создать.

Задание 1. Начертание шрифта

1. Установите свойства Формы:

Заголовок формы (свойствоCaption) – Форматирование_ФИ

Цвет формы (свойствоColor) - по настроению

2.    Поместите на форму метку Label1, свойство Caption - напишите Ура! Работает!

3.  Установите начальный размер шрифта 12. Раскройте список свойства Font, и в строке Size установите значение 12.

4.   Разместите на форме другие объекты (см рис)

5. Обратите внимание на начертание шрифта на кнопках: Полужирный, Курсивный, Подчеркнутый.

6. Для кнопки Полужирный пропишите событие: Label1.Font.Style:=[fsbold];

Аналогично для кнопок: Курсивный, Подчеркнутый. Свойство для этих кнопок можно посмотреть  здесь

     

7. Пропишите событие для кнопки Сброс (чтобы запись принимала первоначальный вид)

8. Код для увеличения размера шрифта: Label1.Font.Size:=Label1.Font.Size+1;

9.  Добавьте кнопку Размер шрифта-1по уменьшению шрифта на 1. Убедитесь в работоспособности программы.

10. Измените текст программы. Добавьте ограничения по длине надписи. Если она превышает Размеры формы+Отступ метки от левого края формы, увеличение должно остановиться, текст надписи изменяется, сообщая о причине отмены действия.

If Label1.Width+Label1.Left>= Form1.Width then

     begin

           Label1.Font.Size:=Label1.Font.Size;

           Label1.Caption:='Уменьшай!';

     end

     else

         begin

           Label1.Font.Size:=Label1.Font.Size+1;

           Label1.Caption:='Ура! Работает!';

         end;

Задание 2. Цвет шрифта

1.  Добавьте кнопку Случайно по Изменению цвета шрифта.

procedure TForm1.Button……Click(Sender: TObject);

var c:integer;

begin

  c:=random(3);

  case c of

         0:begin c:=clBlack;Label1.Caption:='Черный!';end;

         1:begin c:=clGreen;Label1.Caption:='Зеленый!';end;

         2:begin c:=clRed;Label1.Caption:='Красный!';end;

  end;

  Label1.Font.Color:=c;

end;         

2.   Добавьте еще 3 значения цвета по своему усмотрению.

3.  Чтобы иметь возможность выбора цвета, добавьте на форму объект ColorDialog вкладки Dialogs. Добавьте кнопку Диалог , пропишите код:

     If ColorDialog1.Execute=True then

        Label1.Font.Color:=ColorDialog1.Color;

4.  Фон надписи изменяем командой для кнопки Цвет фона шрифта

If ColorDialog1.Execute=True then

Label1.Color:=ColorDialog1.Color;

5. Добавьте команду для кнопки Сброс для сброса цвета шрифта  до первоначального. 

6.   Добавьте кнопку Цвет формы., и аналогичным образом измените цвет формы.

Контрольные вопросы

Заполните таблицу:

Шрифт	Код для кнопки
Полужирный
Курсив
Подчеркнутый
Сброс
Диалог
Цвет формы
Цвет фона