Rescale Charts

When you click the #2 menu item, the script will scan all open windows and momentarily give each window focus by making it the active child window.   If the window is a chart, the rescale button (double headed blue arrow) is clicked while the Charts has the focus.

procedure ResizeAll;
var
  i: integer;
  f,p: TForm;
begin
  window:=1; p:=Self;
  for i:=0 to pred(MDIChildCount) do begin
    f:=ActiveMDIChild;
    if Copy(f.name,1,8)='frmChart' then btnRescale.Click;
    application.processmessages;
    p.Next;
  end;
end;

begin
  if who = 2 then ResizeAll;
end;