Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2010, 23:12   #1
DjVidan
Пользователь
 
Регистрация: 29.09.2008
Сообщений: 11
По умолчанию возможность рисования стрелки в графическом редакторе

Как можно добавить в графический редактор возможность рисовать стрелку? Если просто к функции линии пририсовать в конец треугольник то подскажите пожалуйста как это сделать?


/
Код:
procedure TfrmMain.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if sbtnPen.Down
    then Image.Cursor := 1
      else Image.Cursor := crCross;
  if ssLeft in Shift
    then  begin
            if sbtnPen.Down
              then Image.Canvas.LineTo(x,y);           
            if sbtnAr.Down
              then  with image.canvas do
                begin
                  MoveTo(startX, startY);  //стирается линия в прежнем положении (это необходимо, т.к. метод LineTo)
                  LineTo(oldX, oldY);
    //рисует линию,начинающуюся в текущей позиции пера и заканчивающуюся {рисование новой линии}
    //в указанной точке, исключая эту конечную точку.
                 MoveTo(startX, startY); //рисуется новая линия;
                 LineTo(X, Y);
                 oldX := X; {запоминание новых координат конца линии}
                 oldY := Y;
                end;
          end;
как сделать чтобы на конце линии треугольник рисовался? или моя мысль совсем не верна?

Последний раз редактировалось DjVidan; 15.12.2010 в 23:19.
DjVidan вне форума Ответить с цитированием
Старый 16.12.2010, 01:05   #2
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

http://www.programmersforum.ru/showthread.php?t=67126


Цитата:
MoveTo(startX, startY); //стирается линия в прежнем положении
Да не стирается ничё, а "перо" (можно читать начало линии) переставляется в нужную точку...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
анимация стрелки(C++ Builder) MrMoriman Помощь студентам 2 13.12.2010 10:24
Стрелки ddeman666 Помощь студентам 0 16.05.2010 12:04
Delphi и VBA (создание стрелки) Kuraj Общие вопросы Delphi 4 09.01.2010 23:33
Анимирование стрелки... kentlm Мультимедиа в Delphi 2 14.05.2009 02:17