Начало работы с графикой
Запустите Lazarus и начните новый проект Приложение. Найдите на панели инструментов компоненты TPaintBox
и TButton
(или TBitBtn
) и разместите их на форме.
PaintBox1
— поле для рисования.Button1
— кнопка, по нажатию которой будет строиться изображение.
Используя Инспектор объектов, настройте свойства компонентов. Например, у PaintBox1
можно выставить размеры Width
(ширина по Х
) и Height
(высота по Y
).
Выберите на форме объект Button1
и перейдите в Инспекторе объектов на вкладку События. Напротив OnClick
(событие щелчка по кнопке) в пустом поле сделайте двойной щелчок (автоматически будет создано имя процедуры) или впишите название процедуры и нажмите
В редакторе кода будет создана процедура с указанным именем.
1 2 3 4 |
procedure TForm1.Button1Click(Sender: TObject); begin end; |
Между операторными скобками begin-end
необходимо прописать код, который и будет выполняться на нажатие кнопки.
У объекта TPaintBox
есть свойство Canvas
(объект TCanvas
), методы и свойства, которого отвечают за отрисовку графических элементов. Например, прямоугольник можно нарисовать следующим образом:
1 2 3 4 |
procedure TForm1.Button1Click(Sender: TObject); begin PaintBox1.Canvas.Rectangle( 10,20, 200,100); end; |
Запуск проекта на выполнение осуществляется либо через меню Запуск → Запустить, либо зеленой стрелкой на панели инструментов, либо горячей клавишей