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

gtk intf: set min constraints for controls to 1x1

Browse Source 
git-svn-id: trunk@12676 -
This commit is contained in:
mattias 2007-11-01 12:49:24 +00:00
parent 6b5f9e4f97
commit 7a6eecdba3
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/wincontrol.inc
View File

@ -2577,6 +2577,12 @@ var
'');
{$ENDIF}
end;
// apply the constraints
NewWidth:=ConstraintWidth(NewWidth);
NewHeight:=ConstraintHeight(NewHeight);
NewRight:=NewLeft+NewWidth;
NewBottom:=NewTop+NewHeight;
// set the new bounds
if (Control.Left <> NewLeft) or (Control.Top <> NewTop)

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

@ -564,8 +564,8 @@ var
begin
Result:=true;
if Constraints is TSizeConstraints then begin
MinWidth := 0;
MinHeight := 0;
MinWidth := 1;
MinHeight := 1;
MaxWidth:=0;
MaxHeight:=0;
SizeConstraints:=TSizeConstraints(Constraints);