anchor.diff:  
       procedure RefreshCampaign;
   
  +    function Visible: Boolean;
  +
       procedure UpdateState(aTickCount: Cardinal);
     end;
   
  
positive.code: end;
  
  
  procedure TKMMenuCampaign.UpdateState(aTickCount: Cardinal);
  begin
    if fCampaign <> nil then
      if fCampaign.Maps[fMapIndex].NodeCount > 0 then
        AnimNodes(aTickCount);
  end;
  
  
  
negative.code: var
    I: Integer;
  begin
    if (fCampaign = nil) or not Visible then Exit;
  
    //Special rules for resizing the campaigns panel
    Panel_Campaign_Flags.Scale := Min(768,Y) / 768;
    Panel_Campaign_Flags.Left := Round(1024*(1-Panel_Campaign_Flags.Scale) / 2);
  