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

Qt: removed workaround in TQtListWidget for qt bug (qt-4.2).

Browse Source 
git-svn-id: trunk@19012 -
This commit is contained in:
zeljko 2009-03-17 09:06:52 +00:00
parent d7c225ab12
commit 284cbf6430
1 changed files with 2 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6882,36 +6882,9 @@ begin
QEventMouseButtonDblClick:
begin
if (LCLObject.ClassType = TCheckListBox) then
begin
SlotMouseCheckListBox(Sender, Event);
exit;
end;
{$note possible qt bug with QListView mouse events !}
if (QEvent_type(Event) = QEventMouseButtonRelease) then
begin
if QEvent_spontaneous(Event) then
SlotMouse(Sender, Event)
else
begin
{we sent non spontaneous event below so kill it}
Result := True;
QEvent_ignore(Event);
end;
end else
SlotMouseCheckListBox(Sender, Event)
else
SlotMouse(Sender, Event);
{listwidget item never sends an QEventMouseButtonRelease,
i'll check this with trolltech. zeljko}
if (QEvent_type(Event) = QEventMouseButtonPress) and
(QEvent_spontaneous(Event)) then
begin
{create missing mouse release}
NewEvent := QMouseEvent_create(QEventMouseButtonRelease, QMouseEvent_pos(QMouseEventH(Event)),
QMouseEvent_globalpos(QMouseEventH(Event)),QMouseEvent_button(QMouseEventH(Event)),
QMouseEvent_buttons(QMouseEventH(Event)),QApplication_keyboardModifiers());
{post event with high priority}
QCoreApplication_postEvent(Sender, NewEvent, 1);
end ;
end;
end;
end;