paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:19:18 +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 begin
Msg := LM_SIZE; Msg := LM_SIZE;
SizeType := 6; // force realign 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; Width := FWidth;
Height := FHeight; Height := FHeight;
{$IFDEF CHECK_POSITION} {$IFDEF CHECK_POSITION}
@ -4317,8 +4321,12 @@ begin
begin begin
Msg:= LM_MOVE; Msg:= LM_MOVE;
MoveType:= 1; MoveType:= 1;
XPos:= FLeft; if (FLeft < Low(Smallint)) or (FLeft > High(Smallint))
YPos:= FTop; 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} {$IFDEF CHECK_POSITION}
if CheckPosition(Self) then if CheckPosition(Self) then
DebugLn(' [TControl.SendMoveSizeMessages] ',Name,':',ClassName,' MoveMsg XPos=',Dbgs(XPos),' YPos=',Dbgs(YPos)); DebugLn(' [TControl.SendMoveSizeMessages] ',Name,':',ClassName,' MoveMsg XPos=',Dbgs(XPos),' YPos=',Dbgs(YPos));