Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

2nd
Янв

Нарисовать многоугольник функцией polygon на image1.canvas.bitmap

Posted by Chas under Delphi

3D Hunter

procedure TForm2.FormCreate(Sender: TObject);

var

  AP:array[0..5] of TPoint;

begin

  AP[0].X:=996;

  AP[0].Y:=411;
  AP[1].X:=1029;

  AP[1].Y:=388;
  AP[2].X:=1080;

  AP[2].Y:=372;
  AP[3].X:=1126;

  AP[3].Y:=430;
  AP[4].X:=1066;

  AP[4].Y:=469;
  AP[5].X:=991;

  AP[5].Y:=458;
  Image1.Width:=Screen.Width;

  Image1.Height:=Screen.Height;

  with Image1 do

  begin

    Picture.LoadFromFile('D:\main.bmp');

    Canvas.Pen.Color:=clRed;

    Canvas.Brush.Color:=clRed;

    Picture.Bitmap.Canvas.Polygon(AP);

  end;

end;