paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 23:29:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix crash in TAGeometry.ProjToLine when line has coincident end points.

Browse Source
This commit is contained in:
wp_xyz 2023-04-16 13:05:10 +02:00
parent f63e480295
commit b32b922e6e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tageometry.pas
View File

@ -626,7 +626,7 @@ function ProjToLine(const P, A,B: TDoublePoint): TDoublePoint;
var
v, s: TDoublePoint;
begin
if P = A then
if (P = A) or (A = B) then
Result := A
else if P = B then
Result := B