Ver Mensaje Individual
  #1  
Antiguo 14-07-2005
TriLoCBA TriLoCBA is offline
Miembro
 
Registrado: jun 2005
Posts: 28
Reputación: 0
TriLoCBA Va por buen camino
Question MapObjects & Delphi

Como muestro dentro de un objeto TMap (llamado Map1) los label de un deteminado shapefile ???

Puntualmente, el shapefile contiene los tramos (arc) que representan cada una de las calles, y posee un campo NOM_CALLE, que lleva el nombre de las mismas.

Ya cree la capa correspondiente, le asigne color, y tipo de linea; pero no se como mostrar los nombres de calle:

Código:
  procedure TForm1.FormShow(Sender: TObject);
  var
    conexion: IMoDataConnection;
     Ly1,Ly2,Ly3,Ly4: IMoMapLayer;
  begin
   //Crear conexion con el directorio donde estan los datos...
   conexion :=  IMoDataConnection(CreateOleObject('MapObjects2.DataConnection'));
    conexion.Database:= 'C:\DatosGIS';
   
   if not conexion.Connect then exit;
  
   //Crear objetos Layer...
   Ly1:= IMoMapLayer(CreateOleObject('MapObjects2.MapLayer'));
   
   //Asignarle el shapefile...
   Ly1.GeoDataset:=conexion.FindGeoDataset('Calles_arc.shp');
   
    //Propiedades de la capa...
   Ly1.Symbol.Color:= $00C5BDBD;
    Ly1.Symbol.Style:= moDotLine;
   
   //Mostrar la capa...
   Map1.Layers.Add(Ly1);
   
   end;
Encontre dos objetos:
MapObjects2.LabelPlacer
MapObjects2.LabelRenderer
Pero aun no logro usarlos correctamente !!!

PD: Como se hace Torito !!!

Última edición por TriLoCBA fecha: 14-07-2005 a las 21:17:51.
Responder Con Cita