Работа с изображениями в среде разработки Lazarus 4.4

Степень завершённости урока: 60%   

Статистика урока:

Для работы с изображениями можно использовать следующие встроенные компоненты среды разработки Lazarus 4.4:

Pascal 37 строк | 422 B 
unit Unit1;{$mode objfpc}{$H+}interfaceuses  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, ExtCtrls;type  { TForm1 }  TForm1 = class(TForm)    Image1: TImage;    procedure FormCreate(Sender: TObject);  private  public  end;var  Form1: TForm1;implementation{$R *.lfm}procedure TForm1.FormCreate(Sender: TObject);begin  Image1.Picture.LoadFromFile('C:\1\1.jpg');end;end.

При запуске этого кода появится окно программы, однако без изображения. Это связано с тем, что в коде используется компонент TImage, однако на форме его нет.

Выберем в списке компонентов TImage, далее щёлкнем левой клавишей мышки на форме.

Далее необходимо в свойствах формы привязать событие OnCreate к FormCreate. Без этого изображение не будет отображаться.

Теперь картинка видна. Однако она выходит за границы формы.

Для отображения всей картинки поставьте у свойства Proportional галочку напротив True. Теперь изображение вертолёта полностью помещается на форме.

Ниже полный код для файла с расширением lfm (текстовое представление дизайна формы).

Pascal 18 строк | 302 B 
object Form1: TForm1  Left = 302  Height = 240  Top = 250  Width = 320  Caption = 'Form1'  ClientHeight = 240  ClientWidth = 320  LCLVersion = '4.4.0.0'  OnCreate = FormCreate  object Image1: TImage    Left = 24    Height = 218    Top = 16    Width = 290    Proportional = True  endend

Для работы с изображениями в среде разработки Lazarus 4.4 используется модуль Graphics (из LCL, Lazarus Component Library) и следующие классы:

В модуле Graphics доступны следующие константы:

Также в модуле Graphics доступны следующие процедуры и функции:



Предложить идею по улучшению урока в мессенджере Max или мессенджере Telegram

            

Страница обновлена 15 марта 2026 года.