Update forms and language strings

reckel-jm · Mar 18, 2024 · 4e6964b · 4e6964b
1 parent 49ec591
commit 4e6964b
Show file tree

Hide file tree

Showing 24 changed files with 85 additions and 132 deletions.
diff --git a/src/forms/formfulltextsearch.lfm b/src/forms/formfulltextsearch.lfm
@@ -13,7 +13,7 @@ object frmWrapperFulltextSearch: TfrmWrapperFulltextSearch
   OnShow = FormShow
   Position = poOwnerFormCenter
   ShowInTaskBar = stNever
-  LCLVersion = '3.0.0.1'
+  LCLVersion = '3.2.0.0'
   inline Wrapper: TFrmFulltextsearch
     Left = 5
     Height = 273

diff --git a/src/forms/formmarkupexport.lfm b/src/forms/formmarkupexport.lfm
@@ -10,6 +10,7 @@ object FrmMarkupExport: TFrmMarkupExport
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnKeyDown = FormKeyDown
+  LCLVersion = '3.2.0.0'
   object TemplateBox: TGroupBox
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
@@ -23,8 +24,8 @@ object FrmMarkupExport: TFrmMarkupExport
     Width = 411
     Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'Template'
-    ClientHeight = 482
-    ClientWidth = 395
+    ClientHeight = 503
+    ClientWidth = 399
     TabOrder = 0
     object TemplateCombo: TListBox
       AnchorSideLeft.Control = TemplateBox
@@ -40,9 +41,8 @@ object FrmMarkupExport: TFrmMarkupExport
       Anchors = [akTop, akLeft, akRight]
       IntegralHeight = True
       ItemHeight = 0
-      OnClick = TemplateComboClick
-      OnSelectionChange = TemplateComboSelectionChange
       TabOrder = 0
+      OnSelectionChange = TemplateComboSelectionChange
     end
     inline TemplateEdit: TSynEdit
       AnchorSideLeft.Control = TemplateBox
@@ -563,8 +563,8 @@ object FrmMarkupExport: TFrmMarkupExport
     Width = 420
     Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'Result'
-    ClientHeight = 482
-    ClientWidth = 404
+    ClientHeight = 503
+    ClientWidth = 408
     TabOrder = 1
     inline ResultEdit: TSynEdit
       AnchorSideLeft.Control = Result
@@ -1078,8 +1078,8 @@ object FrmMarkupExport: TFrmMarkupExport
       Width = 404
       Anchors = [akLeft, akRight, akBottom]
       Caption = 'Copy to Clipboard'
-      OnClick = ClipboardButtonClick
       TabOrder = 1
+      OnClick = ClipboardButtonClick
     end
     object btnSaveToFile: TButton
       AnchorSideLeft.Control = Result
@@ -1093,8 +1093,8 @@ object FrmMarkupExport: TFrmMarkupExport
       Width = 404
       Anchors = [akLeft, akRight, akBottom]
       Caption = 'Save to File...'
-      OnClick = btnSaveToFileClick
       TabOrder = 2
+      OnClick = btnSaveToFileClick
     end
   end
   object Splitter1: TSplitter

diff --git a/src/forms/formmarkupexport.pas b/src/forms/formmarkupexport.pas
@@ -30,8 +30,6 @@   TFrmMarkupExport = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure TemplateComboChange(Sender: TObject);
-    procedure TemplateComboClick(Sender: TObject);
     procedure TemplateComboSelectionChange(Sender: TObject; User: Boolean);
     procedure TemplateEditChange(Sender: TObject);
   private
