anchor.diff:  begin
     UpdateDropBoxes;
     DoOptionsChange(True);
  +
  +  fLastColIndex := DropBox_Color.ItemIndex;
   end;
   
   
  
positive.code: 
  
  procedure TKMMenuSingleMap.UpdateDropBoxes;
  begin
    if DropBox_Loc.ItemIndex <> -1 then
      fSingleLoc := DropBox_Loc.GetSelectedTag
  
negative.code: 
    //Don't allow selecting separator
    if DropBox_Color.ItemIndex = 1 then
    begin
      colItemChange := DropBox_Color.ItemIndex - fLastColIndex;
      if colItemChange > 0 then
        DropBox_Color.ItemIndex := 2  // Going Down
      else
        DropBox_Color.ItemIndex := 0; // Going Up
    end;
  
    if InRange(DropBox_Color.ItemIndex, 0, DropBox_Color.List.RowCount - 1) then
      fSingleColor := DropBox_Color.List.Rows[DropBox_Color.ItemIndex].Cells[0].Color;
  