Уроки, алгоритмы, программы, примеры

Вход на сайт

Материалы по разделам

Построения
на плоскости (2D)
Графика
в пространстве (3D)
Вычислительная
геометрия
Физическое
моделирование
Фрактальная
графика

Новые комментарии

Пиривет сайт с работой закладчиком Работа курьером Значение финансов в повседневной жизни известно каждому, но что делать, если зарплата на постоянной работе невелика или ее вообще нет? Если у Вас нет профессии или возникли иные сложности, то...
Модные тренды медицинской одежды - новая эра стиля и комфорта в 2024 году https://fkmed.r... C нами Вы убедитесь: качественная, комфортная и модная медицинская одежда существует! В каталоге на сайте представлена медицинская одежда для врачей и...
14 070 руб https://www.eco... 38 900 руб https://www.eco... и выберите из списка ниже: Купить в 1 клик https://www.eco... По типу двигателя снегоотбрасыватель может быть: Купить в 1 клик https://www.eco...
Все изделия хорошо сидят на фигуре и отличаются высокой степенью комфортности https://fkmed.r... Комбинированные ткани с применением хлопка и синтетики - это оптимальный вариант для пошива формы https://fkmed.r... Специальная пропитка...
53 990 руб https://www.eco... Экономия 4 160 руб https://www.eco... Купить в 1 клик https://www.eco... Главными элементами устройства являются двигатель, металлический или пластиковый корпус и лопасти для уборки снега https://www.eco... Тип...

Счетчики и рейтинг

Рейтинг@Mail.ru Яндекс.Метрика
Среда программирования: 
Delphi (Lazarus)

Запустите 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.