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

Gtk2: fixed wrong result from ScreenToClient for child controls. issue #21366

Browse Source 
git-svn-id: trunk@35574 -
This commit is contained in:
zeljko 2012-02-24 09:39:05 +00:00
parent eadeec3933
commit a31497d03b
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -7595,16 +7595,14 @@ function TGtk2WidgetSet.ScreenToClient(Handle : HWND; var P : TPoint) : Integer;
var
X, Y: Integer;
Widget: PGTKWidget;
Window: PgdkWindow;
Window: PGdkWindow;
Begin
if Handle = 0
then begin
if Handle = 0 then
begin
X := 0;
Y := 0;
end
else
begin
end else
begin
Widget := GetFixedWidget(pgtkwidget(Handle));
if Widget = nil then
Widget := pgtkwidget(Handle);
@ -7612,13 +7610,24 @@ Begin
begin
X := 0;
Y := 0;
end
else begin
Window:=GetControlWindow(Widget);
end else
begin
Window := GetControlWindow(Widget);
{$IFDEF DebugGDK}BeginGDKErrorTrap;{$ENDIF}
if Window<>nil then
gdk_window_get_origin(Window, @X, @Y)
else begin
if Window <> nil then
begin
gdk_window_get_origin(Window, @X, @Y);
// set pos to client coords. issue #21366
if GTK_WIDGET_NO_WINDOW(Widget) and (gtk_widget_get_parent(Widget) <> nil) then
begin
P.X := P.X - X - Widget^.allocation.x;
P.Y := P.Y - Y - Widget^.allocation.y;
Result := -1;
exit;
end;
end else
begin
X:=0;
Y:=0;
end;