mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 01:19:16 +02:00
codetools: fixed CompareCodeXYPositions
This commit is contained in:
parent
ca2e64716d
commit
d44799c623
@ -351,7 +351,7 @@ begin
|
||||
else if Pos1^.Y<Pos2^.Y then Result:=1
|
||||
else if Pos1^.Y>Pos2^.Y then Result:=-1
|
||||
else if Pos1^.X<Pos2^.X then Result:=1
|
||||
else if Pos1^.Y<Pos2^.Y then Result:=-1
|
||||
else if Pos1^.X>Pos2^.X then Result:=-1
|
||||
else Result:=0;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user