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

lcl: don't access Items of TreeView if DragOver happens during treeview destruction

Browse Source 
git-svn-id: trunk@37372 -
This commit is contained in:
paul 2012-05-21 08:21:05 +00:00
parent e4be3b0c67
commit 94e8990aaf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -3624,6 +3624,8 @@ var
i: integer; i: integer;
begin begin
Result := nil; Result := nil;
if not Assigned(Items) then
Exit;
if (Y >= BorderWidth) and (Y < (ClientHeight - ScrollBarWidth) - BorderWidth) then if (Y >= BorderWidth) and (Y < (ClientHeight - ScrollBarWidth) - BorderWidth) then
begin begin
inc(Y, FScrolledTop - BorderWidth); inc(Y, FScrolledTop - BorderWidth);
@ -3659,7 +3661,7 @@ begin
if (X >= BorderWidth) and (X < ClientWidth - BorderWidth) then if (X >= BorderWidth) and (X < ClientWidth - BorderWidth) then
begin begin
Result := GetNodeAtY(Y); Result := GetNodeAtY(Y);
if (Result <> nil) and (X < Result.DisplayExpandSignLeft) then if Assigned(Result) and (X < Result.DisplayExpandSignLeft) then
Result := nil; Result := nil;
end; end;
end; end;