paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK3: Fix indentation.

Browse Source
This commit is contained in:
Juha 2022-06-12 10:07:25 +03:00
parent 126ce77cfd
commit 2495ef1923
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1103,19 +1103,17 @@ begin
for i := 0 to ListOfFileSelFilterEntry.Count-1 do
begin
GtkFilter := gtk_file_filter_new();
FilterEntry := TFileSelFilterEntry(ListOfFileSelFilterEntry[i]);
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]));
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));
gtk_file_chooser_add_filter(Chooser, GtkFilter);
if j = FilterIndex then
GtkSelFilter := GtkFilter;