Make more inline strings translatable.

This commit is contained in:
Ansgar Becker
2012-11-28 23:27:31 +00:00
parent 86f75cafa0
commit 9d8b4cd83a
12 changed files with 239 additions and 123 deletions

View File

@ -494,7 +494,7 @@ begin
try
Result := Data.TableName;
except
Result := 'UnknownTable';
Result := _('UnknownTable');
end;
end;
@ -1959,7 +1959,7 @@ begin
// Ask for saving modifications
Result := mrOk;
if Modified then begin
ObjType := LowerCase(DBObject.ObjType);
ObjType := _(LowerCase(DBObject.ObjType));
if DBObject.Name <> '' then
Msg := f_('Save modified %s "%s"?', [ObjType, DBObject.Name])
else