• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Графика Delphi срочно!

  • Автор темы Lestat89
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

Lestat89

Здравствуйте, помогите кто может нужно дорисовать концы стрелок в программе. то что получилось на первом рисунке а надо как на втором...сам уже спекся :) ..код прилагается.
 

Вложения

  • strelki.txt
    1,1 КБ · Просмотры: 507
  • 1.jpg
    1.jpg
    28 КБ · Просмотры: 573
  • 2.jpg
    2.jpg
    2,5 КБ · Просмотры: 207
D

Dock1100

Код:
procedure TForm38.Button1Click(Sender: TObject);
var
Angle:real;
p1,p2,p3,p4:TPoint;
i:integer;
begin
p1.x:=10;//откуда будет линия
p1.y:=20;
p2.x:=100;//куда
p2.y:=70;
with paintbox1 do
begin
Canvas.pen.color:=clred;
Canvas.MoveTo(p1.X,p1.Y);
Canvas.LineTo(p2.X,p2.Y);
end;
for i:=170 to 180 do  //170 - угол
with paintbox1 do
begin
Angle:=180*ArcTan2(p2.y-p1.y,p2.x-p1.x)/pi;
p3:=Point(p2.X+Round(15*cos(pi*(Angle+i)/180)),p2.y+Round(15*sin(pi*(Angle+i)/180)));
//15-длина стрелки
p4:=Point(p2.X+Round(15*cos(pi*(Angle-i)/180)),p2.y+Round(15*sin(pi*(Angle-i)/180)));
Canvas.MoveTo(p2.X,p2.Y);
Canvas.LineTo(p3.X,p3.y);
Canvas.MoveTo(p2.X,p2.Y);
Canvas.LineTo(p4.X,p4.y);
end;
end;

Результат:
124.jpg
 
L

Lestat89

хм, а что есть ArcTan2 ?? мой делфи на него ругается
 
L

Lestat89

извиняюсь протупил)))спасибо огромное помог!!!
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!