Графическая подсистема Delphi

свойстве Canvas (объект класса TCanvas)
Этим свойством обладают многие визуальные

компоненты или их свойства, в частности объект Form1
Свойство Canvas содержит двумерный массив пикселей, точнее, их цветовых кодов Pixels. Например, инструкция Form1.Canvas.Pixels[100,50]:=clRed; означает, что точка с координатами (100;50) на форме будет окрашена в красный цвет. Таким образом, рисование может быть выполнено поточечно.

аналогично классу TShape. Для того чтобы задать цвет рисования фигуры,

нужно установить соответствующие значения этих свойств до рисования.
Например, такой фрагмент программы установит цвет заливки и линий и толщину линий:
Canvas.Brush.Color:=clYellow;
Canvas.Pen.Color:=clBlue;
Canvas.Pen.Width:=2;
Можно устанавливать эти свойства и с помощью стандартных диалогов.

type может принимать значение:
fsBorder (заливается область до границы, цвет

которой определяется параметром color);
fsSurface (заливается область, цвет которой определяется параметром color до границы другого цвета).
Например:
Image1.Canvas.Brush.Color:=clRed;
Image1.Canvas.FloodFill(100,50,clBlack,fsBorder);
Будет залита красным цветом область от точки (100;50) до границы черного цвета.
Image1.Canvas.Brush.Color:=clRed;
Image1.Canvas.FloodFill(100,50,clWhite,fsSurface)
Будет залита красным область белого цвета от точки (100;50).

Canvas.LineTo(x+50,y+20);
Canvas.LineTo(x,y+40);
y:=y+40;
end;


Пример 1. Простой цикл

y:=80;
for j:=1 to 4 do begin

Сanvas.Ellipse(x,y,x+30,y+30);
y:=y+30;
end;
x:=x+30;
end;

Пример 2. Вложенные циклы

canvas.Ellipse(x,y,x+50,y+50);
y:=y+50;
end;
Canvas.Pen.Color:=clRed;
x:=30;y:=80;
for i:=1 to 4 do begin
Canvas.MoveTo(x,y);

Сanvas.LineTo(x+50,y+50);
y:=y+50;
end;
x:=80;y:=80;
for i:=1 to 4 do begin
Canvas.MoveTo(x,y);
Canvas.LineTo(x-50,y+50);
y:=y+50;
end;

Пример 3. Последовательные циклы

Запуск

только с форматом bmp)
Примеры:
image1.Picture.LoadFromFile(‘рисунок.bmp’);
image1.Picture.SaveToFile(‘рисунок.bmp’);

Основные события
onMouseDown (нажатие левой кнопки

мыши)
onMouseMove (перемещение курсора мыши)
onMouseUp (отпускание левой кнопки мыши)

Пример

Все эти события имеют параметры – координаты точки, в которой произошло событие

нужно загрузить эти данные в списки ListBox

Подготовка к построению графика

x0:=…; y0:=…; {начало координат}
form1.Canvas.moveto(x0,10); form1.Canvas.lineTo(x0,form1.Height-50); {Ось Oy}
form1.Canvas.moveto(10,y0); form1.Canvas.lineTo(form1.Width-30,y0); {Ось Ox}
mx:=…; my:=…;
{масштаб по x и по y -
количество пикселей на 1 деление}

{экранные координаты}
form1.Canvas.moveTo(xe,ye);
for i:=1 to

ListBox1.Count-1 do begin
x:=StrToFloat(ListBox1.Items[i]);
y:=StrToFloat(ListBox2.Items[i]); {очередная точка}
xe:=round(x0+x*mx);
ye:=round(y0-y*my);
form1.Canvas.lineTo(xe,ye);
end;

Запуск

{ масштаб }
x0:=…; y0:=…;

{начало координат}
a:=…; b:=…; { отрезок }
x:=a;
y:=sin(x);
xe:=round(x0+x*m);
ye:=round(y0-y*m); {начальная точка}
Form1.Canvas.moveTo(xe,ye);
while x<=b do begin
x:=x+1/m;
y:=sin(x);
xe:=round(x0+x*m);
ye:=round(y0-y*m); {очередная точка}
Form1.Canvas.lineTo(xe,ye);
end;

Запуск