LITMIR.BIZ

      procedure TForm1.Timer1Timer(Sender: TObject);

      var

      curPos: TPoint;

      delta: Real;

      begin

      if (curPos.X <> lastPos.X) or (curPos.Y <> lastPos.Y) then

      begin

      GetCursorPos(curPos);

      //Вычисляем разницу между текущим и прошлым

      //положением мыши

      delta := Sqrt(Sqr(curPos.X – lastPos.X) + Sqr(curPos.Y -

      lastPos.Y));

      distance := distance + delta;

      //Не забываем сохранить новые координаты указателя

      lastPos := curPos;

      if isUpdating then

      begin

      //Обновим показания в текстовом поле

      ShowDistance();

      end;

      end;

      end;

      procedure TForm1.cmbScaleClick(Sender: TObject);

      begin

      if cmbScale.Caption = 'Изменить масштаб' then

      begin

      //Начинаем изменение масштаба

      StopUpdating();

      cmbScale.Caption := 'Принять масштаб';

      txtWidth.Enabled := True;

      end

      else

      begin

      //Заканчиваем изменение масштаба

      txtWidth.Enabled := False;

      cmbScale.Caption := 'Изменить масштаб';

      StartUpdating();

      end;

      end;

      procedure TForm1.StartUpdating();

      begin

      //Включаем обновление показаний в текстовом поле

      isUpdating := True;

      end;

      procedure TForm1.StopUpdating();

      begin

      //Отключаем обновление показаний в текстовом поле

      isUpdating := False;

      end;

      procedure TForm1.FormCreate(Sender: TObject);

      begin

      //Инициализируем координаты мыши

      GetCursorPos(lastPos);

      StartUpdating();

      end;

      procedure TForm1.cmbClearClick(Sender: TObject);

      begin

      //Сбрасываем счетчик пройденного расстояния

      distance := 0;

      GetCursorPos(lastPos); //Начинаем отсчет с текущей

      //позиции указателя

      ShowDistance();

      end;