Herramientas Cartograficas!!

[torito]

aqui esta el código para los colores

procedure TForm2.bbuni2Click(Sender: TObject);
var
a,z,si : integer;
begin
if rb3.Checked then
 begin
 si:=application.MessageBox( 'ESTA USTED SEGURO DE QUERER PONER COLOR UNO A UNO A CADA CLASIFICACIÓN?? ','COLOR UNO A UNO...', MB_OKCANCEL);
 If si = 2 Then
  exit;
 end;

if panel3.Visible=true then
cbr.RampColors(rcolor3.color,rcolor4.color);

l.Renderer:=nil;
if vmr.SymbolType = moFillSymbol then
 for a:=0 to vmr.ValueCount-1 do
  begin
  if cboxuni.Checked then
   begin
   vmr.Symbol[a].Outline:=true;
   vmr.Symbol[a].OutlineColor:=moblack;
   end else
   begin
   vmr.Symbol[a].Outline:=false;
   vmr.Symbol[a].OutlineColor:=vmr.Symbol[a].Color;
   end;
   if panel3.Visible=true then
    vmr.Symbol[a].Color:=cbr.Symbol[a].Color;
    ///fin si es por rampa
   if rb3.Checked then
    begin
     showmessage('ELIJA EL COLOR PARA EL VALOR '+vmr.Value[a]);
     colores.Execute;
     vmr.Symbol[a].Color:=colores.Color;
    end;//fin si es color unico
  end;//fin for
 if l.shapeType = moShapeTypeMultipoint then
 z:=0
 else
 z:=l.shapeType-21;
 vmr.SymbolType:=z;

 close;
{l.Renderer:=cbr;
form1.Map1.Refresh;}
l.Renderer:=vmr;
form1.Map1.Refresh;
form1.refresca_legend;
cbr:=nil;
vmr:=nil;
end; //fin procedure

la verdad hace mucho que no lo trabajo asi que te recomiendo si tienes dudas que leas el manual de Map Objects donde viene explicado..

Nota: si alguien sabe el comando para poner parrafos de referencia que ya hayan sido escritos se lo agradecaria mucho que me lo hiciera saber... saludos