Various improvements

build_v2.mswin.x86.cmd

@@ -3,7 +3,16 @@
 set CONFIG_TYPE=Debug
 for %%a in (release Release RELEASE) do if (%%a)==(%1) SET CONFIG_TYPE=Release
 
-set MSBDIR=@%WINDIR%\Microsoft.NET\Framework\v4.0.30319
+set MSBDIR="C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin"
+@if exist %MSBDIR%\msbuild.exe goto build
+
+set MSBDIR="C:\Program Files (x86)\Microsoft Visual Studio\2017\BuildTools\MSBuild\15.0\Bin"
+@if exist %MSBDIR%\msbuild.exe goto build
+
+echo Build is not possible!
+goto quit
+
+:build
 %MSBDIR%\msbuild.exe projects\GKv2\GEDKeeper2.sln /p:Configuration=%CONFIG_TYPE% /p:Platform="x86" /t:Rebuild /p:TargetFrameworkVersion=v4.7.1
 
 set BUILD_STATUS=%ERRORLEVEL% 
@@ -21,3 +30,5 @@ set NUNIT="nunit_not_found"
 %NUNIT% projects\GKTests\bin\Debug\GKTests.dll
 pause 
 exit /b 0
+
+:quit

fast_run.cmd

@@ -4,12 +4,24 @@
 
 call clean.cmd
 
-rem set MSBDIR=C:\Program Files (x86)\Microsoft Visual Studio\2017\BuildTools\MSBuild\15.0\Bin
-rem set MSBDIR=C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin
-rem set MSBDIR=C:\Program Files (x86)\MSBuild\14.0\Bin
+set MSBDIR="C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\MSBuild\Current\Bin"
+@if exist %MSBDIR%\msbuild.exe goto build
 
-set MSBDIR=@%WINDIR%\Microsoft.NET\Framework\v4.0.30319
+set MSBDIR="C:\Program Files (x86)\Microsoft Visual Studio\2017\BuildTools\MSBuild\15.0\Bin"
+@if exist %MSBDIR%\msbuild.exe goto build
+
+echo Build is not possible!
+goto quit
+
+rem Don't build with wf4.7.1 and lang7.3, only for 1-6
+rem set MSBDIR="C:\Program Files (x86)\MSBuild\14.0\Bin"
+rem Don't build with wf4.7.1 and lang7.3, only for 1-5
+rem set MSBDIR=@%WINDIR%\Microsoft.NET\Framework\v4.0.30319
+
+:build
 %MSBDIR%\msbuild.exe projects\GKv2\GEDKeeper2.sln /verbosity:quiet /p:Configuration="Debug" /p:Platform="x86" /t:Rebuild /p:TargetFrameworkVersion=v4.7.1
 
 :start
 start .\bin\GEDKeeper2.exe
+
+:quit

locales/Afrikaans.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Belarusian.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Chinese Simplified.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Dutch.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/English.lng

@@ -994,3 +994,4 @@
 982=Cross Corners       ; tree border style
 
 983=Select list
+984=Links to subordinate locations

locales/Hungarian.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Icelandic.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Japanese.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Kazakh (Cyrillic).lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Portuguese.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Serbian (Latin).lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/Spanish.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/czech.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/french.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/german.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/help_enu/gkhHistory.html

@@ -12,6 +12,8 @@ <h1>Change log</h1>
 
     <p>
         <b>14.06.2024 [v2.30.1 &amp; v3.6.1]</b><ul>
+            <li>Added a section for links to subordinate locations in the location information panel.
+            <li>Added function for duplicating location records.
             <li>The feature of selecting and exporting a separate list of records (notes, multimedia, locations) to a GEDCOM file has been added to the database splitting tool.
             <li>Added saving of column width settings for all lists.
             <li>Completed Spanish localization [Miguel Á. Pérez Valdenebro].

locales/help_rus/gkhHistory.html

@@ -12,6 +12,8 @@ <h1>История версий</h1>
 
     <p>
         <b>14.06.2024 [v2.30.1 &amp; v3.6.1]</b><ul>
