[maddamo4ka]

Спасибо за такой новогодний подарок!Ты просто спас мою надежду на получение автомата по экзамену А то что код никакой спасибо преподавателю..это он мне помог так Единственная проблема не могу сообразить как после передвижения нарисвать третию линию которая соединяла бы концы этих двух линий я пробовала сделать следующим образом:

Код:

with Form1.Image1.Canvas do begin
  Pen.Color:=clBlack;
 MoveTo(PTop1.X, PTop1.Y);
 LineTo(PTop2.X, PTop2.Y);
end;

но как-то она не рисуется. Если можешь выручи еще раз
И еще вопрос почему закомментированно вот это:

Код:

begin
 if (not Moving) or (iArr >= Delta) then exit;

 DrawShape(Point(Round(OldPTop.X + iArr * dx), Round(OldPTop.Y + iArr * dy)),
           Point(Round(OldPBottom.X + iArr * dx), Round(OldPBottom.Y + iArr * dy)),
           pmNotXor, clBlack);

 Inc(iArr);

{ OldPTop.X:= Round(OldPTop.X + iArr * dx);
 OldPBottom.X:= Round(OldPBottom.X + iArr * dx);
 OldPTop.Y:= Round(OldPTop.Y + iArr * dy);
 OldPBottom.Y:= Round(OldPBottom.Y + iArr * dy);}