mapxlib_tlb.func

来自「This Delphi 4.0 example uses the MapX Ve」· FUNC 代码 · 共 42 行

// Delphi 4 auto generation TLB module (default MapXLib_TLB.pas)
// for MapX 3.5.2 fix 
// ------------------------------------------------------------------
// Include this into implementation section
// ==================================================================
//=====
function TMap.Get_Layers: CMapXLayers;
begin
  Result := ControlInterface.Layers;
end;
//=====
function TMap.Get_Datasets: CMapXDatasets;
begin
  Result := ControlInterface.Datasets;
end;
//=====
function TMap.Get_hWnd:	OLE_HANDLE;
begin
  Result := ControlInterface.hWnd;
end;
//=====
function TMap.Get_Annotations: CMapXAnnotations;
begin
  Result := ControlInterface.Annotations;
end;
//=====
function TMap.Get_Title: CMapXTitle;
begin
  Result := ControlInterface.Title;
end;
//=====
function TMap.Get_Geosets: CMapXGeosets;
begin
  Result := ControlInterface.Geosets;
end;
//=====
function TMap.Get_FeatureFactory: CMapXFeatureFactory;
begin
  Result := ControlInterface.FeatureFactory;
end;