@@ -120,16 +118,6 @@ procedure TFrmMarkupExport.FormKeyDown(Sender: TObject; var Key: Word;
   if key = VK_Escape then self.Close;
 end;
 
-procedure TFrmMarkupExport.TemplateComboChange(Sender: TObject);
-begin
-
-end;
-
-procedure TFrmMarkupExport.TemplateComboClick(Sender: TObject);
-begin
-
-end;
-
 procedure TFrmMarkupExport.TemplateComboSelectionChange(Sender: TObject; User: Boolean);
 begin
   try

diff --git a/src/forms/info.lfm b/src/forms/info.lfm
@@ -13,6 +13,7 @@ object frmInfo: TfrmInfo
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
   Position = poMainFormCenter
+  LCLVersion = '3.2.0.0'
   object lblAuthor: TLabel
     Left = 0
     Height = 21

diff --git a/src/forms/present.lfm b/src/forms/present.lfm
@@ -15,6 +15,7 @@ object frmPresent: TfrmPresent
   OnResize = FormResize
   OnShow = FormShow
   Position = poScreenCenter
+  LCLVersion = '3.2.0.0'
   WindowState = wsMaximized
   object imageShower: TImage
     AnchorSideLeft.Control = Owner

diff --git a/src/forms/settings.lfm b/src/forms/settings.lfm
@@ -13,7 +13,6 @@ object frmSettings: TfrmSettings
   OnDestroy = FormDestroy
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '3.2.0.0'
   object labelSongDir: TLabel
     AnchorSideLeft.Control = gbPresentation
     AnchorSideTop.Control = edtRepoPath
@@ -94,16 +93,16 @@ object frmSettings: TfrmSettings
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Bottom = 5
     Caption = 'Presentation View'
-    ClientHeight = 432
-    ClientWidth = 912
+    ClientHeight = 413
+    ClientWidth = 920
     TabOrder = 5
     OnClick = gbPresentationClick
     object btnBackgroundColor: TButton
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = btnFontSizeManually
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ImagePresentationPreview
-      Left = 363
+      Left = 368
       Height = 23
       Top = 58
       Width = 344
@@ -118,7 +117,7 @@ object frmSettings: TfrmSettings
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = lblWrapAfter
       AnchorSideRight.Control = ImagePresentationPreview
-      Left = 363
+      Left = 368
       Height = 23
       Top = 35
       Width = 344
@@ -135,7 +134,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = btnBackgroundColor
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ImagePresentationPreview
-      Left = 363
+      Left = 368
       Height = 23
       Top = 81
       Width = 344
@@ -229,7 +228,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = btnTextColor
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ImagePresentationPreview
-      Left = 363
+      Left = 368
       Height = 23
       Top = 104
       Width = 344
@@ -246,7 +245,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = btnTextColor
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = btnBackgroundImage
-      Left = 146
+      Left = 151
       Height = 25
       Top = 104
       Width = 209
@@ -263,7 +262,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = btnBackgroundImage
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ImagePresentationPreview
-      Left = 363
+      Left = 368
       Height = 21
       Hint = 'The transparency of the background picture towards the background color'
       Top = 127
@@ -281,7 +280,7 @@ object frmSettings: TfrmSettings
     object lblImageBrightness: TLabel
       AnchorSideTop.Control = sbImageBrightness
       AnchorSideRight.Control = sbImageBrightness
-      Left = 152
+      Left = 157
       Height = 21
       Top = 127
       Width = 206
@@ -296,7 +295,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = sbImageBrightness
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = ImagePresentationPreview
-      Left = 579
+      Left = 584
       Height = 21
       Top = 148
       Width = 128
@@ -311,7 +310,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = lblWrapAfter
       AnchorSideTop.Side = asrBottom
       AnchorSideRight.Control = cbShowBackgroundImage
-      Left = 86
+      Left = 91
       Height = 34
       Top = 56
       Width = 50
@@ -328,7 +327,7 @@ object frmSettings: TfrmSettings
       Left = 0
       Height = 21
       Top = 35
-      Width = 355
+      Width = 360
       Anchors = [akTop, akLeft, akRight]
       Caption = 'Automatic wrap after how many lines (0 = off):'
       ParentColor = False
@@ -341,10 +340,10 @@ object frmSettings: TfrmSettings
       AnchorSideRight.Control = gbPresentation
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Control = memoMetaData
-      Left = 712
+      Left = 717
       Height = 198
       Top = 35
-      Width = 206
+      Width = 201
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderSpacing.Left = 5
       BorderSpacing.Right = 2
@@ -376,7 +375,7 @@ object frmSettings: TfrmSettings
       Left = 0
       Height = 21
       Top = 7
-      Width = 358
+      Width = 363
       Alignment = taRightJustify
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Right = 5
@@ -386,7 +385,7 @@ object frmSettings: TfrmSettings
     object comboHorizontal: TComboBox
       AnchorSideLeft.Control = btnFontSizeManually
       AnchorSideTop.Control = gbPresentation
-      Left = 363
+      Left = 368
       Height = 35
       Top = 0
       Width = 190
@@ -406,7 +405,7 @@ object frmSettings: TfrmSettings
       AnchorSideLeft.Control = comboHorizontal
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = gbPresentation
-      Left = 558
+      Left = 563
       Height = 35
       Top = 0
       Width = 190
@@ -429,7 +428,7 @@ object frmSettings: TfrmSettings
       AnchorSideTop.Control = comboVertical
       AnchorSideBottom.Control = comboVertical
       AnchorSideBottom.Side = asrBottom
-      Left = 753
+      Left = 758
       Height = 35
       Top = 0
       Width = 74

diff --git a/src/forms/settingspadding.lfm b/src/forms/settingspadding.lfm
@@ -6,7 +6,7 @@ object FormPadding: TFormPadding
   Caption = 'Additional Settings'
   ClientHeight = 240
   ClientWidth = 320
-  LCLVersion = '2.2.6.0'
+  LCLVersion = '3.2.0.0'
   inline frmSettingsDetailed: TFrameSettingsDetailed
     Height = 240
     Width = 320

diff --git a/src/forms/songeditor.lfm b/src/forms/songeditor.lfm
@@ -4,13 +4,11 @@ object frmSongEdit: TfrmSongEdit
   Top = -30
   Width = 1029
   Caption = 'Edit Files'
-  ClientHeight = 528
+  ClientHeight = 562
   ClientWidth = 1029
   Menu = EditorMenu
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
-  OnCreate = FormCreate
-  OnDblClick = FormDblClick
   OnShow = FormShow
   WindowState = wsMaximized
   object lsSongs: TListBox
@@ -20,14 +18,14 @@ object frmSongEdit: TfrmSongEdit
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 0
-    Height = 528
+    Height = 562
     Top = 0
     Width = 500
     Anchors = [akTop, akLeft, akRight, akBottom]
     ItemHeight = 0
-    OnClick = lsSongsClick
     Sorted = True
     TabOrder = 0
+    OnClick = lsSongsClick
   end
   object splitter: TSplitter
     AnchorSideLeft.Control = lsSongs
@@ -37,7 +35,7 @@ object frmSongEdit: TfrmSongEdit
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 500
-    Height = 528
+    Height = 562
     Top = 0
     Width = 6
     Align = alCustom
@@ -54,7 +52,7 @@ object frmSongEdit: TfrmSongEdit
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 506
-    Height = 528
+    Height = 562
     Top = 0
     Width = 523
     Anchors = [akTop, akLeft, akRight, akBottom]

diff --git a/src/forms/songeditor.pas b/src/forms/songeditor.pas
@@ -37,8 +37,6 @@   TfrmSongEdit = class(TForm)
     procedure btnOpenDocsClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure FormCreate(Sender: TObject);
-    procedure FormDblClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ItemCopyClick(Sender: TObject);
     procedure ItemCutClick(Sender: TObject);
@@ -463,16 +461,6 @@ procedure TfrmSongEdit.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   end;
 end;
 
-procedure TfrmSongEdit.FormCreate(Sender: TObject);
-begin
-
-end;
-
-procedure TfrmSongEdit.FormDblClick(Sender: TObject);
-begin
-
-end;
-
 procedure TfrmSongEdit.loadRepoIntoSongListbox;
 var
   i: Integer;