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

LCL: Detect an overflow in parameter values in some autosize situations.

Browse Source 
git-svn-id: trunk@54372 -
This commit is contained in:
juha 2017-03-08 20:33:44 +00:00
parent 3a47676ba3
commit 0a7346f015
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/wincontrol.inc
View File

@ -4301,6 +4301,10 @@ begin
begin
Msg := LM_SIZE;
SizeType := 6; // force realign
if (FWidth < Low(Word)) or (FWidth > High(Word))
or (FHeight < Low(Word)) or (FHeight > High(Word)) then
raise Exception.CreateFmt('Size range overflow in %s.SendMoveSizeMessages:'
+' Width=%d, Height=%d.', [Name, FWidth, FHeight]);
Width := FWidth;
Height := FHeight;
{$IFDEF CHECK_POSITION}
@ -4317,8 +4321,12 @@ begin
begin
Msg:= LM_MOVE;
MoveType:= 1;
XPos:= FLeft;
YPos:= FTop;
if (FLeft < Low(Smallint)) or (FLeft > High(Smallint))
or (FTop < Low(Smallint)) or (FTop > High(Smallint)) then
raise Exception.CreateFmt('Position range overflow in %s.SendMoveSizeMessages:'
+' Left=%d, Top=%d.', [Name, FLeft, FTop]);
XPos := FLeft;
YPos := FTop;
{$IFDEF CHECK_POSITION}
if CheckPosition(Self) then
DebugLn(' [TControl.SendMoveSizeMessages] ',Name,':',ClassName,' MoveMsg XPos=',Dbgs(XPos),' YPos=',Dbgs(YPos));