unit1.pas

GIS中关于节点编辑的例子

//James.Liu Demo show howto EditNodes In Map
//2004/515
//my tech forum:www.lbschina.com.cn/forum/index.asp
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Map1: TMap;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Map1AddFeatureToolUsed(Sender: TObject; ToolNum: Smallint;
      Flags: Integer; const Feature: IDispatch; bShift, bCtrl: WordBool;
      var EnableDefault: WordBool);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var olayer :cMapXLayer;
begin
        olayer := map1.Layers[1];
        olayer.Editable:=true;
        olayer.ShowNodes:=true;
        map1.Layers.InsertionLayer := olayer;
        map1.FeatureEditMode := 2 ;
        map1.CurrentTool :=miselecttool;
end;

procedure TForm1.Map1AddFeatureToolUsed(Sender: TObject; ToolNum: Smallint;
  Flags: Integer; const Feature: IDispatch; bShift, bCtrl: WordBool;
  var EnableDefault: WordBool);
begin
        showmessage('ok');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        map1.CurrentTool := miaddpointtool ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        map1.CurrentTool :=mizoomintool;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
        map1.CurrentTool :=mizoomouttool;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
        map1.CurrentTool :=miselecttool;
end;

procedure TForm1.Button5Click(Sender: TObject);
Var
olayer:CMapXLayer;
oftrs :CMapXFeatures;
oftr:CMapXFeature;
ods :CMapXDataset;
begin
      olayer:= map1.Layers[1];
      showmessage(booltostr(olayer.Editable)) ;
      olayer.Editable :=true;
      //ods:=map1.DataSets.Add(6,olayer,olayer.Name)
      oftrs:=CMapXFeatures(olayer.Selection);
      oftr:=oftrs[1];
      oftr.Parts.RemoveAll;
      oftr.Update(oftr,EmptyParam);
      map1.Refresh ;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
map1.FeatureEditMode := miEditModeAddNode ;
map1.CurrentTool :=miselecttool;
end;

end.