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

ListFilterEdit: No need to disable CheckListBox.OnItemClick temporarily any more. It was a workaround for a LCL-Qt bug

Browse Source 
git-svn-id: trunk@34448 -
This commit is contained in:
juha 2011-12-27 16:30:34 +00:00
parent 200204331d
commit 0383037340
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/lazcontrols/listfilteredit.pas
View File

@ -96,17 +96,10 @@ var
i, j: Integer; i, j: Integer;
s: string; s: string;
clb: TCustomCheckListBox; clb: TCustomCheckListBox;
TempOnItemClick: TCheckListClicked;
begin begin
clb:=Nil; clb:=Nil;
TempOnItemClick:=Nil; if fFilteredListbox is TCustomCheckListBox then
if fFilteredListbox is TCustomCheckListBox then begin
clb:=TCustomCheckListBox(fFilteredListbox); clb:=TCustomCheckListBox(fFilteredListbox);
if Assigned(clb.OnItemClick) then begin
TempOnItemClick:=clb.OnItemClick;
clb.OnItemClick:=Nil; // Disable OnItemClick temporarily.
end;
end;
fFilteredListbox.Clear; fFilteredListbox.Clear;
fFilteredListbox.Items.BeginUpdate; fFilteredListbox.Items.BeginUpdate;
for i:=0 to fSortedData.Count-1 do begin for i:=0 to fSortedData.Count-1 do begin
@ -118,8 +111,6 @@ begin
clb.Checked[j]:=OnCheckItem(fSortedData.Objects[i]); clb.Checked[j]:=OnCheckItem(fSortedData.Objects[i]);
end; end;
fFilteredListbox.Items.EndUpdate; fFilteredListbox.Items.EndUpdate;
if Assigned(TempOnItemClick) then
clb.OnItemClick:=TempOnItemClick; // Restore OnItemClick.
end; end;
function TListFilterEdit.CompareFNs(AFilename1,AFilename2: string): integer; function TListFilterEdit.CompareFNs(AFilename1,AFilename2: string): integer;