paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 04:00:25 +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;
s: string;
clb: TCustomCheckListBox;
TempOnItemClick: TCheckListClicked;
begin
clb:=Nil;
TempOnItemClick:=Nil;
if fFilteredListbox is TCustomCheckListBox then begin
if fFilteredListbox is TCustomCheckListBox then
clb:=TCustomCheckListBox(fFilteredListbox);
if Assigned(clb.OnItemClick) then begin
TempOnItemClick:=clb.OnItemClick;
clb.OnItemClick:=Nil; // Disable OnItemClick temporarily.
end;
end;
fFilteredListbox.Clear;
fFilteredListbox.Items.BeginUpdate;
for i:=0 to fSortedData.Count-1 do begin
@ -118,8 +111,6 @@ begin
clb.Checked[j]:=OnCheckItem(fSortedData.Objects[i]);
end;
fFilteredListbox.Items.EndUpdate;
if Assigned(TempOnItemClick) then
clb.OnItemClick:=TempOnItemClick; // Restore OnItemClick.
end;
function TListFilterEdit.CompareFNs(AFilename1,AFilename2: string): integer;