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

IDE: fixed AV in anchoreditor. Patch by FTurtle. issue #31177

Browse Source 
git-svn-id: trunk@53821 -
This commit is contained in:
zeljko 2017-01-01 10:24:59 +00:00
parent dbe940a8c7
commit e5c103cca1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/anchoreditor.pas
View File

@ -642,7 +642,7 @@ end;
function compareControlTop(Item1, Item2: pointer): Integer; function compareControlTop(Item1, Item2: pointer): Integer;
begin begin
if TControl(Item1).Top<TControl(TControl).Top then Result:=-1 if TControl(Item1).Top<TControl(Item2).Top then Result:=-1
else if TControl(Item1).Top>TControl(Item2).Top then Result:=1 else if TControl(Item1).Top>TControl(Item2).Top then Result:=1
else Result:=0; else Result:=0;
end; end;