Работа с TCanvas
В этом уроке мы с вами поговорим о графике в Delphi.
Для создания простых 2D эффектов в Delphi обычно используют TCanvas.
TCanvas — это холст. Для рисования на нем. На него можно вывести изображение, можно программно нарисовать на нем графические примитивы, менять цвет любого пикселя по его координатам.
Рассмотрим все это на примере.
Создадим новый проект, кинем на форму Button1 и PaintBox1 с вкладки System.
Создаем событие кнопки OnClick и пишем:
Где 20,20 — это координаты левого верхнего угла невидимого квадрата, в который вписан круг, 100,100 — координаты нижнего правого угла.
Компилируем (F9) программу, жмем на кнопку и видим:
Теперь побалуемся с кодом и напишем:
Brush — это кисть. Мы задали ей зелёный цвет.
Запускаем программу, нажимаем на кнопку и видим:
Для создания простых 2D эффектов в Delphi обычно используют TCanvas.
TCanvas — это холст. Для рисования на нем. На него можно вывести изображение, можно программно нарисовать на нем графические примитивы, менять цвет любого пикселя по его координатам.
Рассмотрим все это на примере.
Создадим новый проект, кинем на форму Button1 и PaintBox1 с вкладки System.
Создаем событие кнопки OnClick и пишем:
Canvas.Ellipse(20,20,100,100);
Где 20,20 — это координаты левого верхнего угла невидимого квадрата, в который вписан круг, 100,100 — координаты нижнего правого угла.
Компилируем (F9) программу, жмем на кнопку и видим:
Теперь побалуемся с кодом и напишем:
Canvas.Brush.Color:=clGreen; Canvas.Ellipse(20,20,100,100);
Brush — это кисть. Мы задали ей зелёный цвет.
Запускаем программу, нажимаем на кнопку и видим:
Комментарии:
Нету комментариев для вывода...