New fields localisation

zbyna · Aug 6, 2020 · f729a23 · f729a23
1 parent d46cc22
commit f729a23
Show file tree

Hide file tree

Showing 6 changed files with 212 additions and 57 deletions.
diff --git a/YouTubeBookConverter.lpi b/YouTubeBookConverter.lpi
@@ -100,7 +100,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <CommandLineParams Value="-l EN"/>
+        <CommandLineParams Value="--lang en"/>
       </local>
     </RunParams>
     <RequiredPackages Count="3">

diff --git a/base.lfm b/base.lfm
@@ -1,31 +1,32 @@
 object frmBase: TfrmBase
   Left = 0
-  Height = 828
+  Height = 814
   Hint = 'Exit'
   Top = 0
   Width = 649
   ActiveControl = memLog
   Caption = 'YouTube Audio book Convertor'
-  ClientHeight = 828
+  ClientHeight = 814
   ClientWidth = 649
   Constraints.MinHeight = 828
   Constraints.MinWidth = 649
-  DesignTimePPI = 134
+  DesignTimePPI = 101
   OnCreate = FormCreate
   Position = poDesktopCenter
   Visible = False
   object GroupBox1: TGroupBox
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 12
-    Height = 240
+    Height = 224
     Top = 20
     Width = 627
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Right = 10
     Caption = 'Vstup: '
-    ClientHeight = 215
+    ClientHeight = 204
     ClientWidth = 623
+    ParentFont = False
     TabOrder = 3
     object vleVlastnosti: TValueListEditor
       AnchorSideRight.Control = GroupBox1
@@ -42,6 +43,7 @@ object frmBase: TfrmBase
       FixedCols = 0
       HeaderHotZones = []
       HeaderPushZones = []
+      ParentFont = False
       RowCount = 3
       ScrollBars = ssAutoVertical
       TabOrder = 0
@@ -60,118 +62,169 @@ object frmBase: TfrmBase
         290
       )
     end
+    object Label1: TLabel
+      Left = 12
+      Height = 15
+      Top = 64
+      Width = 99
+      Caption = 'Cesta k souborům:'
+      ParentColor = False
+      ParentFont = False
+    end
+    object lblPocetSouboru: TLabel
+      Left = 12
+      Height = 20
+      Top = 184
+      Width = 140
+      AutoSize = False
+      Caption = 'Celkem vybráno souborů: '
+      ParentColor = False
+      ParentFont = False
+    end
+    object radGrSegment: TRadioGroup
+      Left = 10
+      Height = 59
+      Top = 0
+      Width = 78
+      AutoFill = True
+      Caption = 'Segment'
+      ChildSizing.LeftRightSpacing = 6
+      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+      ChildSizing.EnlargeVertical = crsHomogenousChildResize
+      ChildSizing.ShrinkHorizontal = crsScaleChilds
+      ChildSizing.ShrinkVertical = crsScaleChilds
+      ChildSizing.Layout = cclLeftToRightThenTopToBottom
+      ChildSizing.ControlsPerLine = 1
+      ClientHeight = 39
+      ClientWidth = 74
+      Items.Strings = (
+        'Velikost'
+        'Začátek'
+      )
+      TabOrder = 2
+    end
     object leVelikostSegmentu: TLabeledEdit
       AnchorSideLeft.Side = asrBottom
       AnchorSideRight.Control = GroupBox1
       AnchorSideRight.Side = asrBottom
-      Left = 216
-      Height = 28
-      Top = 4
-      Width = 397
+      Left = 140
+      Height = 23
+      Top = 20
+      Width = 473
       Alignment = taCenter
-      Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Right = 10
       EditLabel.AnchorSideTop.Control = leVelikostSegmentu
       EditLabel.AnchorSideTop.Side = asrCenter
       EditLabel.AnchorSideRight.Control = leVelikostSegmentu
       EditLabel.AnchorSideBottom.Control = leVelikostSegmentu
       EditLabel.AnchorSideBottom.Side = asrBottom
-      EditLabel.Left = 9
-      EditLabel.Height = 20
-      EditLabel.Top = 8
-      EditLabel.Width = 204
-      EditLabel.Caption = 'Velikost segmentu v minutách: '
+      EditLabel.Left = 96
+      EditLabel.Height = 15
+      EditLabel.Top = 24
+      EditLabel.Width = 41
+      EditLabel.Caption = 'minuty:'
       EditLabel.ParentColor = False
       LabelPosition = lpLeft
