Implement select all songs feature, translations

reckel-jm · Mar 29, 2024 · 6776e59 · 6776e59
1 parent 82dcf5a
commit 6776e59
Show file tree

Hide file tree

Showing 10 changed files with 42 additions and 5 deletions.
diff --git a/src/forms/songselection.lfm b/src/forms/songselection.lfm
@@ -488,6 +488,10 @@ object frmSongs: TfrmSongs
         Caption = 'Save Song Selection As...'
         OnClick = itemSaveSelectionAsClick
       end
+      object itemSelectAllSongs: TMenuItem
+        Caption = 'Select all Songs'
+        OnClick = itemSelectAllSongsClick
+      end
       object Separator1: TMenuItem
         Caption = '-'
       end

diff --git a/src/forms/songselection.lrj b/src/forms/songselection.lrj
@@ -21,6 +21,7 @@
 {"hash":155413326,"name":"tfrmsongs.itemloadselection.caption","sourcebytes":[76,111,97,100,32,83,111,110,103,32,83,101,108,101,99,116,105,111,110,46,46,46],"value":"Load Song Selection..."},
 {"hash":138676478,"name":"tfrmsongs.itemsaveselection.caption","sourcebytes":[83,97,118,101,32,83,111,110,103,32,83,101,108,101,99,116,105,111,110,46,46,46],"value":"Save Song Selection..."},
 {"hash":255321406,"name":"tfrmsongs.itemsaveselectionas.caption","sourcebytes":[83,97,118,101,32,83,111,110,103,32,83,101,108,101,99,116,105,111,110,32,65,115,46,46,46],"value":"Save Song Selection As..."},
