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: fixed crash on invalid type cast, bug #24679, patch by Cyrax

Browse Source 
git-svn-id: trunk@41919 -
This commit is contained in:
mattias 2013-06-27 13:47:32 +00:00
parent e4e55c2dda
commit 0bd92fe903
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/treefilteredit.pas
View File

@ -218,7 +218,7 @@ begin
TVNode:=fOwner.fFilteredTreeview.Items.AddChild(fRootNode,FileN);
// Save the long filename to Node.Data
AObject := TObject(fNodeTextToDataMap[FileN]);
if AObject.InheritsFrom(TTFENodeData) then
If Assigned(AObject) And AObject.InheritsFrom(TTFENodeData) then
TTFENodeData(AObject).Node := TVNode;
if fNodeTextToFullFilenameMap.Count > 0 then begin
s:=FileN;