unitlocalgisproject.pas

此代码是关于mapgis的在

unit UnitLocalGISProject;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Forms, Graphics,
  MapXLib_TLB, Menus, UnitProject, UnitAppTypes;
  
type
  TLocalGISProject=class(TGISProject)
  private
    //
  protected
    procedure RegisterProjectStyles; override;
    procedure RegisterProjectTools; override;
  public
    constructor Create(AOwner:TComponent; MapX:TMapXObject); override;
    destructor Destroy; override;
    procedure DoOnCtrlPropDialog(Sender:TObject; ActionId:Integer; Ft:Feature); override;
    procedure DoBeforeDelete(Ft:Feature; ActionId:Integer); override;
    procedure AddLayerToProject(ALyr:CMapXLayer; ALayerInfo:TLayerTreeNodeRecord;
      const FCId:Integer); override;
    procedure DownloadProjectLayer(ALyr:CMapXLayer; ALayerInfo:TLayerTreeNodeRecord;
      const LayerName, Path:string); override;
    procedure LoadBusinessMenuItems(AMenuItem:TMenuItem); override;
    procedure LoadProject; override;
    procedure LoadMaps(const ItemIndex:Integer); override;
    procedure RegisterCmdCtrlGroups; override;
    procedure LoadParentInstanceModules; override;
    procedure DoFeatureDblClick(Sender:TObject; Ft:Feature); override;
  end;

implementation

{ TLocalGISProject }

procedure TLocalGISProject.AddLayerToProject(ALyr: CMapXLayer;
  ALayerInfo: TLayerTreeNodeRecord; const FCId: Integer);
begin
  inherited;
  
end;

constructor TLocalGISProject.Create(AOwner: TComponent; MapX: TMapXObject);
begin
  inherited Create(AOwner, MapX);

end;

destructor TLocalGISProject.Destroy;
begin

  inherited Destroy;
end;

procedure TLocalGISProject.DoBeforeDelete(Ft: Feature; ActionId:Integer);
begin
  inherited;

end;

procedure TLocalGISProject.DoFeatureDblClick(Sender: TObject; Ft: Feature);
begin
  inherited;

end;

procedure TLocalGISProject.DoOnCtrlPropDialog(Sender: TObject; ActionId:Integer;
  Ft: Feature);
begin
  inherited;

end;

procedure TLocalGISProject.DownloadProjectLayer(ALyr: CMapXLayer;
  ALayerInfo: TLayerTreeNodeRecord; const LayerName, Path: string);
begin
  inherited;

end;

procedure TLocalGISProject.LoadBusinessMenuItems(AMenuItem: TMenuItem);
begin
  inherited;

end;

procedure TLocalGISProject.LoadMaps(const ItemIndex: Integer);
begin
  inherited;

end;

procedure TLocalGISProject.LoadParentInstanceModules;
begin
  inherited;

end;

procedure TLocalGISProject.LoadProject;
begin
  inherited;

end;

procedure TLocalGISProject.RegisterCmdCtrlGroups;
begin
  inherited;

end;

procedure TLocalGISProject.RegisterProjectStyles;
begin
  inherited;

end;

procedure TLocalGISProject.RegisterProjectTools;
begin
  inherited;

end;

end.