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

gtk2 intf: fixed reading gtkwindow position

Browse Source 
git-svn-id: trunk@11220 -
This commit is contained in:
mattias 2007-05-29 19:39:52 +00:00
parent 4698d08d12
commit 26b03893db
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/gtk/gtkproc.inc
View File

@ -6883,6 +6883,9 @@ procedure SetWindowSizeAndPosition(Window: PGtkWindow;
AWinControl: TWinControl);
var
Width, Height: integer;
{$IFDEF Gtk2}
allocation: TGdkRectangle;
{$ENDIF}
//Info: PGtkWindowGeometryInfo;
begin
Width:=AWinControl.Width;
@ -6902,6 +6905,12 @@ begin
gtk_window_resize(Window,Width,Height);
// reposition
gtk_window_move(Window,AWinControl.Left,AWinControl.Top);
// commit size
allocation:=PgtkWidget(Window)^.allocation;
allocation.width:=Width;
allocation.height:=Height;
gtk_widget_size_allocate(PgtkWidget(Window),@allocation);
{$ELSE}
// resize
if assigned(PGtkWidget(Window)^.Window) then
@ -6950,15 +6959,20 @@ begin
{$ENDIF}
if GtkWidgetIsA(aWidget,GTK_TYPE_WINDOW) then begin
GdkWindow:=GetControlWindow(aWidget);
if GdkWindow<>nil then begin
if (GdkWindow<>nil) and (GTK_WIDGET_MAPPED(aWidget)) then begin
// window is mapped = window manager has put the window somewhere
gdk_window_get_root_origin(GdkWindow, @GtkLeft, @GtkTop);
Left:=GtkLeft;
Top:=GtkTop;
end else begin
// the gtk has not yet put the window to the final position
// => the gtk/gdk position is not reliable
// => use the LCL coords
LCLControl:=GetLCLObject(aWidget) as TWinControl;
Left:=LCLControl.Left;
Top:=LCLControl.Top;
end;
//DebugLn(['TGtkWidgetSet.GetWindowRelativePosition ',GetWidgetDebugReport(aWidget),' Left=',Left,' Top=',Top,' GdkWindow=',GdkWindow<>nil]);
end;
//DebugLn(['TGtkWidgetSet.GetWindowRelativePosition ',GetWidgetDebugReport(aWidget),' Left=',Left,' Top=',Top]);
end;