Make several overseen strings translatable. Closes issue #19.

This commit is contained in:
Ansgar Becker
2018-11-13 19:15:49 +01:00
parent b6d10d0462
commit f1c9f1a8a4
3 changed files with 9 additions and 2 deletions

View File

@ -147,6 +147,7 @@ begin
if comboDBs.ItemIndex = -1 then
comboDBs.ItemIndex := 0;
comboDBs.OnChange(Sender);
ListFilesChange(ListFiles, nil);
end;

View File

@ -4448,7 +4448,7 @@ begin
end else begin
FDelimiter := Value;
LogSQL(f_('Delimiter changed to %s', [FDelimiter]), lcInfo);
actSetDelimiter.Hint := actSetDelimiter.Caption + ' (current value: '+FDelimiter+')';
actSetDelimiter.Hint := actSetDelimiter.Caption + ' (' + _('current value:') + ' ' + FDelimiter + ')';
end;
end;