From 09a91920b39870a5f74df9246bc93dd23d48f388 Mon Sep 17 00:00:00 2001 From: juha Date: Mon, 24 Sep 2012 22:34:14 +0000 Subject: [PATCH] =?UTF-8?q?ListFilterEdit:=20Allow=20using=20with=20TCusto?= =?UTF-8?q?mCheckListBox=20descendants.=20Issue=20#22968,=20patch=20from?= =?UTF-8?q?=20Silvio=20Cl=C3=A9cio?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: trunk@38818 - --- components/lazcontrols/listfilteredit.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/lazcontrols/listfilteredit.pas b/components/lazcontrols/listfilteredit.pas index 3abc18655a..8c9e9c280b 100644 --- a/components/lazcontrols/listfilteredit.pas +++ b/components/lazcontrols/listfilteredit.pas @@ -82,7 +82,7 @@ begin fOriginalData:=TStringList.Create; fSelectionList:=TStringList.Create; fSortedData:=TStringList.Create; - if Assigned(fFilteredListbox) and (fFilteredListbox is TCheckListBox) then + if Assigned(fFilteredListbox) and (fFilteredListbox is TCustomCheckListBox) then Assert(Assigned(fCheckedItems), 'TListFilterEdit.Create: fCheckedItems=nil'); end; @@ -126,7 +126,7 @@ begin fFilteredListbox:=AValue; if Assigned(fFilteredListbox) then begin fOriginalData.Assign(fFilteredListbox.Items); - if (fFilteredListbox is TCheckListBox) and not Assigned(fCheckedItems) then + if (fFilteredListbox is TCustomCheckListBox) and not Assigned(fCheckedItems) then fCheckedItems:=TStringMap.Create(False); end; end;