EasyMap VCL
TEasyMap.OnChangeCurrentTool
property OnChangeCurrentTool: TMapNotifyEvent;
Description
Event occurs while changing current map tool.

procedure TForm1.EasyMap1ChangeCurrentTool(Sender: TEasyMap);
begin
 btnSelectorTool.Down := EasyMap1.CurrentTool = mtSelector;
 btnZoomInTool.Down := EasyMap1.CurrentTool = mtZoomIn;
end;