gearthmap.pas

来自「用delphi封装的一个Google map代码」· PAS 代码 · 共 59 行

unit GEarthMap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EarthMap, ComCtrls, ToolWin, XPMan;

type
  TFmEarthMap = class(TForm)
    stat1: TStatusBar;
    Xpmnfst1: TXPManifest;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OnShowGPS(Sender: TObject; Longitude, Latitude: Double);
    procedure OnMapzoomChange(Sender: TObject; AZoom: Integer);
  private
    FEmGoogle: TEarthMap;
  public
  end;

var
  FmEarthMap: TFmEarthMap;

implementation

{$R *.dfm}

{ TFmEarthMap }

procedure TFmEarthMap.FormCreate(Sender: TObject);
begin
  inherited;
  FEmGoogle := TEarthMap.Create(Self);
  FEmGoogle.Parent := Self;
  FEmGoogle.Align := alClient;
  FEmGoogle.OnMapGPS := OnShowGPS;
  FEmGoogle.OnMapZoomChange := OnMapzoomChange;
end;

procedure TFmEarthMap.FormDestroy(Sender: TObject);
begin
  FEmGoogle.Free;
  inherited;
end;

procedure TFmEarthMap.OnMapzoomChange(Sender: TObject; AZoom: Integer);
begin
  stat1.Panels[2].Text := '地图放大系数:' + IntToStr(FEmGoogle.MapZoom);
end;

procedure TFmEarthMap.OnShowGPS(Sender: TObject; Longitude, Latitude: Double);
begin
  stat1.Panels[0].Text := '经度:' + FloatToStr(Longitude);
  stat1.Panels[1].Text := '纬度:' + FloatToStr(Latitude);
end;

end.