TChangeCurrentToolEvent

EasyMap VCL

TChangeCurrentToolEvent = procedure (Sender: TEasyMap; MapTool: TMapTool) of object;

Unit

MapObjects

Description

Event occurs when Map Tool changed.

Sender - map for which tool was changed

MapTool - new Map Tool

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