+{"hash":100382947,"name":"tfrmsongs.itemselectallsongs.caption","sourcebytes":[83,101,108,101,99,116,32,97,108,108,32,83,111,110,103,115],"value":"Select all Songs"},
 {"hash":126291129,"name":"tfrmsongs.itemreloadsonglist.caption","sourcebytes":[82,101,108,111,97,100,32,83,111,110,103,32,82,101,112,111,115,105,116,111,114,121],"value":"Reload Song Repository"},
 {"hash":14023582,"name":"tfrmsongs.itempresentation.caption","sourcebytes":[82,117,110,32,80,114,101,115,101,110,116,97,116,105,111,110],"value":"Run Presentation"},
 {"hash":4863637,"name":"tfrmsongs.itemend.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},

diff --git a/src/forms/songselection.pas b/src/forms/songselection.pas
@@ -73,6 +73,7 @@   TfrmSongs = class(TForm, IPresentationController)
     itemExportPptx: TMenuItem;
     itemMarkupExport: TMenuItem;
     itemExportPictures: TMenuItem;
+    itemSelectAllSongs: TMenuItem;
     OpenDialog: TOpenDialog;
     ControlPanel: TPanel;
     PanelSongTeXStatus: TPanel;
@@ -116,6 +117,7 @@   TfrmSongs = class(TForm, IPresentationController)
     procedure itemSaveClick(Sender: TObject);
     procedure itemSaveSelectionAsClick(Sender: TObject);
     procedure itemSaveSelectionClick(Sender: TObject);
+    procedure itemSelectAllSongsClick(Sender: TObject);
     procedure itemShowWelcomeAssistentClick(Sender: TObject);
     procedure itemSongEditorClick(Sender: TObject);
     procedure lbxSRepoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -642,6 +644,13 @@ procedure TfrmSongs.itemSaveSelectionClick(Sender: TObject);
     SaveSelection(LoadedSongSelectionFilePath);
 end;
 
+procedure TfrmSongs.itemSelectAllSongsClick(Sender: TObject);
+var i: Integer;
+begin
+  for i := 0 to lbxSRepo.Count-1 do
+    lbxSSelected.Items.Add(lbxSRepo.Items.Strings[i]);
+end;
+
 procedure TfrmSongs.SaveSelection(var FilePath: String);
 var TextFileHandler: TTextFileHandler;
 begin

diff --git a/src/languages/de/cantara.mo b/src/languages/de/cantara.mo
diff --git a/src/locals/cantara.de.po b/src/locals/cantara.de.po
@@ -368,7 +368,7 @@ msgstr "Den Editor beenden"
 
 #: tfrmeditorwelcome.btnnewsong.caption
 msgid "Create a new song"
-msgstr ""
+msgstr "Ein neues Lied anlegen"
 
 #: tfrmeditorwelcome.btnopendocs.caption
 msgid "Open Documentation in Webbrowser..."
@@ -493,15 +493,15 @@ msgstr "Präsentation"
 
 #: tfrmpresent.menuitemmovetoscreen.caption
 msgid "Move to other screen"
-msgstr ""
+msgstr "Auf einen anderen Bildschirm verschieben"
 
 #: tfrmpresent.menuitemquitpresentation.caption
 msgid "Quit Presentation"
-msgstr ""
+msgstr "Die Präsentation beenden"
 
 #: tfrmpresent.menuitemtogglefullscreen.caption
 msgid "Fullscreen"
-msgstr ""
+msgstr "Vollbild"
 
 #: tfrmsettings.bgcolordialog.title
 msgid "Select background color"
@@ -804,6 +804,10 @@ msgstr "Liedauswahl speichern..."
 msgid "Save Song Selection As..."
 msgstr "Liedauswahl speichern unter..."
 
+#: tfrmsongs.itemselectallsongs.caption
+msgid "Select all Songs"
+msgstr "Alle Lieder auswählen"
+
 #: tfrmsongs.itemsettings.caption
 msgctxt "tfrmsongs.itemsettings.caption"
 msgid "Settings..."
@@ -954,4 +958,3 @@ msgstr "Das ausgewählte Verzeichnis kann erfolgreich als Liederverzeichnis genu
 #: welcome.strnosongrepoyet
 msgid "Please select a song repository path before you leave the assistent. Cantara can not work without it."
 msgstr "Bitte wählen Sie einen Pfad für das Liederverzeichnis aus, bevor Sie den Assistenten verlassen. Ohne diesen kann Cantara nicht arbeiten."
-
diff --git a/src/locals/cantara.es.po b/src/locals/cantara.es.po
@@ -798,6 +798,10 @@ msgstr "Guardar selección de canción..."
 msgid "Save Song Selection As..."
 msgstr "Guardar selección de canciones como..."
 
+#: tfrmsongs.itemselectallsongs.caption
+msgid "Select all Songs"
+msgstr ""
+
 #: tfrmsongs.itemsettings.caption
 msgctxt "tfrmsongs.itemsettings.caption"
 msgid "Settings..."

diff --git a/src/locals/cantara.it.po b/src/locals/cantara.it.po
@@ -801,6 +801,10 @@ msgstr "Salva selezione brano..."
 msgid "Save Song Selection As..."
 msgstr "Salva selezione brano come..."
 
+#: tfrmsongs.itemselectallsongs.caption
+msgid "Select all Songs"
+msgstr ""
+
 #: tfrmsongs.itemsettings.caption
 msgctxt "tfrmsongs.itemsettings.caption"
 msgid "Settings..."

diff --git a/src/locals/cantara.nl.po b/src/locals/cantara.nl.po
@@ -799,6 +799,10 @@ msgstr "Songselectie opslaan..."
 msgid "Save Song Selection As..."
 msgstr "Songs opslaan als..."
 
+#: tfrmsongs.itemselectallsongs.caption
+msgid "Select all Songs"
+msgstr ""
+
 #: tfrmsongs.itemsettings.caption
 msgctxt "tfrmsongs.itemsettings.caption"
 msgid "Settings..."

diff --git a/src/locals/cantara.pot b/src/locals/cantara.pot
@@ -771,6 +771,10 @@ msgstr ""
 msgid "Save Song Selection As..."
 msgstr ""
 
+#: tfrmsongs.itemselectallsongs.caption
+msgid "Select all Songs"
+msgstr ""
+
 #: tfrmsongs.itemsettings.caption
 msgctxt "tfrmsongs.itemsettings.caption"
 msgid "Settings..."

diff --git a/src/locals/cantara.zh.po b/src/locals/cantara.zh.po
@@ -800,6 +800,10 @@ msgstr "保存歌曲選擇..."
 msgid "Save Song Selection As..."
 msgstr "將歌曲選擇另存為..."
 
+#: tfrmsongs.itemselectallsongs.caption
+msgid "Select all Songs"
+msgstr ""
+
 #: tfrmsongs.itemsettings.caption
 msgctxt "tfrmsongs.itemsettings.caption"
 msgid "Settings..."