layeradd.~pas

来自「delphi+mapx应用实例,包含MAPX所有功能!值得下载学习!」· ~PAS 代码 · 共 77 行

unit layeradd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,MapXLib_TLB, ComObj;

type
  Taddlayer = class(TForm)
    layerlist: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    layername: TEdit;
    add: TButton;
    ok: TButton;
    procedure FormCreate(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addlayer: Taddlayer;
  currentmap : Tmap;

implementation

uses formmain;

{$R *.dfm}

procedure Taddlayer.FormCreate(Sender: TObject);
var
  lyr:mapxlib_tlb.layer;
  i:integer;
begin
  currentmap := mainform.Map1;
  layerlist.Clear;
  for i:=1 to currentmap.Layers.Count do
  begin
    lyr:=currentmap.layers.item[i];
    layerlist.items.Add(lyr.Name);
  end;
end;

procedure Taddlayer.addClick(Sender: TObject);
var
  //name : string;
  lyr : cmapxlayer;
  i:integer;
begin
  //if layername.Text then
  begin
    lyr :=currentmap.Layers.CreateLayer(layername.Text,emptyparam,1,emptyparam,emptyparam);
    lyr.Editable :=true;
    currentmap.Layers.InsertionLayer := lyr;
  end;
  layerlist.Clear;
  for i:=1 to currentmap.Layers.Count do
  begin
    lyr:=currentmap.layers.item(i);
    layerlist.items.Add(lyr.Name);
  end;

end;

procedure Taddlayer.okClick(Sender: TObject);
begin
  close;
end;

end.