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

LCL-Gtk2: Fixed coordinates in MouseMove/MouseDown events (regression after e916d8bc16).

Browse Source 
Patch by Alexander (Rouse_) Bagel, issue #40726.
This commit is contained in:
Maxim Ganetsky 2024-01-25 19:08:54 +03:00
parent 6a1aea3ed2
commit ac1d49467b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -4654,6 +4654,7 @@ function GetWidgetClientOrigin(TheWidget: PGtkWidget): TPoint;
var
ClientWidget: PGtkWidget;
WidgetInfo: PWidgetInfo;
ClientWindow: PGdkWindow;
LCLObject: TObject;
begin
@ -4669,7 +4670,11 @@ begin
LCLObject := GetLCLObject(ClientWidget);
if (LCLObject is TWinControl) and (TWinControl(LCLObject).Parent = nil)
and not (csDesigning in TWinControl(LCLObject).ComponentState) then
Exit(TWinControl(LCLObject).BoundsRect.TopLeft);
begin
WidgetInfo := GetWidgetInfo(ClientWidget);
if Assigned(WidgetInfo) and (WidgetInfo^.FormBorderStyle = 0) then
Exit(TWinControl(LCLObject).BoundsRect.TopLeft);
end;
end;
{$IFDEF DebugGDK}
BeginGDKErrorTrap;