+      ParentFont = False
       TabOrder = 1
       Text = '30'
+      OnEditingDone = leVelikostSegmentuEditingDone
     end
-    object Label1: TLabel
-      Left = 10
-      Height = 20
-      Top = 56
-      Width = 121
-      Caption = 'Cesta k souborům:'
-      ParentColor = False
+    object chcbPlaylist: TCheckBox
+      Left = 484
+      Height = 19
+      Top = 180
+      Width = 104
+      Caption = 'Generuj  playlist'
+      Checked = True
+      State = cbChecked
+      TabOrder = 3
     end
-    object lblPocetSouboru: TLabel
-      Left = 12
+    object lblPocetSouboruCislo: TLabel
+      AnchorSideLeft.Control = lblPocetSouboru
+      AnchorSideLeft.Side = asrBottom
+      Left = 152
       Height = 20
       Top = 184
-      Width = 584
+      Width = 6
       AutoSize = False
-      Caption = 'Celkem vybráno souborů: '
+      Caption = '0'
       ParentColor = False
     end
   end
   object GroupBox3: TGroupBox
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 12
-    Height = 96
-    Top = 260
+    Height = 92
+    Top = 252
     Width = 627
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Right = 10
     Caption = 'Výstup: '
     Constraints.MinWidth = 607
+    ParentFont = False
     TabOrder = 4
   end
   object btnVideo: TButton
     AnchorSideLeft.Control = GroupBox3
     AnchorSideRight.Control = btnAudioPuvodni
     Left = 22
     Height = 56
-    Top = 284
-    Width = 178
+    Top = 272
+    Width = 177
     BorderSpacing.Left = 10
     BorderSpacing.Right = 30
     Caption = 'VIDEO původni'
     Constraints.MinWidth = 177
     OnClick = btnVideoClick
+    ParentFont = False
     TabOrder = 5
   end
   object btnAudioPuvodni: TButton
     AnchorSideLeft.Control = btnVideo
     AnchorSideLeft.Side = asrBottom
     AnchorSideRight.Control = btnAudioMP3
-    Left = 236
+    Left = 239
     Height = 56
-    Top = 284
-    Width = 178
+    Top = 272
+    Width = 177
     Anchors = [akTop]
     Caption = 'AUDIO původní'
     Constraints.MinWidth = 177
     OnClick = btnAudioPuvodniClick
+    ParentFont = False
     TabOrder = 1
   end
   object btnAudioMP3: TButton
     AnchorSideLeft.Side = asrBottom
     AnchorSideRight.Control = GroupBox3
     AnchorSideRight.Side = asrBottom
-    Left = 451
+    Left = 452
     Height = 56
-    Top = 284
-    Width = 178
+    Top = 272
+    Width = 177
     Anchors = [akTop, akRight]
     BorderSpacing.Right = 10
     Caption = 'AUDIO MP3'
     Constraints.MinWidth = 177
     OnClick = btnAudioMP3Click
+    ParentFont = False
     TabOrder = 2
   end
   object GroupBox4: TGroupBox
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 12
-    Height = 373
-    Top = 444
+    Height = 365
+    Top = 428
     Width = 627
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Right = 10
     Caption = 'Log: '
-    ClientHeight = 348
+    ClientHeight = 345
     ClientWidth = 623
+    ParentFont = False
     TabOrder = 6
     object btnSmazLog: TButton
       Left = 12
@@ -180,6 +233,7 @@ object frmBase: TfrmBase
       Width = 171
       Caption = 'Smaž log'
       OnClick = btnSmazLogClick
+      ParentFont = False
       TabOrder = 0
     end
     object btnExit: TButton
@@ -195,6 +249,7 @@ object frmBase: TfrmBase
       Constraints.MaxWidth = 177
       Constraints.MinWidth = 177
       OnClick = btnExitClick
+      ParentFont = False
       TabOrder = 1
     end
   end
@@ -203,18 +258,19 @@ object frmBase: TfrmBase
     AnchorSideRight.Side = asrBottom
     Left = 24
     Height = 256
