Changeset 41 for trunk/Forms


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormAbout.lfm

    r36 r41  
    7373    EmailContact = 'robie@centrum.cz'
    7474    AppName = 'Acronym Decoder'
    75     ReleaseDate = 42564
     75    ReleaseDate = 42565
    7676    RegistryKey = '\Software\'
    7777    RegistryRoot = rrKeyCurrentUser
  • trunk/Forms/UFormMain.pas

    r39 r41  
    516516  AFileSaveAs.Enabled := Assigned(AcronymDb);
    517517  AManualImport.Enabled := Assigned(AcronymDb);
     518  AProcessImports.Enabled := Assigned(AcronymDb);
    518519  AShowCategories.Enabled := Assigned(AcronymDb);
    519520  AShowAcronyms.Enabled := Assigned(AcronymDb);
     521  AShowCategories.Enabled := Assigned(AcronymDb);
    520522  AShowImportSources.Enabled := Assigned(AcronymDb);
     523  AShowImportFormats.Enabled := Assigned(AcronymDb);
    521524  ToolBar1.Visible := MenuItemToolbar.Checked;
    522525
    523526  Title := Application.Title;
    524   if Assigned(AcronymDb) then Title := Title + ' - ' + ExtractFileName(AcronymDb.FileName);
     527  if Assigned(AcronymDb) and (ExtractFileName(AcronymDb.FileName) <> '') then
     528    if Assigned(AcronymDb) then Title := Title + ' - ' + ExtractFileName(AcronymDb.FileName);
    525529  if Assigned(AcronymDb) and AcronymDb.Modified then Title := Title + ' (' + SModified + ')';
    526530  Caption := Title;
Note: See TracChangeset for help on using the changeset viewer.