paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 03:40:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt,Qt5,Qt6: Fixed double OnSelectItem signal when setting ItemIndex of TListView vsReport. issue #40255

Browse Source
This commit is contained in:
Željan Rikalo 2023-05-11 19:48:50 +02:00
parent 1ddbcea70c
commit 9a68ad98cc
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -1378,6 +1378,8 @@ begin
end else end else
begin begin
QtTreeWidget := TQtTreeWidget(ALV.Handle); QtTreeWidget := TQtTreeWidget(ALV.Handle);
if QtTreeWidget.InUpdate then
exit; // issue #40255
TWI := QtTreeWidget.topLevelItem(AIndex); TWI := QtTreeWidget.topLevelItem(AIndex);
QtTreeWidget.BeginUpdate; QtTreeWidget.BeginUpdate;
case AState of case AState of

2
lcl/interfaces/qt5/qtwscomctrls.pp
View File

@ -1414,6 +1414,8 @@ begin
end else end else
begin begin
QtTreeWidget := TQtTreeWidget(ALV.Handle); QtTreeWidget := TQtTreeWidget(ALV.Handle);
if QtTreeWidget.InUpdate then
exit; // issue #40255
TWI := QtTreeWidget.topLevelItem(AIndex); TWI := QtTreeWidget.topLevelItem(AIndex);
QtTreeWidget.BeginUpdate; QtTreeWidget.BeginUpdate;
case AState of case AState of

2
lcl/interfaces/qt6/qtwscomctrls.pp
View File

@ -1414,6 +1414,8 @@ begin
end else end else
begin begin
QtTreeWidget := TQtTreeWidget(ALV.Handle); QtTreeWidget := TQtTreeWidget(ALV.Handle);
if QtTreeWidget.InUpdate then
exit; // issue #40255
TWI := QtTreeWidget.topLevelItem(AIndex); TWI := QtTreeWidget.topLevelItem(AIndex);
QtTreeWidget.BeginUpdate; QtTreeWidget.BeginUpdate;
case AState of case AState of