Changeset 41

Timestamp:

Jul 14, 2016, 1:15:42 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Do not allow operations with acronym database if file is in closed state.
• Fixed: Do not show dash symobol if no project is openned.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (modified) (1 diff)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormAbout.lfm

@@ -73 +73 @@
     EmailContact = 'robie@centrum.cz'
     AppName = 'Acronym Decoder'
-    ReleaseDate = 42564
+    ReleaseDate = 42565
     RegistryKey = '\Software\'
     RegistryRoot = rrKeyCurrentUser

trunk/Forms/UFormMain.pas

@@ -516 +516 @@
   AFileSaveAs.Enabled := Assigned(AcronymDb);
   AManualImport.Enabled := Assigned(AcronymDb);
+  AProcessImports.Enabled := Assigned(AcronymDb);
   AShowCategories.Enabled := Assigned(AcronymDb);
   AShowAcronyms.Enabled := Assigned(AcronymDb);
+  AShowCategories.Enabled := Assigned(AcronymDb);
   AShowImportSources.Enabled := Assigned(AcronymDb);
+  AShowImportFormats.Enabled := Assigned(AcronymDb);
   ToolBar1.Visible := MenuItemToolbar.Checked;
 
   Title := Application.Title;
-  if Assigned(AcronymDb) then Title := Title + ' - ' + ExtractFileName(AcronymDb.FileName);
+  if Assigned(AcronymDb) and (ExtractFileName(AcronymDb.FileName) <> '') then
+    if Assigned(AcronymDb) then Title := Title + ' - ' + ExtractFileName(AcronymDb.FileName);
   if Assigned(AcronymDb) and AcronymDb.Modified then Title := Title + ' (' + SModified + ')';
   Caption := Title;