Changeset 173 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 30, 2018, 2:34:00 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Translate open/save dialog filter text.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -163 +163 @@
   SAcronymsCount = 'Acronyms count: %d';
   SMeaningsCount = 'Meanings count: %d';
+  SFileFilter = 'Acronym Decoder project (.adp)|*.adp|All files|*.*';
 
 
@@ -285 +286 @@
   if Assigned(Core.AcronymDb) then begin
     OpenDialog1.InitialDir := ExtractFileDir(Core.AcronymDb.FileName);
+    OpenDialog1.Filter := SFileFilter;
     OpenDialog1.FileName := ExtractFileName(Core.AcronymDb.FileName);
   end;
@@ -296 +298 @@
   SaveDialog1.DefaultExt := ProjectExt;
   SaveDialog1.InitialDir := ExtractFileDir(Core.AcronymDb.FileName);
+  SaveDialog1.Filter := SFileFilter;
   SaveDialog1.FileName := ExtractFileName(Core.AcronymDb.FileName);
   if SaveDialog1.Execute then begin