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

Qt: fixed behaviour of checkable items when key space is pressed in TQtAbstractItemView.OwnerDraw mode.

Browse Source 
git-svn-id: trunk@43173 -
This commit is contained in:
zeljko 2013-10-08 12:24:07 +00:00
parent 1d7b37b596
commit 3019dd8e23
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10808,7 +10808,16 @@ begin
(QKeyEvent_key(QKeyEventH(Event)) = QtKey_Space) then
begin
if CurrentItem <> nil then
begin
HandleCheckChangedEvent(QtPoint(0, 0), currentItem, Event);
if OwnerDrawn and not (Self is TQtCheckListBox) then
begin
if QListWidgetItem_checkState(currentItem) = QtUnChecked then
QListWidgetItem_setCheckState(currentItem, QtChecked)
else
QListWidgetItem_setCheckState(currentItem, QtUnchecked);
end;
end;
end;
end;
end;
@ -12368,6 +12377,13 @@ begin
((QTreeWidget_currentColumn(QTreeWidgetH(Widget)) = 0) or
TCustomListView(LCLObject).RowSelect) then
HandleCheckChangedEvent(QtPoint(0, 0), Item, Event);
if OwnerDrawn then
begin
if QTreeWidgetItem_checkState(Item, 0) = QtUnChecked then
QTreeWidgetItem_setCheckState(Item, 0, QtChecked)
else
QTreeWidgetItem_setCheckState(Item, 0, QtUnchecked);
end;
end;
end else
QEvent_ignore(Event);