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

@ -763,7 +763,7 @@ begin
NewCol.Comment := '';
NewCol.Collation := '';
end;
NewCol.Name := 'Column '+IntToStr(idx+1);
NewCol.Name := _('Column')+' '+IntToStr(idx+1);
FColumns.Insert(idx, NewCol);
NewNode := listColumns.InsertNode(fn, amInsertAfter, @NewCol);
NewCol.Status := esAddedUntouched;
@ -1364,7 +1364,7 @@ var
begin
// Add new index
TblKey := TTableKey.Create(DBObject.Connection);
TblKey.Name := 'Index '+IntToStr(FKeys.Count+1);
TblKey.Name := _('Index')+' '+IntToStr(FKeys.Count+1);
TblKey.OldName := TblKey.Name;
TblKey.IndexType := KEY;
TblKey.OldIndexType := TblKey.IndexType;