anchor.diff:  end;
   
   
  -procedure TKMMapEditor.ChangeDefenceTypes(aMode: TKMChangeDefenceTypeMode; aDirInc: Integer = 1);
  +procedure TKMMapEditor.UpdateMapEdCursorParams(aMode: TKMChangeDefenceTypeMode; aDirInc: Integer = 1);
   begin
     case aMode of
       //change direction forward
  
positive.code:     procedure PaintCenterScreen(aLayer: TKMPaintLayer);
      procedure PaintAIStart(aLayer: TKMPaintLayer);
  
      procedure ChangeDefenceTypes(aMode: TKMChangeDefenceTypeMode; aDirInc: Integer = 1);  //change units and def pos direction
  
      procedure AddDefenceMarker(const aLoc: TKMPoint);
  
  
negative.code:                 cmMarkers:    case gCursor.Tag1 of
                                  MARKER_DEFENCE:       begin
                                                          if ssCtrl in gCursor.SState then
                                                            UpdateMapEdCursorParams(cdmDir, -1)//change dir backward
                                                          else
                                                          if ssShift in gCursor.SState then
                                                            UpdateMapEdCursorParams(cdmGroupType)//change gtype
                                                          else
                                                          if ssAlt in gCursor.SState then
                                                            UpdateMapEdCursorParams(cdmDefPosType)//change att/def
                                                          else
                                                            UpdateMapEdCursorParams(cdmDir);//change dir
                                                        end;
                                end;
  
                  cmUnits:      if ssCtrl in gCursor.SState then
                                  UpdateMapEdCursorParams(cdmDir, -1)
                                else
                                if ssShift in gCursor.SState then
                                  UpdateMapEdCursorParams(cdmDir, 4)
                                else
                                  UpdateMapEdCursorParams(cdmDir);
                end;
    end;
  end;
  