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

fixed shrinking forms under gtk from vincent

Browse Source 
git-svn-id: trunk@5364 -
This commit is contained in:
mattias 2004-04-03 12:51:17 +00:00
parent 6228e815e9
commit 600f3b0126
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk/gtkobject.inc
View File

@ -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.