Yes of course. Here it is:
Code: Select all
uses TeeSelectorTool;
procedure TForm1.FormCreate(Sender: TObject);
var SelectorTool: TSelectorTool;
begin
SelectorTool := TSelectorTool.Create(Chart1);
SelectorTool.ParentChart := Chart1;
SelectorTool.AllowResizeChart := true;
end;