GMLib MegaDemo.exe Won't load

Question

The map won't load anymore on the megademo.exe.
The problem start when i put: GMMap1.Active := True;

Thanks for the help.

Answer 1

try this

var
  FMapLoaded: boolean;

procedure TMainForm.GMMapAfterPageLoaded(Sender: TObject;
  First: Boolean);
begin
  inherited;
  if First and not FMapLoaded then
  begin
    GMMap.DoMap;
    FMapLoaded := True;
  end;
end;

Answer 2

To solve this problem, you must to change the method TGMMap.DocumentComplete from GMMapVCL unit with this

before

if (pDisp = CurDispatch) then

after

if not FDocLoaded and (pDisp = CurDispatch) then