paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: check filteredtreeview and listbox, fix AV, from BBaz, issue #27137

Browse Source 
git-svn-id: trunk@47120 -
This commit is contained in:
jesus 2014-12-06 03:44:54 +00:00
parent 539bec103f
commit 7ab6918cc8
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/listfilteredit.pas
View File

@ -277,6 +277,8 @@ function TListFilterEdit.ReturnKeyHandled: Boolean;
var
Key: Char;
begin
if fFilteredListbox = nil then
exit(false);
Key:=Char(VK_RETURN);
Result:=Assigned(fFilteredListbox.OnKeyPress);
if Result then

2
components/lazcontrols/treefilteredit.pas
View File

@ -622,6 +622,8 @@ function TTreeFilterEdit.ReturnKeyHandled: Boolean;
var
Key: Char;
begin
if fFilteredTreeview = nil then
exit(false);
Key:=Char(VK_RETURN);
Result:=Assigned(fFilteredTreeview.OnKeyPress);
if Result then