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

Qt: fixed context menu msg with right mouse click on QAbstractItemView classes.fixes #17133

Browse Source 
git-svn-id: trunk@27194 -
This commit is contained in:
zeljko 2010-08-26 09:45:01 +00:00
parent 31238a6951
commit 0822eb52d5
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9288,10 +9288,10 @@ function TQtTreeWidget.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
var
item: QTreeWidgetItemH;
begin
if LCLObject = nil then
exit;
Result := False;
QEvent_accept(Event);
if LCLObject = nil then
exit;
if Checkable then
begin
if ( (QEvent_type(Event) = QEventKeyPress) or
@ -9315,8 +9315,9 @@ begin
end else
Result:=inherited EventFilter(Sender, Event);
end else
if (QEvent_type(Event) = QEventMouseButtonPress) or
(QEvent_type(Event) = QEventMouseButtonRelease) then
if ((QEvent_type(Event) = QEventMouseButtonPress) or
(QEvent_type(Event) = QEventMouseButtonRelease))
and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
{eat mouse button events -> signalItemClicked is fired}
else
Result:=inherited EventFilter(Sender, Event);
@ -9325,7 +9326,8 @@ end;
function TQtTreeWidget.itemViewViewportEventFilter(Sender: QObjectH;
Event: QEventH): Boolean; cdecl;
begin
if QEvent_type(Event) = QEventMouseButtonRelease then
if (QEvent_type(Event) = QEventMouseButtonRelease)
and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
PostponedMouseRelease(Event)
else
Result := inherited itemViewViewportEventFilter(Sender, Event);
@ -12182,6 +12184,7 @@ begin
QEventMouseButtonPress,
QEventMouseButtonRelease,
QEventMouseButtonDblClick: SlotMouse(Sender, Event);
QEventContextMenu: Result := SlotContextMenu(Sender, Event);
else
begin
if not (ViewStyle in [Ord(vsIcon), Ord(vsSmallIcon)]) then