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

lcl: fix range check errors in TControl.SetBoundsRect (issue #0015004)

Browse Source 
git-svn-id: trunk@23147 -
This commit is contained in:
paul 2009-12-15 05:56:08 +00:00
parent 4e64aed98d
commit 4d5cde8a0f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -2532,7 +2532,7 @@ begin
DebugLn('[TControl.SetBoundsRect] ',Name,':',ClassName);
{$ENDIF}
with ARect do
SetBounds(Left,Top,Right - Left, Bottom - Top);
SetBounds(Left, Top, Max(Right - Left, 0), Max(Bottom - Top, 0));
end;
procedure TControl.SetBoundsRectForNewParent(const AValue: TRect);