anchor.diff:  procedure TKMapEdInterface.Terrain_HeightChange(Sender: TObject);
   begin
     GameCursor.MapEdSize := HeightSize.Position;
  -  GameCursor.MapEdSlope := HeightShape.Position;
  +  GameCursor.MapEdSlope := HeightSlope.Position;
   
     if Sender = HeightCircle then
     begin
  
positive.code:       cm_Houses:if MyPlayer.CanAddHousePlan(P, THouseType(GameCursor.Tag1)) then
                  begin
                    MyPlayer.AddHouse(THouseType(GameCursor.Tag1), P.X, P.Y, true);
                    Build_ButtonClick(Button_BuildRoad);
                  end;
        cm_Elevate,
        cm_Equalize:; //handled in UpdateStateIdle
  
negative.code: 
      Panel_Heights := TKMPanel.Create(Panel_Terrain,0,28,196,400);
        HeightSize   := TKMTrackBar.Create(Panel_Heights, 8, 10, 100, 1, 15); //1..15(4bit) for size
        HeightSize.Hint :=   fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_SIZE];
        HeightCircle := TKMButtonFlat.Create(Panel_Heights, 114, 8, 24, 24, 359);
        HeightCircle.Hint := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_CIRCLE];
        HeightSquare := TKMButtonFlat.Create(Panel_Heights, 142, 8, 24, 24, 352);
        HeightSquare.Hint := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_SQUARE];
        HeightSlope  := TKMTrackBar.Create(Panel_Heights, 8, 30, 100, 1, 15); //1..15(4bit) for slope shape
        HeightSlope.Hint := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_SLOPE];
  
        HeightElevate             := TKMButtonFlat.Create(Panel_Heights,8,70,180,20,0);
        HeightElevate.OnClick     := Terrain_HeightChange;
        HeightElevate.Down        := True;
        HeightElevate.Caption     := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_ELEVATE];
        HeightElevate.CapOffsetY  := -12;
        HeightElevate.Hint        := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_HINTS_ELEVATE];
        HeightUnequalize          := TKMButtonFlat.Create(Panel_Heights,8,100,180,20,0);
        HeightUnequalize.OnClick  := Terrain_HeightChange;
        HeightUnequalize.Caption  := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_UNEQUALIZE];
        HeightUnequalize.CapOffsetY  := -12;
        HeightUnequalize.Hint      := fTextLibrary[TX_MAPEDITOR_TERRAIN_HEIGHTS_HINTS_UNEQUALIZE];
  
        HeightSize.OnChange   := Terrain_HeightChange;
        HeightSlope.OnChange  := Terrain_HeightChange;
        HeightCircle.OnClick  := Terrain_HeightChange;
        HeightSquare.OnClick  := Terrain_HeightChange;
  
  