diff options
| -rw-r--r-- | uidesigner/vfd_constants.pas | 5 | ||||
| -rw-r--r-- | uidesigner/vfdmain.pas | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/uidesigner/vfd_constants.pas b/uidesigner/vfd_constants.pas index 7b49f7f5..25fe3ee3 100644 --- a/uidesigner/vfd_constants.pas +++ b/uidesigner/vfd_constants.pas @@ -14,8 +14,8 @@ Description: This unit contains all the language resource strings used by the UI Designer project. Thus making it possible to translate the UI Designer - to other languages. - } + to other languages. It also contains all project constants. +} unit vfd_constants; @@ -41,6 +41,7 @@ resourcestring rsVersion = 'Version: %s'; rsWrittenBy = 'Written by %s'; rsCompiledOn = 'Compiled on: %s'; + rsNewUnnamedForm = 'new'; rsDlgProductInfo = 'Product Information...'; diff --git a/uidesigner/vfdmain.pas b/uidesigner/vfdmain.pas index 51622b9f..5dcb90d4 100644 --- a/uidesigner/vfdmain.pas +++ b/uidesigner/vfdmain.pas @@ -460,7 +460,7 @@ begin FEditedFileName := Value; s := ExtractFileName(FEditedFileName); if s = '' then - s := '[new]'; + s := '[' + rsNewUnnamedForm + ']'; frmMain.WindowTitle := cAppNameAndVersion + ' - ' + s; end; |