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