+            <li>Добавлена секция ссылок на подчиненные места в панель информации мест.
+            <li>Добавлена функция дублирования записей локаций.
             <li>В инструмент разделения базы данных добавлена фича выбора и экспорта отдельного списка записей (заметки, мультимедиа, локации) в GEDCOM-файл.
             <li>Добавлено запоминание настроек ширины столбцов всех списков.
             <li>Завершена локализация на испанский язык [Miguel Á. Pérez Valdenebro].

locales/italian.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/polish.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

locales/russian.lng

@@ -994,3 +994,4 @@
 982=Перекрестные углы
 
 983=Выбрать список
+984=Ссылки на подчиненные места

locales/ukrainian.lng

@@ -994,3 +994,4 @@
 982=Cross Corners
 
 983=Select list
+984=Links to subordinate locations

projects/GKCore/GKCore/Controllers/BaseWinController.cs

@@ -309,15 +309,24 @@ public void NotifyRecord(GDMRecord record, RecordAction action)
         public void DuplicateRecord()
         {
             GDMRecord original = GetSelectedRecordEx();
-            if (original == null || original.RecordType != GDMRecordType.rtIndividual) return;
+            if (original == null) return;
+
+            if (original.RecordType != GDMRecordType.rtIndividual && original.RecordType != GDMRecordType.rtLocation) return;
 
             AppHost.StdDialogs.ShowWarning(LangMan.LS(LSID.DuplicateWarning));
 
-            GDMIndividualRecord target;
+            GDMRecord target;
             try {
                 fContext.BeginUpdate();
 
-                target = fContext.Tree.CreateIndividual();
+                if (original.RecordType == GDMRecordType.rtIndividual) {
+                    target = fContext.Tree.CreateIndividual();
+                } else if (original.RecordType == GDMRecordType.rtLocation) {
+                    target = fContext.Tree.CreateLocation();
+                } else {
+                    return;
+                }
+
                 target.Assign(original);
 
                 NotifyRecord(target, RecordAction.raAdd);

projects/GKCore/GKCore/GKUtils.cs

@@ -201,6 +201,28 @@ public static StringList GetLocationLinks(GDMTree tree, GDMLocationRecord locRec
             return linksList;
         }
 
+        public static StringList GetLocationSubordinateLinks(GDMTree tree, GDMLocationRecord locRec)
+        {
+            var linksList = new StringList();
+            if (locRec == null) return linksList;
+
+            for (int i = 0, num = tree.RecordsCount; i < num; i++) {
+                var locTemp = tree[i] as GDMLocationRecord;
+                if (locTemp == null) continue;
+
+                for (int j = 0, num2 = locTemp.TopLevels.Count; j < num2; j++) {
+                    var topLink = locTemp.TopLevels[j];
+
+                    if (topLink.XRef == locRec.XRef) {
+                        linksList.AddObject(GetRecordName(tree, locTemp, false), locTemp);
+                        break;
+                    }
+                }
+            }
+
+            return linksList;
+        }
+
         public static string HyperLink(string xref, string text)
         {
             string result;
@@ -3005,7 +3027,7 @@ public static void ShowLocationInfo(IBaseContext baseContext, GDMLocationRecord
                                 var topLev = locRec.TopLevels[i];
                                 var topLoc = tree.GetPtrValue<GDMLocationRecord>(topLev);
 
-                                string st = HyperLink(topLev.XRef, topLoc.GetNameByDate(topLev.Date.Value, ATDEnumeration.fStL));
+                                string st = HyperLink(topLev.XRef, topLoc.GetNameByDate(topLev.Date.Value));
                                 if (!string.IsNullOrEmpty(st)) {
                                     summary.Add("    " + st);
                                 }
@@ -3037,7 +3059,6 @@ public static void ShowLocationInfo(IBaseContext baseContext, GDMLocationRecord
                         }
 
                         linkList = GetLocationLinks(tree, locRec);
-
                         if (linkList.Count > 0) {
                             linkList.Sort();
 
@@ -3053,6 +3074,19 @@ public static void ShowLocationInfo(IBaseContext baseContext, GDMLocationRecord
 
                         RecListNotesRefresh(baseContext, locRec, summary);
                         RecListMediaRefresh(baseContext, locRec, summary);
+
+                        var subLinks = GetLocationSubordinateLinks(tree, locRec);
+                        if (subLinks.Count > 0) {
+                            subLinks.Sort();
+
+                            summary.Add("");
+                            summary.Add(LangMan.LS(LSID.SubordinateLocationsLinks) + ":");
+
+                            for (int i = 0, num = subLinks.Count; i < num; i++) {
+                                GDMRecord rec = subLinks.GetObject(i) as GDMRecord;
+                                summary.Add("    " + HyperLink(rec.XRef, subLinks[i]));
+                            }
+                        }
                     }
                 } finally {
                     if (linkList != null) linkList.Dispose();

projects/GKCore/GKCore/LangMan.cs

@@ -1058,6 +1058,7 @@ public enum LSID
         /* 982 */ TBS_CrossCorners,
 
         /* 983 */ SelList,
+        /* 984 */ SubordinateLocationsLinks,
 
         /* 000 */ Last = SelList
     }
@@ -2071,6 +2072,7 @@ public static class LangMan
             /* 982 */ "Cross Corners",
 
             /* 983 */ "Select list",
+            /* 984 */ "Links to subordinate locations",
         };
 
         private static readonly LangManager fLangMan = new LangManager();

projects/GKCore/GKCore/Lists/ListColumns.cs

@@ -39,7 +39,8 @@ public sealed class ListColumn
         public readonly bool DefActive;
         public readonly string Format;
         public readonly NumberFormatInfo NumFmt;
-        public readonly bool Autosize;
+
+        public bool Autosize;
 
         public int CurWidth;
         public bool CurActive;

projects/GKCore/GKCore/Lists/ListSource.cs

@@ -210,6 +210,7 @@ public virtual void ChangeColumnWidth(int colIndex, int colWidth)
 
             if (props != null) {
                 props.CurWidth = colWidth;
+                props.Autosize = false;
             }
         }
 

projects/GKCore/GKCore/Lists/LocationListModel.cs

@@ -53,7 +53,7 @@ public static ListColumns CreateListColumns()
 
             result.AddColumn(LSID.NumberSym, DataType.dtInteger, 50, true);
             result.AddColumn(LSID.Title, DataType.dtString, 300, true, true);
-            result.AddColumn("Ext", DataType.dtString, 60, true, true);
+            result.AddColumn("Ext", DataType.dtString, 60, true, false);
             result.AddColumn(LSID.Latitude, DataType.dtFloat, 120, true, false, GEDCOMUtils.CoordFormat, GEDCOMUtils.CoordNumberFormatInfo);
             result.AddColumn(LSID.Longitude, DataType.dtFloat, 120, true, false, GEDCOMUtils.CoordFormat, GEDCOMUtils.CoordNumberFormatInfo);
             result.AddColumn(LSID.Changed, DataType.dtDateTime, 150, true);
@@ -118,7 +118,7 @@ protected override object GetColumnValueEx(int colType, int colSubtype, bool isV
                     break;
 
                 case ColumnType.ctName:
-                    result = fFetchedRec.GetNameByDate(null, ATDEnumeration.fLtS, true);
+                    result = fFetchedRec.GetNameByDate(null, true);
                     break;
 
                 case ColumnType.ctExt:

projects/GKv2/GEDKeeper2/GKUI/Forms/BaseWinSDI.cs

@@ -296,9 +296,11 @@ private void Form_KeyDown(object sender, KeyEventArgs e)
 
         private void contextMenu_Opening(object sender, CancelEventArgs e)
         {
-            IListView recView = contextMenu.SourceControl as GKListView;
+            //IListView recView = contextMenu.SourceControl as GKListView;
+            // (recView == fController.GetRecordsViewByType(GDMRecordType.rtIndividual))
 
-            miContRecordDuplicate.Enabled = (recView == fController.GetRecordsViewByType(GDMRecordType.rtIndividual));
+            var selectedRecType = fController.GetSelectedRecordType();
+            miContRecordDuplicate.Enabled = (selectedRecType == GDMRecordType.rtIndividual || selectedRecType == GDMRecordType.rtLocation);
         }
 
         private void miRecordAdd_Click(object sender, EventArgs e)