Changeset 173 for trunk/Forms


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

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r169 r173  
    502502  object OpenDialog1: TOpenDialog
    503503    DefaultExt = '.adp'
    504     Filter = 'Acronym Decoder project (.adp)|*.adp|Všechny soubory|*.*'
    505504    left = 100
    506505    top = 260
     
    508507  object SaveDialog1: TSaveDialog
    509508    DefaultExt = '.adp'
    510     Filter = 'Acronym Decoder project (.adp)|*.adp|Všechny soubory|*.*'
     509    Filter = 'Acronym Decoder project (.adp)|*.adp|All files|*.*'
    511510    left = 100
    512511    top = 180
  • trunk/Forms/UFormMain.pas

    r169 r173  
    163163  SAcronymsCount = 'Acronyms count: %d';
    164164  SMeaningsCount = 'Meanings count: %d';
     165  SFileFilter = 'Acronym Decoder project (.adp)|*.adp|All files|*.*';
    165166
    166167
     
    285286  if Assigned(Core.AcronymDb) then begin
    286287    OpenDialog1.InitialDir := ExtractFileDir(Core.AcronymDb.FileName);
     288    OpenDialog1.Filter := SFileFilter;
    287289    OpenDialog1.FileName := ExtractFileName(Core.AcronymDb.FileName);
    288290  end;
     
    296298  SaveDialog1.DefaultExt := ProjectExt;
    297299  SaveDialog1.InitialDir := ExtractFileDir(Core.AcronymDb.FileName);
     300  SaveDialog1.Filter := SFileFilter;
    298301  SaveDialog1.FileName := ExtractFileName(Core.AcronymDb.FileName);
    299302  if SaveDialog1.Execute then begin
Note: See TracChangeset for help on using the changeset viewer.