Localization preparationv0.6.49

1 files changed, 22 insertions, 22 deletions

diff --git a/UPreferences.pas b/UPreferences.pas
index 6a799d5..3d5d17d 100644
--- a/UPreferences.pas
+++ b/UPreferences.pas
@@ -256,13 +256,13 @@ begin
 
   FormatTime := libc_time(nil);
   DateFormatLabel := TGTKLabel.Create(Self);
-  DateFormatLabel.Caption := 'Date _format:';
+  DateFormatLabel.Caption := LANGPreferences_DateFormatLabel_Caption;
   DateFormatLabel.XAlign := 0;
   DateFormatLabel.UseUnderline := True;
   DateFormatOptionMenu := TGTKOptionMenu.Create(Self);
   DateFormatLabel.FocusControl := DateFormatOptionMenu;
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := Format('%s (%s)', ['System', FormatDate(FormatTime, False, True, -1, 0, -1)]);
+  Item.Caption := Format('%s (%s)', [LANGPreferences_System, FormatDate(FormatTime, False, True, -1, 0, -1)]);
   DateFormatOptionMenu.Items.Add(Item);
   for i := 1 to 14 do begin
     Item := TGTKMenuItem.CreateTyped(Self, itLabel);
@@ -270,7 +270,7 @@ begin
     DateFormatOptionMenu.Items.Add(Item);
   end;
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := 'Custom...';
+  Item.Caption := LANGPreferences_Custom;
   DateFormatOptionMenu.Items.Add(Item);
   DateFormatOptionMenu.OnChanged := DateTimeFormatOptionMenuChanged;
   Table2.AddControlEx(1, 9, 1, 1, DateFormatLabel, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 2);
@@ -278,18 +278,18 @@ begin
 
   CustomDateFormatEntry := TGTKEntry.Create(Self);
   CustomDateFormatEntry.Enabled := False;
-  CustomDateFormatEntry.Tooltip := 'Enter custom date format string.'#10'Please see "man strftime" for syntax reference.';
+  CustomDateFormatEntry.Tooltip := LANGPreferences_CustomDateFormatEntry_Tooltip;
   CustomDateFormatEntry.OnChanged := DateTimeFormatOptionMenuChanged;
   Table2.AddControlEx(2, 10, 2, 1, CustomDateFormatEntry, [taoShrink], [taoShrink], 10, 2);
 
   TimeFormatLabel := TGTKLabel.Create(Self);
-  TimeFormatLabel.Caption := '_Time format:';
+  TimeFormatLabel.Caption := LANGPreferences_TimeFormatLabel_Caption;
   TimeFormatLabel.XAlign := 0;
   TimeFormatLabel.UseUnderline := True;
   TimeFormatOptionMenu := TGTKOptionMenu.Create(Self);
   TimeFormatLabel.FocusControl := TimeFormatOptionMenu;
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := Format('%s (%s)', ['System', FormatDate(FormatTime, True, False, 0, -1, -1)]);
+  Item.Caption := Format('%s (%s)', [LANGPreferences_System, FormatDate(FormatTime, True, False, 0, -1, -1)]);
   TimeFormatOptionMenu.Items.Add(Item);
   for i := 1 to 11 do begin
     Item := TGTKMenuItem.CreateTyped(Self, itLabel);
@@ -297,7 +297,7 @@ begin
     TimeFormatOptionMenu.Items.Add(Item);
   end;
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := 'Custom...';
+  Item.Caption := LANGPreferences_Custom;
   TimeFormatOptionMenu.Items.Add(Item);
   TimeFormatOptionMenu.OnChanged := DateTimeFormatOptionMenuChanged;
   Table2.AddControlEx(1, 11, 1, 1, TimeFormatLabel, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 2);
@@ -305,12 +305,12 @@ begin
 
   CustomTimeFormatEntry := TGTKEntry.Create(Self);
   CustomTimeFormatEntry.Enabled := False;
-  CustomTimeFormatEntry.Tooltip := 'Enter custom time format string.'#10'Please see "man strftime" for syntax reference.';
+  CustomTimeFormatEntry.Tooltip := LANGPreferences_CustomTimeFormatEntry_Tooltip;
   CustomTimeFormatEntry.OnChanged := DateTimeFormatOptionMenuChanged;
   Table2.AddControlEx(2, 12, 2, 1, CustomTimeFormatEntry, [taoShrink], [taoShrink], 10, 2);
 
   DateTimeFormatLabel := TGTKLabel.Create(Self);
-  DateTimeFormatLabel.Caption := 'Date/time _order:';
+  DateTimeFormatLabel.Caption := LANGPreferences_DateTimeFormatLabel_Caption;
   DateTimeFormatLabel.XAlign := 0;
   DateTimeFormatLabel.UseUnderline := True;
   DateTimeFormatOptionMenu := TGTKOptionMenu.Create(Self);
@@ -342,14 +342,14 @@ begin
   DisableMouseRename := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_DisableMouseRenaming);
   DisableMouseRename.Tooltip := LANGPreferencesDisableMouseRename_Tooltip;
   Table5.AddControl(0, 0, 2, 1, DisableMouseRename, 30, 2);
-  QuickRenameSkipExtCheckBox := TGTKCheckButton.CreateWithLabel(Self, 'Select name part only on quick-rename');
-  QuickRenameSkipExtCheckBox.Tooltip := 'Exclude filename extension from the selection when doing quick-rename';
+  QuickRenameSkipExtCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_QuickRenameSkipExtCheckBox);
+  QuickRenameSkipExtCheckBox.Tooltip := LANGPreferences_QuickRenameSkipExtCheckBox_Tooltip;
   Table5.AddControl(0, 1, 2, 1, QuickRenameSkipExtCheckBox, 30, 2);
   DisableFileTipsCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferencesDisableFileTipsCheckBox_Caption);
   DisableFileTipsCheckBox.Tooltip := LANGPreferencesDisableFileTipsCheckBox_Tooltip;
   Table5.AddControl(0, 2, 2, 1, DisableFileTipsCheckBox, 30, 2);
-  SortDirectoriesLikeFilesCheckBox := TGTKCheckButton.CreateWithLabel(Self, 'Sort directories lik_e files');
-  SortDirectoriesLikeFilesCheckBox.Tooltip := 'Check this to allow sorting directories along with files. Directories are always first in the list.'#10'Unchecked: directories are always sorted by name.';
+  SortDirectoriesLikeFilesCheckBox := TGTKCheckButton.CreateWithLabel(Self, LANGPreferences_SortDirectoriesLikeFilesCheckBox);
+  SortDirectoriesLikeFilesCheckBox.Tooltip := LANGPreferences_SortDirectoriesLikeFilesCheckBox_Tooltip;
   Table5.AddControl(0, 3, 2, 1, SortDirectoriesLikeFilesCheckBox, 30, 2);
   Table5.AddControl(0, 4, 2, 1, TGTKVBox.Create(Self), 0, 7);
 
@@ -389,23 +389,23 @@ begin
   Table5.AddControl(0, 15, 2, 1, SpaceMovesDownCheckBox, 30, 2);
 
   QuickSearchLabel := TGTKLabel.Create(Self);
-  QuickSearchLabel.Caption := 'Quick search _keystroke:';
+  QuickSearchLabel.Caption := LANGPreferences_QuickSearchLabel_Caption;
   QuickSearchLabel.XAlign := 0;
   QuickSearchLabel.UseUnderline := True;
   QuickSearchOptionMenu := TGTKOptionMenu.Create(Self);
-  QuickSearchOptionMenu.Tooltip := 'The Ctrl+S/Alt+S and "/" keystrokes are always active, regardless on this setting.';
+  QuickSearchOptionMenu.Tooltip := LANGPreferences_QuickSearchOptionMenu_Tooltip;
   QuickSearchLabel.FocusControl := QuickSearchOptionMenu;
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := 'Ctrl+S/Alt+S and "/" only';
+  Item.Caption := LANGPreferences_QuickSearch_Option1;
   QuickSearchOptionMenu.Items.Add(Item);
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := 'Ctrl+Alt+letters';
+  Item.Caption := LANGPreferences_QuickSearch_Option2;
   QuickSearchOptionMenu.Items.Add(Item);
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := 'Alt+letters';
+  Item.Caption := LANGPreferences_QuickSearch_Option3;
   QuickSearchOptionMenu.Items.Add(Item);
   Item := TGTKMenuItem.CreateTyped(Self, itLabel);
-  Item.Caption := 'letters directly';
+  Item.Caption := LANGPreferences_QuickSearch_Option4;
   QuickSearchOptionMenu.Items.Add(Item);
   Table5.AddControl(0, 16, 2, 1, TGTKVBox.Create(Self), 0, 2);
   Table5.AddControlEx(0, 17, 1, 1, QuickSearchLabel, [taoShrink], [taoShrink], 35, 2);
@@ -524,18 +524,18 @@ begin
   TempPathLabel := TGTKLabel.Create(Self);
   TempPathLabel.XAlign := 0;
   TempPathLabel.XPadding := 10;
-  TempPathLabel.Caption := Format('<span weight="ultrabold">%s</span>', ['Temporary files']);
+  TempPathLabel.Caption := Format('<span weight="ultrabold">%s</span>', [LANGPreferences_TempPathLabel_Caption]);
   TempPathLabel.UseMarkup := True;
   Table1.AddControlEx(0, 15, 5, 1, TGTKVBox.Create(Self), [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 13);
   Table1.AddControlEx(0, 16, 5, 1, TempPathLabel, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 0);
   Table1.AddControlEx(0, 17, 5, 1, TGTKVBox.Create(Self), [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 2);
 
   VFSTempPathLabel := TGTKLabel.Create(Self);
-  VFSTempPathLabel.Caption := '_VFS temp files:';
+  VFSTempPathLabel.Caption := LANGPreferences_VFSTempPathLabel_Caption;
   VFSTempPathLabel.XAlign := 0;
   VFSTempPathLabel.UseUnderline := True;
   VFSTempPathEntry := TGTKEntry.Create(Self);
-  VFSTempPathEntry.Tooltip := 'Location of temporary files used by VFS subsystem, e.g. when opening files directly from archives. All temporary files are cleaned on exit.';
+  VFSTempPathEntry.Tooltip := LANGPreferences_VFSTempPathEntry_Tooltip;
   VFSTempPathLabel.FocusControl := VFSTempPathEntry;
   Table1.AddControlEx(0, 18, 1, 1, TGTKVBox.Create(Self), [taoShrink], [taoShrink, taoExpand, taoFill], 12, 2);
   Table1.AddControlEx(1, 18, 1, 1, VFSTempPathLabel, [taoShrink, taoFill], [taoShrink, taoExpand, taoFill], 0, 2);