MapForums

procedure TfrmData2Map.FormActivate(Sender: TObject);
var
   vGuid     : TGuid;
begin
   OleContainer.CreateObject('MapPoint.Map.EU.13', False);
   OleContainer.DoVerb(1);
   OleContainer.OleObjectInterface.GetUserClassID(vGuid);
   FMap := IDispatch(OleContainer.OleObject) as _Map; // global variable of type _Map
   mpApplication.Units := geoKm;
end;

unit uMP;

interface

uses
  Controls, Classes, OleCtnrs, MapPoint_TLB;

type
  TMP = class
  private
    FMap: _Map;
    OleContainer: TOleContainer;
  public
    constructor Create(AOwner: TComponent; ParentControl: TWinControl);
    destructor Destroy; override;
    property Map: _Map read FMap;
  end;

implementation

{ TMP }

constructor TMP.Create(AOwner: TComponent; ParentControl: TWinControl);
var
   Guid: TGuid;
begin
   OleContainer := TOleContainer.create(nil);
   OleContainer.Parent := ParentControl;
   OleContainer.Align := alClient;
   OleContainer.CreateObject('MapPoint.Map.EU.13', False);
   OleContainer.DoVerb(1);
   OleContainer.OleObjectInterface.GetUserClassID(Guid);
   FMap:= IDispatch(OleContainer.OleObject) as _Map;
   FMap.Application.Units := geoKm;
end;

destructor TMP.Destroy;
begin
   OleContainer.DestroyObject;
   OleContainer.Free;
   inherited;
end;

procedure TMain.FormActivate(Sender: TObject);
begin
   MP := TMP.Create(Self, MPPanel);
end;

procedure TMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   MP.Free;
end;

procedure TMain.FormActivate(Sender: TObject);
begin
   MP := TMP.Create(Self, MPPanel);
   MP.FMap := mpApplication.ActiveMap; // mpapplication is the object on the form
end;

unit MainU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, MapPntU, MapPoint_TLB, OleServer;

type
  TForm1 = class(TForm)
    pnlMapPoint: TPanel;
    Panel1: TPanel;
    btnChangeViewAndSave: TButton;
    Label1: TLabel;
    mpApplication: TApplication;
    procedure FormShow(Sender: TObject);
    procedure btnChangeViewAndSaveClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    MPnt: TMP;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
   MPnt := TMP.Create(Self, pnlMapPoint);

   // Note: If I set MPnt.FMap to the mpApplication.ActiveMap property, the map
   //       will be saved. BUT change of view (zooming to Location = London, UK)
   //       IS NOT visible on screen (in the oleContainer), only in the .ptm file.

   //       If you remove the following line, change of view IS visible on screen,
   //       but the map isn't saved. Try it...
   MPnt.FMap := mpApplication.ActiveMap;

   Self.WindowState := wsMaximized;
end;

procedure TForm1.btnChangeViewAndSaveClick(Sender: TObject);
var
   TestLoc: Location;
begin
   // Example: Go to a Location and zoom (only to change the view)

   // Changing the view is only visible if MPnt.FMap is not set
   // to mpApplication.ActiveMap!
   TestLoc := MPnt.FMap.GetLocation(51.5000, 0.5000, 0);
   TestLoc.GoTo_;
   MPnt.FMap.ZoomIn;
   MPnt.FMap.ZoomIn;
   MPnt.FMap.ZoomIn;

   // The map will only be saved if MPnt.FMap is set to mpApplication.ActiveMap!
   MPnt.FMap.SaveAs('c:\example_map.ptm', geoFormatMap, true);
end;

end.

unit MapPntU;

interface

uses MapPoint_TLB, Windows, SysUtils, Classes, Controls, OleServer, OleCtnrs;

type
  TMP = class
          constructor Create(AOwner: TComponent;ParentControl:TWinControl);
          destructor Destroy;
  private
          OleContainer1: TOleContainer;
          locNorthPole:Location;
          locSantaCruz:Location; //Center of western hemisphere
          Pi, dblHalfEarth, dblQuarterEarth:double;
  public
          FMap: _Map; // the active map
end;

implementation

constructor TMP.Create(AOwner: TComponent; ParentControl:TWinControl);
var
     vGuid: TGuid;
begin;
   OleContainer1:=TOleContainer.create(aowner);
   OleContainer1.Parent:=ParentControl;
   OleContainer1.Align := alClient;
   OleContainer1.CreateObject('MapPoint.Map.EU.13',False);
   OleContainer1.DoVerb(1);
   OleContainer1.OleObjectInterface.GetUserClassID(vGuid);
   FMap:= IDispatch(OleContainer1.OleObject) as _map;
   locNorthPole:=fmap.GetLocation(90,0,0);
   locSantaCruz:=fmap.GetLocation(0,-90,0);
   dblHalfEarth:=fmap.Distance(locNorthPole, fmap.GetLocation(-90, 0,0));
   dblQuarterEarth:=dblHalfEarth/2;
   Pi:=3.14159265358979;
end;

destructor TMP.Destroy;
begin
   FMap:=nil;
   OleContainer1.DestroyObject;
end;

end.

 // MPnt.FMap := mpApplication.ActiveMap;

 MPnt.FMap := mpApplication.ActiveMap;