-    Top = 476
+    Top = 452
     Width = 605
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Right = 10
+    ParentFont = False
     ScrollBars = ssAutoBoth
     TabOrder = 0
   end
   object FileNameEdit1: TFileNameEdit
     AnchorSideRight.Control = GroupBox1
     AnchorSideRight.Side = asrBottom
     Left = 154
-    Height = 28
+    Height = 23
     Top = 96
     Width = 475
     OnAcceptFileName = FileNameEdit1AcceptFileName
@@ -226,21 +282,23 @@ object frmBase: TfrmBase
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Right = 10
     MaxLength = 0
+    ParentFont = False
     TabOrder = 7
     OnChange = FileNameEdit1Change
   end
   object GroupBox2: TGroupBox
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 12
-    Height = 79
-    Top = 356
+    Height = 76
+    Top = 348
     Width = 627
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Right = 10
     Caption = 'Progress: '
-    ClientHeight = 54
+    ClientHeight = 56
     ClientWidth = 623
+    ParentFont = False
     TabOrder = 8
     object prbUkazatel: TProgressBar
       AnchorSideLeft.Control = GroupBox2
@@ -253,15 +311,16 @@ object frmBase: TfrmBase
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 10
       BorderSpacing.Right = 10
+      ParentFont = False
       TabOrder = 0
     end
   end
   object ImageList1: TImageList
     AllocBy = 2
     Height = 64
     Width = 64
-    Left = 372
-    Top = 448
+    Left = 280
+    Top = 452
     Bitmap = {
       4C69020000004000000040000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

diff --git a/base.lrj b/base.lrj
@@ -1,10 +1,13 @@
 {"version":1,"strings":[
 {"hash":315140,"name":"tfrmbase.hint","sourcebytes":[69,120,105,116],"value":"Exit"},
 {"hash":229360528,"name":"tfrmbase.groupbox1.caption","sourcebytes":[86,115,116,117,112,58,32],"value":"Vstup: "},
-{"hash":226848912,"name":"tfrmbase.levelikostsegmentu.editlabel.caption","sourcebytes":[86,101,108,105,107,111,115,116,32,115,101,103,109,101,110,116,117,32,118,32,109,105,110,117,116,195,161,99,104,58,32],"value":"Velikost segmentu v minut\u00E1ch: "},
-{"hash":864,"name":"tfrmbase.levelikostsegmentu.text","sourcebytes":[51,48],"value":"30"},
 {"hash":187026058,"name":"tfrmbase.label1.caption","sourcebytes":[67,101,115,116,97,32,107,32,115,111,117,98,111,114,197,175,109,58],"value":"Cesta k soubor\u016Fm:"},
 {"hash":263271120,"name":"tfrmbase.lblpocetsouboru.caption","sourcebytes":[67,101,108,107,101,109,32,118,121,98,114,195,161,110,111,32,115,111,117,98,111,114,197,175,58,32],"value":"Celkem vybr\u00E1no soubor\u016F: "},
+{"hash":163462148,"name":"tfrmbase.radgrsegment.caption","sourcebytes":[83,101,103,109,101,110,116],"value":"Segment"},
+{"hash":67488698,"name":"tfrmbase.levelikostsegmentu.editlabel.caption","sourcebytes":[109,105,110,117,116,121,58],"value":"minuty:"},
+{"hash":864,"name":"tfrmbase.levelikostsegmentu.text","sourcebytes":[51,48],"value":"30"},
+{"hash":192926484,"name":"tfrmbase.chcbplaylist.caption","sourcebytes":[71,101,110,101,114,117,106,32,32,112,108,97,121,108,105,115,116],"value":"Generuj  playlist"},
+{"hash":48,"name":"tfrmbase.lblpocetsouborucislo.caption","sourcebytes":[48],"value":"0"},
 {"hash":78356784,"name":"tfrmbase.groupbox3.caption","sourcebytes":[86,195,189,115,116,117,112,58,32],"value":"V\u00FDstup: "},
 {"hash":65489193,"name":"tfrmbase.btnvideo.caption","sourcebytes":[86,73,68,69,79,32,112,197,175,118,111,100,110,105],"value":"VIDEO p\u016Fvodni"},
 {"hash":238330029,"name":"tfrmbase.btnaudiopuvodni.caption","sourcebytes":[65,85,68,73,79,32,112,197,175,118,111,100,110,195,173],"value":"AUDIO p\u016Fvodn\u00ED"},