Вопрос gmlib - направление поиска не работает

Question

Не могли бы вы помочь мне с этим вопросом? Смотрите описание ниже.

@author Ксавье Мартинес (кадетилль) @version 1.5.4

Проект МегаДемо

После нажатия на кнопку Search Direction ничего не происходит.

Программные циклы в модуле GMDirection в процедуре Execute:

ExecuteScript ('GetDirections', Params); повторить TGMGenFunc.ProcessMessages; till (GetIntegerField(DirectionsForm, DirectionsFormResponse) = 1); GetRetournedData;!

Answer 1

Я временно решил эту проблему в модуле GMMap.pas

function TGMObjects.ExecuteScript(NameFunct, Params: string): Boolean;
begin
    Result := False;

    Map.FDocLoaded := true; <<- new line

    if (csDesigning in ComponentState) or not Assigned(FMap) or
        not Map.Active or not Map.FDocLoaded then Exit;

    Result := FMap.ExecuteScript(NameFunct, Params);
end;