Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.01.2007, 15:24
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию Рисование стрелки

Кто нить знает как нарисовать стрелку? Есть две пары координат: начало и конец, рисуем стрелку на конце линии.
Ответить с цитированием
  #2  
Старый 30.06.2007, 15:58
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию

Эх вы...

Код:
procedure TForm1.DrawEdje(P1,P2:TPoint; Arrow:boolean; Color:TColor; Canvas:TCanvas);
var
Angle:real;
p3,p4:TPoint;
begin
Canvas.pen.color:=Color;
 Canvas.MoveTo(p1.X,p1.Y);
 Canvas.LineTo(p2.X,p2.Y);
 if Arrow=true then begin
  Angle:=180*ArcTan2(p2.y-p1.y,p2.x-p1.x)/pi;
  p3:=Point(p2.X+Round(15*cos(pi*(Angle+150)/180)),p2.y+Round(15*sin(pi*(Angle+150)/180)));
  p4:=Point(p2.X+Round(15*cos(pi*(Angle-150)/180)),p2.y+Round(15*sin(pi*(Angle-150)/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;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:24.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025