Модуль "Линии"

[BDA]

Писал чисто для себя.
Возможно кому-нибудь пригодится.
Жду адекватной критики.
Что можно улучшить?
(Код во вложении, так как больше 5к символов )
Для работы:
вписать модуль в Uses
a - переменная типа Tlines
В событии создания формы:
a := tlines.Create(self);
a.Parent := self;
doublebuffered := true;//для нормального отображения

Для добавления линии:
a.addline(x1, y1, x2, y2, rad: integer; penc, brushc: tcolor);
где x1,y1 - координаты 1 точки
x2,y2 - координаты 2 точки
rad - радиус точек на концах
penc - цвет линий
brushc - цвет точек на концах

[denisbrain]

Сообщение от BDA

Писал чисто для себя.
Возможно кому-нибудь пригодится.
Жду адекватной критики.
Что можно улучшить?
(Код во вложении, так как больше 5к символов )
Для работы:
вписать модуль в Uses
a - переменная типа Tlines
В событии создания формы:
a := tlines.Create(self);
a.Parent := self;
doublebuffered := true;//для нормального отображения

Для добавления линии:
a.addline(x1, y1, x2, y2, rad: integer; penc, brushc: tcolor);
где x1,y1 - координаты 1 точки
x2,y2 - координаты 2 точки
rad - радиус точек на концах
penc - цвет линий
brushc - цвет точек на концах

Во Класный модуль - давно искал, думал сам писать !!!
еще добавим несколько функции типа Pen.Width>1 и стрелочки
+ возможность поворота вокруг своей оси

[BDA]

Похоже, правильнее описать процедуру Mousedown чуть по-другому:

procedure TLines.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: integer;
begin
  i := 0;
  while i <= high(p) do
  begin
    with p[i] do
      if button = mbLeft then
      begin
        if sqr(x - p1.X) + sqr(y - p1.Y) <= r * r then
          w := 1
        else
          if sqr(x - p2.X) + sqr(y - p2.Y) <= r * r then
            w := 2
          else
            if abs(sqrt(sqr(x - p1.X) + sqr(y - p1.Y)) + sqrt(sqr(x - p2.X) + sqr(y - p2.Y)) - sqrt(sqr(p1.x - p2.X) + sqr(p1.y - p2.Y))) < 1 then
              w := 3
            else
              w := 0;
        x0 := x;
        y0 := y;
        inc(i);
      end
      else
        if (button = mbRight) and (
          (abs(sqrt(sqr(x - p1.X) + sqr(y - p1.Y)) + sqrt(sqr(x - p2.X) + sqr(y - p2.Y)) - sqrt(sqr(p1.x - p2.X) + sqr(p1.y - p2.Y))) < 1)
          or (sqr(x - p1.X) + sqr(y - p1.Y) <= r * r)
          or (sqr(x - p2.X) + sqr(y - p2.Y) <= r * r)) then
          deleteline(i)
        else
          inc(i);
  end;
end;

[ZLoy_molo4nik]

Здравствуйте, у меня возникла проблема с рисованием фигур (пишу на делфи 7), точнее нужно нарисовать фигуру а потом ее поредактировать, уже создавал тему но никто так и не ответил (http://www.programmersforum.ru/showt...48#post1043448), хотел спросить у BDA, может вы посоветуете литературу что бы я мог розобратся. Еще на шел програмку которая делает то что мне нужно, но я немогу в ней разобраться.

[BDA]

ZLoy_molo4nik, вы переговорили с denisbrain?
Литературу не могу посоветовать, т.к. ничего не читал
Тему вашу видел, но ничего не написал, т.к. не представляю себе, как это делать.
Исходники программы достаточно прилично закоментированы, но она слишком комплексная, чтобы так с ходу понять полностью принцип работы.
Если не можете разобраться, то измените внешний вид, поудаляйте или перепишите комментарии

[ZLoy_molo4nik]

Сообщение от BDA

ZLoy_molo4nik, вы переговорили с denisbrain?
Литературу не могу посоветовать, т.к. ничего не читал
Тему вашу видел, но ничего не написал, т.к. не представляю себе, как это делать.
Исходники программы достаточно прилично закоментированы, но она слишком комплексная, чтобы так с ходу понять полностью принцип работы.
Если не можете разобраться, то измените внешний вид, поудаляйте или перепишите комментарии

да, я с ним говорил, просто хотел почитать про то как это делать.
Вот в том то и дело что нужно разобраться как правильно это сделать, просто написал ГИС, рисую обьекты обычними методами, все ок, только хотелось бы их редактировать. Спасибо за ответ