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

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем Lestat89, 13 янв 2011.

Статус темы:
Закрыта.
  1. Lestat89

    Lestat89 Гость

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

    Вложения:

    • strelki.txt
      Размер файла:
      1,1 КБ
      Просмотров:
      9
    • 1.jpg
      1.jpg
      Размер файла:
      33,4 КБ
      Просмотров:
      60
    • 2.jpg
      2.jpg
      Размер файла:
      3 КБ
      Просмотров:
      55
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Delphi):
    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
     
  3. Lestat89

    Lestat89 Гость

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

    Lestat89 Гость

    извиняюсь протупил)))спасибо огромное помог!!!
     
Загрузка...
Похожие Темы - Графика Delphi срочно
  1. Lers
    Ответов:
    0
    Просмотров:
    1.648
  2. 203
    Ответов:
    2
    Просмотров:
    1.491
  3. cybert
    Ответов:
    0
    Просмотров:
    101
  4. Shouldercannon
    Ответов:
    0
    Просмотров:
    166
  5. antares
    Ответов:
    0
    Просмотров:
    451
Статус темы:
Закрыта.

Поделиться этой страницей