Авг
30th

Урок 3. Компонент TImage

Рубрика: Lazarus | Автор:admin

В этом уроке Вы познакомитесь с назначением и основными свойствами  компонента Lazarus Image, создадите два проекта с его использованием.

Компонент Image (Изображение) Компонент Изображение (TImage) предназначен для вывода на форму графического рисунка. Он поддерживает многочисленные форматы графических файлов, включая .bmp, .ico, .jpg и т.д.

Для ознакомления с описанием компонента и его свойствами перейдите по ссылке – TImage (Изображение).

Вы можете присвоить какой-либо рисунок компоненту Image как при разработке в среде Lazarus, так и во время выполнения. В этом уроке мы рассмотрим оба случая.

Для загрузки рисунка в поле Image на этапе разработки интерфейса приложения нужно присвоить свойству Picture файл, содержащий рисунок.

Для присвоения изображению файла с рисунком во время выполнения приложения используется метод LoadFromFile(), принадлежащий объекту Picture.

Например, для вывода в изображение imgIxample файла рисунка myPicture.jpg во время выполнения используется следующий оператор:

imgExample.Picture.LoadFromFile(‘myPicture.jpg’)

Задание 7

Создайте приложение «Вставка рисунка из файла», в результате работы которого левый рисунок будет отображаться на форме после ее загрузки, а правый – по щелчку на кнопке Вывести рисунок.

10 класс. Lazarus. Практическая работа №7

Картинки для выполнения задания:

Картинка 1   Картинка 2

Сохранить их как файлы на вашем компьютере.

Ход выполнения

1. Создайте новое приложение «Вставка рисунка из файла».

Разместите на форме два изображения Image (вкладка Additional), две надписи (Label) и две кнопки (Button).

Значение свойства AutoSize для изображения установить True, чтобы размеры поля изображения автоматически изменялись, подстраивались под размеры рисунка.

10 класс. Lazarus. Практическая работа №7

2. Скопируйте графические файлы с рисунками в папку проекта, иначе придется указывать полный путь к файлу.

3. Первый рисунок загрузите в Image1 на этапе проектирования интерфейса при настройке свойства Picture объекта Image1 в инспекторе объектов.

Для этого:

  • Выделите элемент Image1 на форме, в окне Инспектор объектов.
  • В строке Picture щелкните по кнопке с многоточием. Откроется окно Диалог загрузки изображения.
  • В диалоговом окне щелкните по кнопке Загрузить, укажите  файл, содержащий рисунок.
    10 класс. Lazarus. Практическая работа №7

4. Второй рисунок загрузить в Image2 во время выполнения приложения с помощью метода LoadFromFile объекта Image2 после щелчка на кнопке Button2 (Показать рисунок).

Для этого:

  • Откройте редактор кода двойным щелчком на элементе Button2. В программный код добавиться пустая процедура  TForm1.Button2Click.
  • Напишите программный код для  TForm1.Button2Click.
procedure TForm1.Button2Click(Sender: TObject);
begin
   image2.Picture.LoadFromFile('pr7-2.gif');
end;

5. Проверьте работу приложения. Первая картинка должна отобразиться в поле Image1 сразу после загрузки приложения, вторая картинка – после щелчка на кнопке Показать рисунок.

6. Добавьте к предыдущему проекту кнопку Убрать рисунок (Button3). Наложите ее на кнопку Button2. Сделайте невидимой на момент загрузки приложения, для этого  измените свойство Visible на False.

7. Измените программный код процедуры обработки щелчка на кнопке Button2 (Показать рисунок). Программный код выполняет следующие действия:

  • Делает видимым компонент Image2;
  • Загрузить рисунок в поле Image2;
  • Делает невидимой кнопку Button2  (Показать рисунок);
  • На ее месте делает видимой кнопку Button3  (Убрать  рисунок).

Программный код процедуры:

procedure TForm1.Button2Click(Sender: TObject);
begin
   image2.Visible:=true;
   image2.Picture.LoadFromFile('pr7-2.gif');
   button2.Visible:=false;
   button3.Visible:=true;
end;

Для управления видимостью кнопок используйте свойство Visible.

8. Напишите программный код процедуры обработки щелчка на кнопке Button3  (Убрать рисунок), который:

  • прячет кнопку Button3 (Убрать  рисунок);
  • удаляет картинку из Image2;
  • делает видимой кнопку Button2 (Показать рисунок).

Исходный текст процедуры:

procedure TForm1.Button3Click(Sender: TObject);
begin
   button3.Visible:=false;
   button2.Visible:=true;
   image2.Visible:=false;
end;

8. Проверьте работу кнопок. После щелчка на кнопке Показать рисунок картина отобразится в поле Image2, а после щелчка на кнопке Убрать рисунок – удаляется из поля.

10 класс. Lazarus. Практическая работа №7

9. Сохраните проект.

Задание 8

Создайте приложение, которое над рисунком, расположенным в центре формы, выполняет действия, указанные на кнопках.

10 класс. Lazarus. Практическая работа № 8

Ход выполнения

1. Создайте новое приложение, сохраните его в папке Перемещение картинки.

2. Установите на форме 9 кнопок (Button) и поле Image (изображение) как показано в образце.

3. Измените свойство Name кнопок в соответствии с надписями на них: – Vverh_Vlevo, vverch и т.д.

4. Написать программный код процедур обработки щелчков по кнопкам.

Напомню. Для того чтобы создать процедуру обработчик события, идущий по умолчанию, нужно выполнить двойной щелчок на элементе управления.

Примерный текст процедур обработчиков для кнопок Вверх-влево , Вверх-вправо и В центр приводится ниже:

procedure TForm1.btnVverh_VlevoClick(Sender: TObject);
begin
   image1.top:=10;
   image1.left:=10;
end;

procedure TForm1.btnVverh_VpravoClick(Sender: TObject);
begin
   image1.top:=10;
   image1.left:=form1.width-image1.width -10;
end;

procedure TForm1.btnCentrClick(Sender: TObject);
begin
   image1.top:=(form1.height-image1.height) div 2;
   image1.left:=(form1.width-image1.width) div 2;
end;

5. Программный код для остальных кнопок написать самостоятельно.

6. Проверить работу приложения.


В этом уроке мы познакомились с компонентам Lazarus Image (Изображение), научились его использовать.

В следующем уроке рассмотрим новый компонент – Memo-поле.

Следующий урок: “Компоненты TBitBtn, TEdit, TMemo”
P.S. Как всегда, под уроком жду твоих комментариев – насколько урок оказался полезным для тебя:)

Удачи!

Поделиться с друзьями



Один комментарий к “Урок 3. Компонент TImage”

  1. Мира Камельхановна | Ноя 11, 2016 | Ответить

    Спасибо огромное. Очень полезная статья, все процедуры описаны подробно и понятны. Очень приятно работать с Вами! )))

Оставить комментарий или два