unit Form_MainU; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MapWinGIS_TLB, DB, Grids, DBGrids, DBTables, OleCtrls, ComCtrls,
StdCtrls ; type
TForm1 = class(TForm)
Button1: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Map1: TMap;
Table1: TTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
Button2: TButton;
StatusBar1: TStatusBar;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Map1MouseMove(ASender: TObject; Button, Shift: Smallint; x,
y: Integer);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
AShape:Shapefile;
MapHanle:integer;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
begin
self.OpenDialog1.FileName :='*.SHP';
if self.OpenDialog1.Execute() then
begin
AShape:=MapWinGIS_TLB.CoShapefile.Create;
AShape.Open(self.OpenDialog1.FileName,nil);
MapHanle:=self.Map1.AddLayer(AShape,true);
self.Table1.TableName :=ExtractFilePath(self.OpenDialog1.FileName)+'grid.dbf';
self.Table1.Active:=true;
end;
end; procedure TForm1.Map1MouseMove(ASender: TObject; Button, Shift: Smallint;
x, y: Integer);
var
XX,YY:Double;
begin
Self.Map1.PixelToProj(x,y,XX,YY);
Self.StatusBar1.Panels[].Text :='X='+formatFloat('#.##',XX);
Self.StatusBar1.Panels[].Text :='Y='+formatFloat('#.##',YY);
end; procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
x,y:Double;
begin
for i:= to AShape.NumShapes- do
begin
x:=AShape.Shape[i].Extents.xMin;
y:=AShape.Shape[i].Extents.yMin;
Self.Map1.AddLabel(MapHanle,'v',clBlack,x,y,MapWinGIS_TLB.hjCenter);//添加标注
Self.Map1.Redraw;//图层刷新
end;
end; procedure TForm1.Button3Click(Sender: TObject);
begin
self.Map1.ClearLabels(MapHanle);//删除标注
Self.Map1.Redraw;//刷新
end; end.
MapWinGIS添加标注的速度还是很快的，9万多个标注添加到图层上，等待的时间还是可以忍受的，大概6～9秒钟吧。