Рисование в Delphi. Графический режим

Рисование в Delphi. Графический режим.

Рисовать в Delphiможно, используя канву (холст) формы:

form1. canvas

(form1 – можно не писать).

Например, цвет заливки (кисти) можно задать так:

form1. canvas. brush. color := clRed;

Цвет линий (перо) можно задать так:

canvas. pen. color := clGreen;

Цветa можно задавать случайным образом:

canvas. brush. color := random(1000000);

Эллипс (круг) можно нарисовать так:

canvas. еllipse(x1, y1, x2, y2);

Фигура эллипса (круга) оказывается вписанной в прямоугольник (квадрат) с вершинами – левой верхней x1, y1 и правой нижней x2, y2.

x2, y2

Причем координаты можно задать числами:

canvas. еllipse(100, 200, 300, 420);

переменными (см выше) и выражениями:

canvas. еllipse(х, y, x+100, y+150);

Отсчет ведется от левого верхнего угла клиентской области формы:

Прямоугольник (квадрат) можно задать так:

canvas.Rectangle(x1, y1, x2, y2);

x1, y1

по координатам двух вершин:

x2, y2

Линию можно нарисовать из текущего (последнего) положения (точки) в точку с заданными координатами x, yс помощью команды:

canvas.LineTo(x, y);

Начальной (самой первой) точкой считается начало координат (точка 0, 0 формы).

Переместиться из текущего положения в точку с заданными координатами x, y, не оставляя следа, можно с помощью оператора:

canvas. MoveTo(x, y);

Залить (закрасить) замкнутую область можно с помощью команды:

canvas. FloodFill(x, y, цвет, fsborder);

где x, y- координаты любой внутренней точки этой замкнутой области, цвет – цвет заливки, fsborder- режим заливки до контура (бордюра) этой области.

Проект 1. Нарисовать снеговика.

Процедура рисования может быть такой:

procedure TForm1.Button1Click(Sender: TObject);

begin

canvas.Pen.Color:=claqua;

canvas.Brush.Color:=clAqua;

canvas.Ellipse(200,200,400,400);

canvas.Ellipse( . . . );

. . .

canvas.Pen.Color:=clRed;

canvas.Brush.Color:=clRed;

canvas.Rectangle(280,30,320,60);

canvas.MoveTo(260,120);

canvas.LineTo(200,100);

canvas.MoveTo(340,120);

canvas.LineTo(400,100);

. . .

canvas.MoveTo(290,75);

canvas.LineTo(250,77);

canvas.LineTo( . . . );

. . .

canvas.FloodFill(285,77,clred,fsborder);

end;

Проект2. Нарисовать круглую мишень.

Используемоператорцикла:

for k:=1 to n do begin

. . .

end;

где n- количество кругов.

Цвет зададим случайным образом:

canvas.Brush.Color:=random(10000000);

Координаты зададим относительно центра квадратной области, в которую вписан круг:

Например так: 360-r,180-r- левая верхняя вершина, 360+r,180+r- правая нижняя вершина квадратной области.

Здесь r– радиус круга, который затем уменьшаем r:=r-25;

Дополнительно: Нарисовать квадратную мишень.

Проект 3. Нарисовать кучу шаров.

Количество шаров зададим 300.

Радиус r , координаты x, y– зададим случайным образом:

r:=random(100)+5;

x:=random(200)+220;

y:=random(100)+120;

Кроме того, нам понадобится задержка (замедление):

for i:=1 to 10000000 do;

Дополнительно: сделать шары на весь экран.

Задержку (замедление) можно убрать.

Проект4. Нарисовать столбчатую диаграмму.

Дополнительно: над каждым столбиком вывести его размер (высоту):

Подсказка: используем процедуру canvas. textout( x, y, текст);

Проект 5. Нарисовать гирлянду.

Дополнительно: на каждом круге вывести его размер (радиус):

Проект 6. Летающий шарик.

Для начала пусть летает влево – вправо отражаясь от соответствующих границ формы.

В качестве шарика используем компонент shape - фигура (см. Вкладку палитры компонентов Дополнительно). Причем, одноименное свойство shapeв инспекторе объектов настроим на значение stCircleокружность.

Для движения шарика установим компонент Timer (см. вкладку Система - часы).

Это не визуальный компонент (невидимый после запуска).

Выполняет функцию регулярного прерывания программы через определенный интервал времени (см. свойство interval) для выполненияопределенных пользователем действий (см. процедуру обработки таймера procedureTForm1.Timer1Timer(Sender: TObject);).

Объявим глобальные переменные:

var x, hx: integer;

В процедуре FormCreateвключим таймер:

timer1.Enabled:=true;

Зададим начальное положение шарика

x:=shape1.Left;

Шаг движения:

hx:=10;

Интервал прерывания таймера:

timer1.interval:=20;

Двойным щелчком по часам переходим в процедуру:

procedure TForm1.Timer1Timer(Sender: TObject);

где изменяем координату :

x:=x+hx;

Проверяем границы и меняем направление:

if (x>=536-shape1.width) or (x<=0) then hx:=-hx;

И рисуем по новым координатам (старое по

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать