UPD: Localize some strings

This commit is contained in:
Alexander Koblov 2015-01-22 16:17:59 +00:00
commit 6d15f4c2fd
3 changed files with 7 additions and 2 deletions

View file

@ -65,7 +65,7 @@ implementation
{$R *.lfm}
uses
Forms, uGlobs, uGlobsPaths, uShowForm, uOSUtils, uLng, fOptions;
Forms, DCStrUtils, uGlobs, uGlobsPaths, uShowForm, uOSUtils, uLng, fOptions;
{ TfrmOptionsConfiguration }
@ -134,6 +134,7 @@ begin
lblCmdLineConfigDir.Visible := True;
lblCmdLineConfigDir.Caption := lblCmdLineConfigDir.Caption + ' - [' + IncludeTrailingPathDelimiter(gpCmdLineCfgDir) + ']';
end;
ParseLineToList(rsOptConfigSortOrder, gbSortOrderConfigurationOption.Items);
end;
procedure TfrmOptionsConfiguration.Load;

View file

@ -50,7 +50,7 @@ implementation
{$R *.lfm}
uses
uDCUtils, uGlobs, uLng;
DCStrUtils, uDCUtils, uGlobs, uLng;
{ TfrmOptionsDiffer }
@ -58,6 +58,7 @@ procedure TfrmOptionsDiffer.Init;
begin
ExternalTool := etDiffer;
inherited Init;
ParseLineToList(rsOptDifferFramePosition, rgResultingFramePositionAfterCompare.Items);
end;
procedure TfrmOptionsDiffer.Load;

View file

@ -511,6 +511,9 @@ resourcestring
rsOptionsEditorFileAssoc = 'File associations';
rsOptionsEditorDirectoryHotlist = 'Directory Hotlist';
//-------------------------------
rsOptConfigSortOrder = 'Classic, legacy order;Alphabetic order (but language still first)';
rsOptDifferFramePosition = 'Active frame panel on left, inactive on right (legacy);Left frame panel on left, right on right';
//-------------------------------
rsOptArchiveParam = 'Parameter';
rsOptArchiveValue = 'Value';
rsOptArchiveDelete = 'Delete:';