paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 00:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2 and LCL-GTK2: Allow OpenDialog Mime Filters. Issue #39790, patch by theo222.

Browse Source
This commit is contained in:
Juha 2022-06-11 21:20:23 +03:00
parent 01d6b3230d
commit f14b0fb03c
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2wsdialogs.pp
View File

@ -857,7 +857,10 @@ begin
for k := 0 to MaskList.Count - 1 do begin
aMask:=UTF8ToSys(MaskList.Strings[k]);
gtk_file_filter_add_pattern(GtkFilter, PChar(aMask));
if pos('/',aMask)>0 then
gtk_file_filter_add_mime_type(GtkFilter, PChar(aMask))
else
gtk_file_filter_add_pattern(GtkFilter, PChar(aMask));
end;
gtk_file_filter_set_name(GtkFilter, FilterEntry.Description);

3
lcl/interfaces/gtk3/gtk3wsdialogs.pp
View File

@ -1108,6 +1108,9 @@ begin
MaskList.DelimitedText := FilterEntry.Mask;
for k := 0 to MaskList.Count - 1 do
if pos('/',MaskList.Strings[k])>0 then
gtk_file_filter_add_mime_type(GtkFilter, PgChar(MaskList.Strings[k]))
else
gtk_file_filter_add_pattern(GtkFilter, PgChar(MaskList.Strings[k]));
gtk_file_filter_set_name(GtkFilter, PgChar(FilterEntry.Description));