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

gtk intf: GetControlConstraints now returns Max=0 if no Max exists

Browse Source 
git-svn-id: trunk@11178 -
This commit is contained in:
mattias 2007-05-22 20:51:54 +00:00
parent 84e280545f
commit d63cf2492c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtklclintf.inc
View File

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