anchor.diff:    I, ListI, PrevTop: Integer;
     R: TKMListRow;
   begin
  -  PrevTop := ColumnBox_SingleMaps.TopIndex;
  -  ColumnBox_SingleMaps.Clear;
  +  PrevTop := ColumnBox_Maps.TopIndex;
  +  ColumnBox_Maps.Clear;
   
     fMaps.Lock;
     try
  
positive.code:     fMaps.Unlock;
    end;
  
    ColumnBox_SingleMaps.TopIndex := PrevTop;
    if aJumpToSelected
      and not InRange(ColumnBox_SingleMaps.ItemIndex - ColumnBox_SingleMaps.TopIndex, 0, ColumnBox_SingleMaps.GetVisibleRows - 1)
    then
      if ColumnBox_SingleMaps.ItemIndex < ColumnBox_SingleMaps.TopIndex + ColumnBox_SingleMaps.GetVisibleRows - 1 then
        ColumnBox_SingleMaps.TopIndex := ColumnBox_SingleMaps.ItemIndex
      else
      if ColumnBox_SingleMaps.ItemIndex > ColumnBox_SingleMaps.TopIndex + ColumnBox_SingleMaps.GetVisibleRows - 1 then
        ColumnBox_SingleMaps.TopIndex := ColumnBox_SingleMaps.ItemIndex - ColumnBox_SingleMaps.GetVisibleRows + 1;
  end;
  
  
  
negative.code: begin
    fSingleLoc := aValue;
  
    DropBox_Loc.SelectByTag(fSingleLoc);
  
    Update(True);
  end;
  