paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 07:57:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

carbon: simplify CarbonEdit fix for endless-loops

Browse Source 
git-svn-id: trunk@26358 -
This commit is contained in:
dmitry 2010-06-30 16:19:49 +00:00
parent bcb0f4c05e
commit 23c83a2093
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/carbon/carbonedits.pp
View File

@ -1442,17 +1442,7 @@ begin
inc(r.Left, EditExtraLeft);
dec(r.Right, EditExtraRight);
FTooSmall:=False;
if r.Right<r.Left then
begin
FTooSmall:=True;
r.Right:=r.Left;
end;
if r.Bottom<r.Top then
begin
FTooSmall:=True;
r.Bottom:=r.Top;
end;
FTooSmall:=(r.Right<r.Left) or (r.Bottom<r.Top);
if FTooSmall then FSmallBounds:=ARect;
Result := inherited SetBounds(r);