Changeset 124 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 26, 2016, 1:45:20 PM (8 years ago)

Author:

chronos

Message:

• Modified: Show project file name at start of application title.

File:

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

trunk/Forms/UFormMain.pas

@@ -618 +618 @@
   AHide.Enabled := FormMain.Visible;
 
-  Title := Application.Title;
-  if Assigned(Core.AcronymDb) and (ExtractFileName(Core.AcronymDb.FileName) <> '') then
-    if Assigned(Core.AcronymDb) then Title := Title + ' - ' + ExtractFileName(Core.AcronymDb.FileName);
-  if Assigned(Core.AcronymDb) and Core.AcronymDb.Modified then Title := Title + ' (' + SModified + ')';
+  Title := '';
+  if Assigned(Core.AcronymDb) and (ExtractFileName(Core.AcronymDb.FileName) <> '') then begin
+    Title := ExtractFileName(Core.AcronymDb.FileName);
+    if Core.AcronymDb.Modified then Title := Title + ' (' + SModified + ')';
+  end;
+  if Title <> '' then Title := Title + ' - ';
+  Title := Title + Application.Title;
   Caption := Title;
 end;