anchor.diff:      procedure Stats_Fill(Sender:TObject);
       procedure Menu_Fill(Sender:TObject);
       procedure SetPause(aValue:boolean);
  -    procedure ShowDirectionCursor(Show:boolean; const aX: integer = 0; const aY: integer = 0; const Dir: TKMDirection = dir_NA);
  +    procedure DirectionCursorShow(X,Y: Integer; Dir:TKMDirection);
  +    procedure DirectionCursorHide;
     protected
       Panel_Main:TKMPanel;
         Image_Main1,Image_Main2,Image_Main3,Image_Main4,Image_Main5:TKMImage; //Toolbar background
  
positive.code: 
    if fJoiningGroups and (fShownUnit is TKMUnitWarrior) then
    begin
      U := MyPlayer.UnitsHitTest(GameCursor.Cell.X, GameCursor.Cell.Y); //Scan only teammates
      if (U is TKMUnitWarrior) and (not U.IsDeadOrDying) and
         (not TKMUnitWarrior(U).IsSameGroup(TKMUnitWarrior(fShownUnit))) and
         (UnitGroups[U.UnitType] = UnitGroups[fShownUnit.UnitType]) then
        Screen.Cursor := c_JoinYes
  
negative.code:     Form1.ApplyCursorRestriction; //Reset the cursor restrictions from selecting direction
      SelectingTroopDirection := false;
      Screen.Cursor := c_Default; //Reset direction selection cursor when mouse released
      DirectionCursorHide;
    end;
  end;
  
  