pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix TJvDBTreeView and TJvDBLookupTreeView crashing the IDE when they are deleted from the form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6871 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-27 17:26:49 +00:00
parent 0bd361c6e9
commit a012c5158d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/run/JvDB/JvDBTreeView.pas
View File

@ -1581,7 +1581,9 @@ var
strLength: Integer; strLength: Integer;
HasChildren: Byte; HasChildren: Byte;
begin begin
if Items.Count > 0 then // wp: not clear if this still works correctly: had to add "Assigned(Items)"
// to prevent crash when destroying
if Assigned(Items) and (Items.Count > 0) then
begin begin
// save master values into stream // save master values into stream
FMastersStream := TMemoryStream.Create; FMastersStream := TMemoryStream.Create;