Changeset 173 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Fixed: Translate open/save dialog filter text.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -502 +502 @@
   object OpenDialog1: TOpenDialog
     DefaultExt = '.adp'
-    Filter = 'Acronym Decoder project (.adp)|*.adp|Všechny soubory|*.*'
     left = 100
     top = 260
@@ -508 +507 @@
   object SaveDialog1: TSaveDialog
     DefaultExt = '.adp'
-    Filter = 'Acronym Decoder project (.adp)|*.adp|Všechny soubory|*.*'
+    Filter = 'Acronym Decoder project (.adp)|*.adp|All files|*.*'
     left = 100
     top = 180

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