8 kl_Базові графічні примітиви Lazarus

Color

Canvas

Caption

Shape

Image1.Canvas.Pixels[20,100] := clGreen;

Form1.Canvas.Pixels[20,100] := clGreen;

Canvas.Pixels[100,20] := clGreen;

Image1.Canvas.Pixels[100,20] := clGreen;

Image1.Canvas.Rectangle(20,30,220,230);

Image1.Canvas. Ellipse (20,30,120,130);

Image1.Canvas. Ellipse (0,0,200,200);

Image1.Canvas. Ellipse (20,30,220,230);

Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4)

Canvas.Rectangle(x1,y1,x2,y2)

Canvas.Ellipse(x1,y1,x2,y2)

Canvas.MoveTo(x,y)

Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4)

Canvas.LineTo(x,y)

Canvas.Ellipse(x1,y1,x2,y2)

 Canvas.Rectangle(x1,y1,x2,y2)

В правому верхньому куті

В лівому нижньому куті

В центрі форми

В лівому верхньому куті

В правому нижньому куті

Picture 

Width, Height

AutoSize 

Proportional

Об'єкту встановлено властивість: суцільне зафарбування

Об'єкту встановлено властивість: чорний колір зафарбування

Об'єкту встановлено властивість: червоний колір зафарбування

графічне зображення, яке відображається в полі компонента

стиль лінії контуру

колір лінії контуру

стиль заливки

Canvas.MoveTo (x, y);

 Canvas.Line (x1, y1, x2, y2);

Canvas.LineTo (x, y);

Canvas.Ellipse (x1, y1, x2, y2);

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

Canvas.Line (x1, y1, x2, y2);

Canvas.LineTo (x, y);

Canvas.MoveTo (x, y);

Canvas.Brush.Color

Canvas.Pen.Style

Canvas.Pen.Width

Canvas.Pen.Color

крива

точка

компонент для створення фігур

лінія

Click

Paint

Close

KeyPress

Колір заливки внутрішньої області

Товщина ліній контуру

Колір лінії контуру

1- В, 2 - Г, 3 - Д, 4 - А, 5 - Б

1- Б, 2 - Д, 3 - Д, 4 - В, 5 - А

1- Б, 2 - В, 3 - А, 4 - Г, 5 - В

1- Б, 2 - Г, 3 - Д, 4 - А, 5 - В