Мини-проекты в Delphi

Проект «Регионы»

 Регионы (Polygon)- это геометрические фигуры, которые представляют собою многоугольники, построенные на заданных точках, и представляют собой замкнутую линию заданной толщины (Pen.Width), цвета линии (Pen.Color) и цвета заливки (Brush.Color).
Создадим проект, в котором будет изображаться две геометрические фигуры.
Для этого на форме размером 300*200 расположим объект класса TImage размером 180*260 в верхнем левом углу формы.
В разделе implementation объявим как массивы два региона, для которых указаны координаты их вершин:
Var
Rg1: array[0..7] of TPoint= ((x:100;y:25),(x:175;y:125), (x:175;y:225), (x:150;y:250), (x:100;y:225), (x:50;y:250), (x:25;y:225),(x:25;y:125));        

  Rg2:  array[0..5] of TPoint=((x:200;y:300), (x:250;y:300), (x:275;y:325), (x:250;y:350), (x:200;y:350), (x:175;y:325));
Первый регион будет изображаться в объекте Image при загрузке формы:

procedure TForm1.FormCreate(Sender: TObject);
begin
    With Image1.Canvas do 
       begin
          Pen.Width :=3;
          Pen.Color :=RGB(0,255,0);
          Brush.Color := RGB(255,0,0);
          Polygon(Rg1);
       end;
end; 

Второй на самой форме, т. к. она имеет свойство Canvas (холст) при перерисовке формы:

procedure TForm1.FormPaint(Sender: TObject);
begin
    With Form1.Canvas do 
       begin
          Pen.Width :=3;
          Pen.Color :=RGB(255,0,0);
          Brush.Color := RGB(0,0,255);
          Polygon(Rg2);
      end;
end;