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

LCL-GTK3: Debug output for function TGtk3WidgetSet.GetWindowOrgEx.

Browse Source
This commit is contained in:
Juha 2021-09-30 22:48:47 +03:00
parent 24ababf578
commit 48097761d8
1 changed files with 8 additions and 5 deletions

13
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -2705,8 +2705,8 @@ end;
function TGtk3WidgetSet.GetWindowOrgEx(dc: hdc; P: PPoint): Integer;
var
Matrix: cairo_matrix_t;
dx: Double;
dy: Double;
dx, dy: Double;
OrigX, OrigY: LongInt;
begin
{$IFDEF GTK3DEBUGNOTIMPLEMENTED}
// DebugLn('WARNING: TGtk3WidgetSet.GetWindowOrgEx not implemented ...');
@ -2723,11 +2723,14 @@ begin
dx := 0;
dy := 0;
cairo_matrix_transform_point(@Matrix, @dx, @dy);
// DebugLn('GetWindowOrgEx POINT ',Format('dx %d dy %d',[-Trunc(Dx), -Trunc(Dy)]));
if P <> nil then
begin
P^.X := -Trunc(DX)+TGtk3DeviceContext(DC).fncOrigin.X;
P^.Y := -Trunc(DY)+TGtk3DeviceContext(DC).fncOrigin.Y;
OrigX := TGtk3DeviceContext(DC).fncOrigin.X;
OrigY := TGtk3DeviceContext(DC).fncOrigin.Y;
DebugLn('GetWindowOrgEx POINT ',Format('OrigX=%d, OrigY=%d, dx=%d, dy=%d',
[OrigX, OrigY, Trunc(dx), Trunc(dy)]));
P^.X := OrigX-Trunc(dx);
P^.Y := OrigY-Trunc(dy);
end;
Result := 1;
end;