From 600f3b01262022a0bb3830341ce3761faa1e3320 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 3 Apr 2004 12:51:17 +0000 Subject: [PATCH] fixed shrinking forms under gtk from vincent git-svn-id: trunk@5364 - --- lcl/interfaces/gtk/gtkobject.inc | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc index 62498116e2..65eef152cd 100644 --- a/lcl/interfaces/gtk/gtkobject.inc +++ b/lcl/interfaces/gtk/gtkobject.inc @@ -414,9 +414,16 @@ begin gtk_window_set_default_size(Window,Width,Height); // resize + if assigned(PGtkWidget(Window)^.Window) then + // widget is realized, resize gdkwindow directly + gdk_window_move_resize(PGtkWidget(Window)^.Window,AWinControl.Left, + AWinControl.Top,Width,Height) + else + // widget is not yet realized, force resize needed for shrinking under gtk1) + gtk_widget_set_usize(PGtkWidget(Window), -1,-1); //if (PGtkWidget(Window)^.allocation.Width<>Width) //and (PGtkWidget(Window)^.allocation.Height<>Height) then begin - gtk_widget_set_usize(PGtkWidget(Window), -1,-1); + //gtk_widget_set_usize(PGtkWidget(Window), -1,-1); gtk_widget_set_usize(PGtkWidget(Window),Width,Height); //end; @@ -9291,6 +9298,9 @@ end; { ============================================================================= $Log$ + Revision 1.487 2004/04/03 12:51:17 mattias + fixed shrinking forms under gtk from vincent + Revision 1.486 2004/04/02 20:44:08 mattias fixed LM_LV_AddItem message in gtk intf from Andrew H.