Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
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;