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

Qt: TQtCheckListBox: pass itemclicked after mouse down ,not before

Browse Source 
git-svn-id: trunk@35837 -
This commit is contained in:
zeljko 2012-03-09 09:28:37 +00:00
parent 7ebe5af938
commit f9662e38fa
1 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11397,11 +11397,7 @@ begin
if (Item = nil) and (Sender = QWidget_mouseGrabber) then
QWidget_releaseMouse(QWidgetH(Sender));
end else
begin
MousePos := QMouseEvent_pos(QMouseEventH(Event))^;
if Item = nil then
Result := inherited itemViewViewportEventFilter(Sender, Event);
end;
Result := SlotMouse(Sender, Event);
end;
else
begin
@ -11430,29 +11426,15 @@ begin
if InUpdate or not GetVisible then
exit;
// fires only when checkBox clicked.
QCursor_pos(@AGlobalPos);
QWidget_mapFromGlobal(Widget, @APos, @AGlobalPos);
AMouseEvent := QMouseEvent_create(QEventMouseButtonPress, @APos,
@AGlobalPos, QtLeftButton, QtLeftButton,
QApplication_keyboardModifiers());
SlotMouse(Widget, AMouseEvent);
QMouseEvent_destroy(AMouseEvent);
{$note seem that we have qtbug with tristate listwidget items, so
we must handle statemap somehow}
//TODO try to fix nextstatemap
if FCheckBoxClicked then
begin
FCheckBoxClicked := False;
SetNextStateMap(item);
end;
AMouseEvent := QMouseEvent_create(QEventMouseButtonRelease, @APos,
@AGlobalPos, QtLeftButton, QtLeftButton,
QApplication_keyboardModifiers());
SlotMouse(Widget, AMouseEvent);
QMouseEvent_destroy(AMouseEvent);
end;
procedure TQtCheckListBox.signalSelectionChanged(); cdecl;