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

Gtk3: fixed build ws with define GTK3DEBUGEVENTS.

Browse Source
This commit is contained in:
zeljan1 2025-01-15 13:47:02 +01:00
parent cae5c79b47
commit 69b940b0c3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -1794,13 +1794,16 @@ function TGtk3Widget.GtkEventMouseMove(Sender: PGtkWidget; Event: PGdkEvent
var
Msg: TLMMouseMove;
MousePos: TPoint;
{$IFDEF GTK3DEBUGEVENTS}
R: TRect;
{$ENDIF}
begin
Result := False;
{$IFDEF GTK3DEBUGEVENTS}
R := GetClientBounds;
DebugLn(['GtkEventMouseMove: ',dbgsName(LCLObject),' Send=',dbgs(Event^.motion.send_event),
' state=',dbgs(event^.motion.state),
' state=',dbgs(LongInt(event^.motion.state)),
' x=',dbgs(Round(event^.motion.x)),
' y=',dbgs(Round(event^.motion.y)),
' x_root=',dbgs(Round(event^.motion.x_root)),