Hi Thomas,
I'm not sure if this will be implemented by tms, but it's quite easy to do it yourself
For Google and the VCL simply add the paramters "; AAvoidHighways: Boolean = False; AAvoidFerries: Boolean = False" behind "AAvoidTolls: Boolean = False"
to every appropriate routine. (.GetQuery and .GetPostData)
Behind AAvoidTolls add the two new parameters AAvoidHighways, AAvoidFerris to every call
In "VCL.TMSFNCDirections.Google.pas" at the end of "TTMSFNCDirectionsGoogleDirections.GetQuery" replace these two lines
if AAvoidTolls then
Result := Result + '&avoid=tolls';
with the following code:
with TStringList.Create do
try
Delimiter := '|';
StrictDelimiter := True;
if AAvoidTolls then
Add('tolls');
if AAvoidHighways then
Add('highways');
if AAvoidFerries then
Add('ferries');
if Count > 0 then
Result := Result + '&avoid='+DelimitedText;
finally
Free;
end;
it takes just 20 minutes!
As next, change "TTMSFNCDirections{ServiceName}Directions.GetQuery/.GetPostData" for the other desired services.