paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 04:29:40 +01: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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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