anchor.diff:        SelectingDirPosition.X := X;
         SelectingDirPosition.Y := Y;
         SelectedDirection := dir_NA;
  -      ShowDirectionCursor(true,X,Y,SelectedDirection);
  +      DirectionCursorShow(X, Y, SelectedDirection);
         Screen.Cursor := c_Invisible;
       end;
     end;
  
positive.code:     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);
    protected
      Panel_Main:TKMPanel;
        Image_Main1,Image_Main2,Image_Main3,Image_Main4,Image_Main5:TKMImage; //Toolbar background
  
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;
  
  