Авг
30th

Компонент TBitBtn

Компонент TBitBtn (Кнопка с пиктограммой)

Компонент TBitBtn (Кнопка с пиктограммой)

Компонент Кнопка (TBitBtn) – разновидность кнопки, отличается от TButton тем, что на нем можно отображать пиктограммы.

Основные свойства

(ещё…)

Авг
30th

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

В этом уроке Вы познакомитесь с назначением и основными свойствами  компонента 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. Как всегда, под уроком жду твоих комментариев – насколько урок оказался полезным для тебя:)

Удачи!

Авг
27th

Урок 2. Ваша первая программа

Урок из серии “Программирование для школьников в среде Lazarus”

В предыдущем уроке рассказывалось об основных инструментах разработки программ в среде Lazarus, этапах создания приложения.

В этом уроке мы создадим свою первую программу, познакомимся с редактором исходного кода, узнаем  как   компилировать и выполнять программу.

Наша программа будет взаимодействовать с пользователем,  Вы сможете поэкспериментировать с нею.  Не бойтесь экспериментировать, Вы не сможете сделать что-либо непоправимое. И в то же время истинные и прочные навыки эффективной работы достигаются только путем самостоятельного экспериментирования.

Итак, приступим …
(ещё…)

Авг
26th

Компонент TTimer

Компонент Timer (Таймер)
Компонент Timer (Таймер)

С помощью таймера (Timer) можно запрограммировать выполнение определенного кода через равные интервалы времени. Когда таймер установлен на форме, система периодически генерирует событие OnTimer. Для пользователя таймер невидим.

Основные свойства

(ещё…)

Авг
26th

Компонент TImage

 Компонент Image (Графическое поле)

 Компонент Image (Графическое поле)

Компонент (TImage) обеспечивает вывод на поверхность формы иллюстраций, представленных в bmp–формате (чтобы компонент можно было использовать для отображения иллюстраций в формате JPG, надо подключить модуль JPEG – указать имя модуля в директиве uses).

Основные свойства

(ещё…)

Авг
26th

Компонент TComboBox

Компонент ComboBox (Комбинированный список)

Компонент ComboBox (Комбинированный список)

Компонент (TComboBox) дает возможность ввести данные в поле редактирования путем набора на клавиатуре или выбором из списка.

Основные свойства

(ещё…)

Авг
26th

Компонент TListBox

Компонент TListBox (Список)

Компонент TListBox (Список)

Компонент (TListBox) представляет собой список, в котором можно выбрать нужный элемент.

Основные свойства

(ещё…)

Авг
26th

Компонент TCheckBox

Компонент TCheckBox (Флажок)

Компонент CheckBox (Флажок)

Компонент TCheckBox (Флажок)

Компонент Флажок (TCheckBox) предоставляет пользователю два варианта выбора – его можно установить или снять. Установленный флажок отмечен галочкой. Когда флажки объединены в группу, пользователь может установить или снять любые флажки группы. Одновременно может быть включено несколько флажков.

Основные свойства

(ещё…)

Авг
25th

Компонент TRadioButton

Компонент RadioButton (Переключатель)

Компонент TRadioButton

Компонент TRadioButton

Компонент TRadioButton (переключатель) в отличии от флажка (CheckBox), позволяют выбрать только один из предложенных вариантов.

Когда пользователь устанавливает один из переключателей, все остальные переключатели группы автоматически снмаются

Если надо организовать несколько групп переключателей, то каждую группу следует представить компонентом TRadioGroup.

Основные свойства (ещё…)

Авг
25th

Компонент TMemo

Компонент Memo

Компонент Memo

Основное предназначение компонента TMemo – работа с большим количеством строк (ввод, отображение и редактирование текстового материала).

Для работы с буфером обмена можно использовать общепринятые горячие клавиши: Ctrl-X — вырезать, Ctrl-C — копировать; Ctrl-V — вставить.

Основные свойства

(ещё…)