diff --git a/lcl/interfaces/gtk/gtklclintf.inc b/lcl/interfaces/gtk/gtklclintf.inc
index 4fb7ef8c3b..2404900ea1 100644
--- a/lcl/interfaces/gtk/gtklclintf.inc
+++ b/lcl/interfaces/gtk/gtklclintf.inc
@@ -342,8 +342,8 @@ begin
   if Constraints is TSizeConstraints then begin
     MinWidth := 0;
     MinHeight := 0;
-    MaxWidth:=10000;
-    MaxHeight:=10000;
+    MaxWidth:=0;
+    MaxHeight:=0;
     SizeConstraints:=TSizeConstraints(Constraints);
 
     if (SizeConstraints.Control=nil) then exit;