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

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

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

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

У меня проблема вот с этим: gl.Clear(OpenGL.GL_COLOR_BUFFER_BIT | OpenGL.GL_DEPTH_BUFFER_BIT);. Вылезает ошибка: CS1061 "object" не содержит определения "GL_COLOR_BUFFER_BIT", и не удалось найти доступный метод расширения "GL_COLOR_BUFFER_BIT",...
Большое спасибо. Единственный код который прошел без каких либо ошибок. Ура!!!
Скажите пожалуйста, подскажите алгоритм по которому по заданным точкам можно определить тип многогранника, скажем это куб или прямоугольный параллелепипед. Нашел теорию по этим фигурам: https://www.mat... https://www.mat... Акцентировать внимание...
Всем у кого не работает. файл wizard.script Ещё одно упоминание Glut32 в строке "if (!VerifyLibFile(dir_nomacro_lib, _T("glut32"), _T("GLUT's"))) return false;" меняем на "if (!VerifyLibFile(dir_nomacro_lib, _T("freeglut"), _T("GLUT's"))) return...
Не получается, емаё

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

Рейтинг@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.