gmlib 问题 - 搜索方向不起作用

Question

你能帮我解决这个问题吗？请参阅下面的说明。

@author Xavier Martinez (cadetill) @version 1.5.4

Project MegaDemo

点击搜索方向按钮后没有任何反应。

过程执行中单元 GMDirection 中的程序循环：

ExecuteScript('GetDirections', 参数); 重复 TGMGenFunc.ProcessMessages; 直到 (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;

gmlib 问题 - 搜索方向不起作用

gmlib issue - search direction not working

gmlib