paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 16:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix gtk2 opendialog filter selection, issue #13111

Browse Source 
git-svn-id: trunk@19026 -
This commit is contained in:
jesus 2009-03-18 19:16:49 +00:00
parent 073e79c380
commit cd1ecbf189
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -762,11 +762,14 @@ class function TGtk2WSOpenDialog.CreateOpenDialogFilter(
var
ListOfFileSelFilterEntry: TFPList;
i, j, k: integer;
GtkFilter: PGtkFileFilter;
GtkFilter, GtkSelFilter: PGtkFileFilter;
MaskList: TStringList;
FilterEntry: TFileSelFilterEntry;
FilterIndex: Integer;
begin
FilterIndex := OpenDialog.FilterIndex;
ExtractFilterList(OpenDialog.Filter, ListOfFileSelFilterEntry, false);
GtkSelFilter := nil;
if ListOfFileSelFilterEntry.Count > 0 then
begin
j := 1;
@ -786,8 +789,8 @@ begin
gtk_file_chooser_add_filter(SelWidget, GtkFilter);
if j = OpenDialog.FilterIndex then
gtk_file_chooser_set_filter(SelWidget, GtkFilter);
if j = FilterIndex then
GtkSelFilter := GtkFilter;
Inc(j);
GtkFilter := nil;
@ -798,6 +801,9 @@ begin
FreeListOfFileSelFilterEntry(ListOfFileSelFilterEntry);
//gtk_object_set_data(PGtkObject(SelWidget), 'LCLFilterList', ListOfFileSelFilterEntry);
if GtkSelFilter<>nil then
gtk_file_chooser_set_filter(SelWidget, GtkSelFilter);
Result := 'hm'; { Don't use '' as null return as this is used for *.* }
end;