paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 18:10:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed AV with TQtTreeWidget. fixes #17411

Browse Source 
git-svn-id: trunk@27364 -
This commit is contained in:
zeljko 2010-09-14 16:17:12 +00:00
parent 3844f28951
commit bf387fa577
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -9621,6 +9621,11 @@ var
Item: QTreeWidgetItemH;
begin
Item := takeTopLevelItem(AIndex);
if (Item = FCurrentItem) then
FCurrentItem := nil
else
if (Item = FPreviousItem) then
FPreviousItem := nil;
if Item <> nil then
QTreeWidgetItem_destroy(Item);
end;
@ -10247,7 +10252,8 @@ begin
if FMousePressed then
begin
FMousePressed := False;
SignalCurrentItemChanged(FCurrentItem, FPreviousItem);
if FCurrentItem <> nil then
SignalCurrentItemChanged(FCurrentItem, FPreviousItem);
end;
end;