mapxadvance.pas

来自「此代码是关于mapgis的在」· PAS 代码 · 共 25 行

unit MapXAdvance;

interface

uses
  Classes, MapXLib_TLB, MapXContainer, MapXStyles;

function CreateMapToolsObject(AOwner:TComponent; MapX:TMapXObject):TMapCtrlTools;

implementation

uses
  MapXTools;

function CreateMapToolsObject(AOwner:TComponent; MapX:TMapXObject):TMapCtrlTools;
begin
  Result:=TMapCtrlTools.Create(AOwner);
  Result.MapX:=MapX;
  RegisterSystemStyles(Result.m_Map.SysStyles);
  RegisterSystemTools(Result.m_Map.SysTools, MapX);
  RegisterUserTools(Result.m_Map.UserTools, Result.m_Map);
end;

end.