Cocoa: Regression for OpenDialog.Filter := ''
Original Reporter info from Mantis: crlab @neurolabusc1
-
Reporter name: Chris Rorden
Original Reporter info from Mantis: crlab @neurolabusc1
- Reporter name: Chris Rorden
Description:
For other widget sets (and previous Cocoa code), setting the Filter of a TOpenDialog to '' will show all files. The current SVN appears to show NO files if this is set, and requires the user to explicitly set the filter to '.' too see all the files.
Steps to reproduce:
Try different filters. Note that setting the filter to '' shows no files.
procedure TForm1.OpenTxtBtnClick(Sender: TObject);
begin
OpenDialog1.Filter := 'Text|*.txt;*.csv;*.pas|All Files|*.*';
OpenDialog1.Execute;
end;
procedure TForm1.OpenBtnClick(Sender: TObject);
begin
OpenDialog1.Filter := '';
OpenDialog1.Execute;
end;
procedure TForm1.OpenStarBtnClick(Sender: TObject);
begin
OpenDialog1.Filter := 'All Files|*.*';
OpenDialog1.Execute;
end;
Mantis conversion info:
- Mantis ID: 36272
- OS: Darwin
- OS Build: 10.11.6
- Build: 62205
- Platform: MacBook 2012 Retina 13"
- Version: 2.0.7 (SVN)
- Fixed in revision: 62213 (#33187646)