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

Qt: bugfix for #13388

Browse Source 
git-svn-id: trunk@19074 -
This commit is contained in:
zeljko 2009-03-23 13:46:28 +00:00
parent 8c2e23e096
commit b84a1a97c5
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7860,39 +7860,37 @@ begin
NMLV.hdr.code := LVN_ITEMCHANGING; NMLV.hdr.code := LVN_ITEMCHANGING;
AIndex := QTreeWidget_indexOfTopLevelItem(QTreeWidgetH(Widget), Current); AIndex := QTreeWidget_indexOfTopLevelItem(QTreeWidgetH(Widget), Current);
NMLV.iItem := AIndex;
if NMLV.iItem = -1 then AParent := QTreeWidgetItem_parent(Current);
exit;
AParent := QTreeWidgetItem_parent(Current);
if AParent <> nil then if AParent <> nil then
ASubIndex := QTreeWidgetItem_indexOfChild(AParent, Current) ASubIndex := QTreeWidgetItem_indexOfChild(AParent, Current)
else else
ASubIndex := 0; ASubIndex := 0;
NMLV.iItem := AIndex;
NMLV.iSubItem := ASubIndex; NMLV.iSubItem := ASubIndex;
NMLV.uNewState := LVIS_SELECTED; NMLV.uNewState := LVIS_SELECTED;
NMLV.uChanged := LVIF_STATE; NMLV.uChanged := LVIF_STATE;
Msg.NMHdr := @NMLV.hdr; Msg.NMHdr := @NMLV.hdr;
DeliverMessage(Msg);
FSyncingItems := True; FSyncingItems := True;
try try
if Current <> nil then if Current <> nil then
begin begin
DeliverMessage(Msg);
FillChar(Msg, SizeOf(Msg), #0); FillChar(Msg, SizeOf(Msg), #0);
FillChar(NMLV, SizeOf(NMLV), #0); FillChar(NMLV, SizeOf(NMLV), #0);
Msg.Msg := CN_NOTIFY; Msg.Msg := CN_NOTIFY;
NMLV.hdr.hwndfrom := LCLObject.Handle; NMLV.hdr.hwndfrom := LCLObject.Handle;
NMLV.hdr.code := LVN_ITEMCHANGED; NMLV.hdr.code := LVN_ITEMCHANGED;
NMLV.iItem := AIndex; NMLV.iItem := AIndex;
NMLV.iSubItem := ASubIndex; NMLV.iSubItem := ASubIndex;
NMLV.uNewState := LVIS_SELECTED; if QTreeWidget_isItemSelected(QTreeWidgetH(Widget), Current) then
NMLV.uNewState := LVIS_SELECTED
else
NMLV.uOldState := LVIS_SELECTED;
NMLV.uChanged := LVIF_STATE; NMLV.uChanged := LVIF_STATE;
Msg.NMHdr := @NMLV.hdr; Msg.NMHdr := @NMLV.hdr;
DeliverMessage(Msg); DeliverMessage(Msg);
@ -7906,13 +7904,16 @@ begin
NMLV.hdr.hwndfrom := LCLObject.Handle; NMLV.hdr.hwndfrom := LCLObject.Handle;
NMLV.hdr.code := LVN_ITEMCHANGED; NMLV.hdr.code := LVN_ITEMCHANGED;
NMLV.iItem := QTreeWidget_indexOfTopLevelItem(QTreeWidgetH(Widget), Previous); NMLV.iItem := QTreeWidget_indexOfTopLevelItem(QTreeWidgetH(Widget), Previous);
AParent := QTreeWidgetItem_parent(Previous); AParent := QTreeWidgetItem_parent(Previous);
if AParent <> nil then if AParent <> nil then
ASubIndex := QTreeWidgetItem_indexOfChild(AParent, Previous) ASubIndex := QTreeWidgetItem_indexOfChild(AParent, Previous)
else else
ASubIndex := 0; ASubIndex := 0;
NMLV.iSubItem := ASubIndex; NMLV.iSubItem := ASubIndex;
NMLV.uOldState := LVIS_SELECTED; if QTreeWidget_isItemSelected(QTreeWidgetH(Widget), Previous) then
NMLV.uNewState := LVIS_SELECTED
else
NMLV.uOldState := LVIS_SELECTED;
NMLV.uChanged := LVIF_STATE; NMLV.uChanged := LVIF_STATE;
Msg.NMHdr := @NMLV.hdr; Msg.NMHdr := @NMLV.hdr;
DeliverMessage(Msg); DeliverMessage(Msg);