Changeset 150 for trunk/Forms/UFormMain.pas

Timestamp:

May 10, 2017, 10:25:02 AM (8 years ago)

Author:

chronos

Message:

• Modified: Show project name without file extension.

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -662 +662 @@
 
   Title := '';
-  if Assigned(Core.AcronymDb) and (ExtractFileName(Core.AcronymDb.FileName) <> '') then begin
-    Title := ExtractFileName(Core.AcronymDb.FileName);
+  if Assigned(Core.AcronymDb) and (ExtractFileNameWithoutExt(ExtractFileName(Core.AcronymDb.FileName)) <> '') then begin
+    Title := ExtractFileNameWithoutExt(ExtractFileName(Core.AcronymDb.FileName));
     if Core.AcronymDb.Modified then Title := Title + ' (' + SModified + ')';
   end;