gmlib问题-搜索方向不起作用 [英] gmlib issue - search direction not working

问题描述

您能帮我解决这个问题吗?请参见下面的说明.

can you please help me with this issue? See description below.

@author Xavier Martinez(cadetill) @版本1.5.4

@author Xavier Martinez (cadetill) @version 1.5.4

Projekt MegaDemo

Projekt MegaDemo

点击搜索方向"按钮后，没有任何反应.

After clicking on button Search Direction nothing is happening.

程序Execute中以GMDirection为单位的程序循环:

Program cycles in unit GMDirection in procedure Execute:

ExecuteScript('GetDirections'，Params); 重复 TGMGenFunc.ProcessMessages; 直到(GetIntegerField(DirectionsForm，DirectionsFormResponse)= 1); GetRetournedData;！

ExecuteScript('GetDirections', Params); repeat TGMGenFunc.ProcessMessages; until (GetIntegerField(DirectionsForm, DirectionsFormResponse) = 1); GetRetournedData;!

推荐答案

我暂时在GMMap.pas单元中解决了此问题

I temporary solved this problem in GMMap.pas unit

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问题-搜索方向不起作用的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！