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

Qt: fixed strange behaviour of QTreeWidget selection when multiselection is enabled (TListView.Style = vsReport). issue #18972

Browse Source 
git-svn-id: trunk@30198 -
This commit is contained in:
zeljko 2011-04-05 06:19:50 +00:00
parent e40d070b88
commit c6bdd569fa
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10358,8 +10358,10 @@ var
AIndex: Integer; AIndex: Integer;
ASubIndex: Integer; ASubIndex: Integer;
begin begin
if ((FSelection.Count > 0) and (FSelection.IndexOf(AItem) <> -1)) or
(QTreeWidget_isItemSelected(QTreeWidgetH(Widget), AItem) = ASelect) then if not InUpdate and
(((FSelection.Count > 0) and (FSelection.IndexOf(AItem) <> -1)) or
(QTreeWidget_isItemSelected(QTreeWidgetH(Widget), AItem) = ASelect)) then
exit; exit;
FillChar(Msg, SizeOf(Msg), #0); FillChar(Msg, SizeOf(Msg), #0);
@ -10392,7 +10394,6 @@ begin
Msg.NMHdr := @NMLV.hdr; Msg.NMHdr := @NMLV.hdr;
QTreeWidget_setItemSelected(QTreeWidgetH(Widget), AItem, ASelect); QTreeWidget_setItemSelected(QTreeWidgetH(Widget), AItem, ASelect);
if not FSyncingItems then if not FSyncingItems then
DeliverMessage(Msg); DeliverMessage(Msg);
end; end;

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

@ -1258,7 +1258,7 @@ begin
lisFocused: QtTreeWidget.setCurrentItem(TWI); lisFocused: QtTreeWidget.setCurrentItem(TWI);
lisSelected: lisSelected:
begin begin
if ALV.RowSelect and AIsSet then if ALV.RowSelect and AIsSet and not ALV.MultiSelect then
QtTreeWidget.setCurrentItem(TWI); QtTreeWidget.setCurrentItem(TWI);
QtTreeWidget.setItemSelected(TWI, AIsSet); QtTreeWidget.setItemSelected(TWI, AIsSet);
end; end;