paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: temporary debug messages for QT to find the cause for an access violation.

Browse Source 
git-svn-id: trunk@38912 -
This commit is contained in:
juha 2012-09-29 21:37:21 +00:00
parent 0e8eb89d5e
commit e08a18840b
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3418,6 +3418,9 @@ var
SenderWidget: QWidgetH;
begin
Result := False;
{$IFDEF TestMouseMoveCrash}
DebugLn('TQtWidget.SlotMouseMove: start');
{$ENDIF}
if not CanSendLCLMessage or (Sender = nil) or
not QObject_isWidgetType(Sender) then
Exit(True);
@ -3433,11 +3436,9 @@ begin
// get parent form, so check if mouse is out of parent form first.
W := QWidget_window(SenderWidget);
if W <> nil then
begin
QWidget_frameGeometry(W, @R);
// exclude borders from frame
FrameBorder := GetPixelMetric(QStylePM_DefaultFrameWidth, nil, W);
TitleBarHeight := GetPixelMetric(QStylePM_TitleBarHeight, nil, W);
@ -3477,9 +3478,18 @@ begin
end;
FillChar(Msg, SizeOf(Msg), #0);
{$IFDEF TestMouseMoveCrash}
DebugLn('TQtWidget.SlotMouseMove: before QMouseEvent_pos');
{$ENDIF}
MousePos := QMouseEvent_pos(QMouseEventH(Event))^;
{$IFDEF TestMouseMoveCrash}
DebugLn('TQtWidget.SlotMouseMove: after QMouseEvent_pos');
{$ENDIF}
OffsetMousePos(@MousePos);
{$IFDEF TestMouseMoveCrash}
DebugLn('TQtWidget.SlotMouseMove: after OffsetMousePos');
{$ENDIF}
Msg.XPos := SmallInt(MousePos.X);
Msg.YPos := SmallInt(MousePos.Y);
@ -3492,6 +3502,9 @@ begin
NotifyApplicationUserInput(LCLObject, Msg.Msg);
DeliverMessage(Msg);
SetNoMousePropagation(SenderWidget, True);
{$IFDEF TestMouseMoveCrash}
DebugLn('TQtWidget.SlotMouseMove: end');
{$ENDIF}
end;
{------------------------------------------------------------------------------