ProjectGroup: confirmation on reload in case of unsaved changes (fix ToDo)

git-svn-id: trunk@62513 -
This commit is contained in:
ondrej 2020-01-08 17:09:33 +00:00
parent e1a09a86f4
commit 6d24a7b175
13 changed files with 48 additions and 105 deletions

View File

@ -52,6 +52,10 @@ msgstr "Erstellmodus nicht gefunden"
msgid "Build mode \"%s\" not found."
msgstr "Erstellmodus \"%s\" nicht gefunden."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr ""
@ -148,10 +152,6 @@ msgstr "lazbuild nicht gefunden"
msgid "More"
msgstr "Weitere"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr ""
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -230,11 +230,6 @@ msgstr "Package \"%s\" nicht gefunden."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Pascal-Dateien (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Bitte speichern Sie ihre Änderungen vor dem Neuladen der Projektgruppe."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -51,6 +51,10 @@ msgstr "Mode de construction introuvable"
msgid "Build mode \"%s\" not found."
msgstr "Le mode de construction \"%s\" est introuvable."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr "Cible de \"Compiler\" et \"Construire\""
@ -143,10 +147,6 @@ msgstr "lazbuild introuvable"
msgid "More"
msgstr "Plus"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Enregistrement nécessaire"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -225,11 +225,6 @@ msgstr "Paquet \"%s\" non trouvé."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Fichiers Pascal (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Veuillez enregistrer les modifications avant de recharger le groupe de projets."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -51,6 +51,10 @@ msgstr "Építési mód nem található."
msgid "Build mode \"%s\" not found."
msgstr "A(z) \"%s\" építési mód nem található."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr "\"Fordítás\" és \"Építés\" a projektcsoportnak megfelelően"
@ -143,10 +147,6 @@ msgstr "lazbuild nem található"
msgid "More"
msgstr "Továbbiak"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Mentés szükséges"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -225,11 +225,6 @@ msgstr "A(z) \"%s\" csomag nem található."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Pascal fájlok (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Menteni kell a változásokat mielőtt újra betölti a projektcsoportot."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -41,6 +41,10 @@ msgstr "Modalità di costruzione non trovata"
msgid "Build mode \"%s\" not found."
msgstr "Modalità di costruzione \"%s\" non trovata."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr ""
@ -137,10 +141,6 @@ msgstr "lazbuild non trovato"
msgid "More"
msgstr "Altro"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Salvataggio richiesto"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -225,11 +225,6 @@ msgstr "Pacchetto \"%s\" non trovato."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "File Pascal (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Salvare i cambiamenti prima di ricaricare il gruppo di progetti."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -52,6 +52,10 @@ msgstr "Nerastas darymo rėžimas"
msgid "Build mode \"%s\" not found."
msgstr "Nerastas darymo rėžimas „%s“."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr ""
@ -148,10 +152,6 @@ msgstr "„lazbuild“ nerastas"
msgid "More"
msgstr "Daugiau"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Būtina įrašyti"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -230,11 +230,6 @@ msgstr "Paketas „%s“ nerastas."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Paskalio failai (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Prieš iš naujo įkeliant projekto grupę reikia įrašyti pakeitimus."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -41,6 +41,10 @@ msgstr ""
msgid "Build mode \"%s\" not found."
msgstr ""
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr ""
@ -130,10 +134,6 @@ msgstr ""
msgid "More"
msgstr ""
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr ""
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -212,11 +212,6 @@ msgstr ""
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr ""
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr ""
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -51,6 +51,10 @@ msgstr "Modo de construção não encontrado"
msgid "Build mode \"%s\" not found."
msgstr "Modo construção \"%s\" não encontrado."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr "\"Compilar\" e \"Construir\" alvo da compilação"
@ -143,10 +147,6 @@ msgstr "lazbuild não encontrado"
msgid "More"
msgstr "Mais"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Necessário salvar"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -225,11 +225,6 @@ msgstr "Pacote \"%s\" não encontrado."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Arquivos pascal (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Favor salvar suas alterações antes de recarregar o grupo de projeto"
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -51,6 +51,10 @@ msgstr "Режим сборки не найден"
msgid "Build mode \"%s\" not found."
msgstr "Режим сборки \"%s\" не найден."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr "Компилировать цель командами \"Компилировать\" и \"Собрать\""
@ -143,10 +147,6 @@ msgstr "Программа lazbuild не найдена"
msgid "More"
msgstr "Прочие"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Требуется сохранение"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -225,11 +225,6 @@ msgstr "Пакет \"%s\" не найден."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Файлы Паскаля (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Сохраните ваши изменения перед перезагрузкой группы проектов."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -51,6 +51,10 @@ msgstr "Derleme modu bulunamadı"
msgid "Build mode \"%s\" not found."
msgstr "\"%s\" Derleme modu bulunamadı."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr "\"Compile\" ve \"Build\" derleme hedefi"
@ -143,10 +147,6 @@ msgstr "lazbuild bulunamadı"
msgid "More"
msgstr "Daha fazla"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Kaydetmeniz gerekir"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -225,11 +225,6 @@ msgstr "Paket \"%s\" bulunamadı."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Pascal dosyaları (*.pas;*.pp)|*.pas;*.pp"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Lütfen proje grubunu yeniden yüklemeden önce değişikliklerinizi kaydedin."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -52,6 +52,10 @@ msgstr "Режим збирання не знайдено"
msgid "Build mode \"%s\" not found."
msgstr "Режим збирання \"%s\" не знайдено."
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr "\"Компілювати\" і \"Зібрати\" компілюють ціль"
@ -144,10 +148,6 @@ msgstr "Програму lazbuild не знайдено"
msgid "More"
msgstr "Більше"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "Потрібно зберегти"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -226,11 +226,6 @@ msgstr "Пакунок \"%s\" не знайдено."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Файли Паскалю (*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "Збережіть ваші зміни перед перезавантаженням групи проєктів."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -52,6 +52,10 @@ msgstr "构建模式未找到"
msgid "Build mode \"%s\" not found."
msgstr "构建模式\"%s\"未找到"
#: projectgroupstrconst.lischangesgetlostatreload
msgid "There are unsaved changes that get lost if you reload the project group. Do you really want to reload?"
msgstr ""
#: projectgroupstrconst.liscompileandbuildcompiletarget
msgid "\"Compile\" and \"Build\" compile target"
msgstr ""
@ -148,10 +152,6 @@ msgstr "lazbuild未找到"
msgid "More"
msgstr "更多"
#: projectgroupstrconst.lisneedsave
msgid "Need save"
msgstr "需要保存"
#: projectgroupstrconst.lisnewprojectgroup
msgctxt "projectgroupstrconst.lisnewprojectgroup"
msgid "New project group"
@ -230,11 +230,6 @@ msgstr "包\"%s\"未找到."
msgid "Pascal files (*.pas;*.pp;*.p)"
msgstr "Pascal文件(*.pas;*.pp;*.p)"
#: projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou
msgctxt "projectgroupstrconst.lispleasesaveyourchangesbeforereloadingtheprojectgrou"
msgid "Please save your changes before reloading the project group."
msgstr "请保存你的更改 在重新加载该工程组前."
#: projectgroupstrconst.lisprojectgroup
#, object-pascal-format
msgid "Project group %s"

View File

@ -970,11 +970,9 @@ begin
begin
PG:=TIDEProjectGroup(ProjectGroup);
if PG.Modified then begin
// ToDo: revert
IDEMessageDialog(lisNeedSave, lisPleaseSaveYourChangesBeforeReloadingTheProjectGrou,
mtError,[mbOK]);
PG.UpdateMissing;
exit;
if IDEMessageDialog(lisProjectGroupModified, lisChangesGetLostAtReload, mtConfirmation, mbYesNo)<>mrYes then
exit;
end;
ProjectGroup:=nil;
try

View File

@ -128,8 +128,8 @@ Resourcestring
lisLazarusPackagesLpk = 'Lazarus packages (*.lpk)';
lisLazarusProjectGroupsLpg = 'Lazarus project groups (*.lpg)';
lisPascalFilePasPpP = 'Pascal files (*.pas;*.pp;*.p)';
lisNeedSave = 'Need save';
lisPleaseSaveYourChangesBeforeReloadingTheProjectGrou = 'Please save your changes before reloading the project group.';
lisChangesGetLostAtReload = 'There are unsaved changes that get lost if you reload the project group. '+
'Do you really want to reload?';
lisProjectGroupReload = 'Reload';
lisMore = 'More';