Delphi + ArcView

Program Delphi ini adalah salah satu aplikasi pemetaan yang menggunakan ArcView. Dalam tulisan ini akan sedikit dibahas beberapa code Delphi untuk menghandel tampilan pada peta.

Langsung Pada contoh code yang sering digunakan dan diperlukan, yaitu:

Zoom Full Extent
frmpeta.ZoomExtent;

Zoom In
frmpeta.ZoomIn;

Zoom Out
frmpeta.ZoomOut;

Zoom
frmpeta.mapMode:=mmZOOM;
frmpeta.moMap.MousePointer:=moZoom;

Untuk menambah layer, mungkin prosedur ini bisa membantu

procedure Tfrmpeta.AddLayer(FileName,Name: string;visible: Boolean;Symbol: IMoSymbol);
var
mapLayer: IMoMapLayer;
begin
mapLayer:=CoMapLayer.Create;
mapLayer.File_:=FileName;
mapLayer.Name:=Name;
mapLayer.Visible:=visible;
if Symbol<>nil then
begin
if mapLayer.ShapeType=moShapeTypePolygon then
begin
mapLayer.Symbol.Outline:=Symbol.Outline;
mapLayer.Symbol.Style:=Symbol.Style;
end;
end;
if mapLayer.Valid then
begin
moMap.Layers.Add(mapLayer);
end
else
begin
ShowMessage('Layer Invalid');
end;
end;

Keterangan Lebih Lanjut bisa hubungi di E-mailku