anchor.diff:      procedure UpdateButtons;
       procedure UpdateSplitter;
       function UpdatePanels(const ACaption: string; AndFocus: boolean; ACheckExists: boolean): boolean;
  +    procedure UpdateToolbarControls;
       procedure InitFormFloat;
  -    procedure UpdateToolbarControls;
       property ToolbarUpdateCount: integer read FToolbarUpdateCount;
       property ToolbarUpdateTime: QWord read FToolbarUpdateTime;
     end;
  
positive.code:   end;
  end;
  
  procedure TAppPanelHost.UpdateToolbarControls;
  {
  var
    tick: QWord;
    }
  begin
    {
    tick:= GetTickCount64;
    }
  
    Toolbar.UpdateControls;
  
    {
    tick:= GetTickCount64-tick;
    Inc(FToolbarUpdateCount);
    Inc(FToolbarUpdateTime, tick);
    }
  end;
  
  procedure TAppPanelHost.HandleButtonClick(Sender: TObject);
  var
    Btn: TATButton;
  
negative.code:     FormFloat.Caption:= S+' - '+msgTitle;
  end;
  
  procedure TAppPanelHost.UpdateToolbarControls;
  {
  var
    tick: QWord;
    }
  begin
    {
    tick:= GetTickCount64;
    }
  
    Toolbar.UpdateControls;
  
    {
    tick:= GetTickCount64-tick;
    Inc(FToolbarUpdateCount);
    Inc(FToolbarUpdateTime, tick);
    }
  end;
  
  
  var
    id: TAppPanelId;
  
  