Herramientas Cartograficas!!

[torito]

te paso el código, pero no creo que te sirva de mucho si no sabes como se debe exportar el legend.... te recomiendo que leas todo el hilo para que sepas como exportarlo... saludos

procedure refresca_legend();
var
imap:_dmap;
intf:idispatch;
loadit:wordbool;
begin
with form1 do
 begin
 imap:=map1.controlinterface;
 intf:=imap as idispatch;
 legend1.setmapsource(intf);
 loadit:=true;
 legend1.loadlegend(loadit);
 legend1.showalllegend;
 end;
end;