paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 07:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix incorrect clipping by ellipse in TLazCanvas.

Browse Source
This commit is contained in:
wp_xyz 2023-06-27 15:53:56 +02:00
parent a39b58d8cd
commit e3580cd0b0
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/lazregions.pas
View File

@ -164,17 +164,27 @@ end;
{
The equation of the inner area of an axis aligned ellipse:
(X/a)^2 + (Y/b)^2 <= 1
((X-Xc)/a)^2 + ((Y-Yc)/b)^2 <= 1
where Xc = (X1 + X2)/2 and Yc = (Y1 + Y2)/2 (ellipse center
and a = (X2 - X1)/2 and b = (Y2 - Y1)/2 (half axes)
or:
((2 X - (X1+X2)) / (X2-X1))^2 + ((2 Y - (Y1+X2)) / (Y2-Y1))^2 <= 1
}
function TLazRegionEllipse.IsPointInPart(AX, AY: Integer): Boolean;
var
a, b: Integer;
begin
a := X2 - X1;
b := Y2 - Y1;
if (a < 0) or (b < 0) then Exit(False);
Result := Sqr(AX/a) + Sqr(AY/b) <= 1;
if (X2 < X1) or (Y2 < Y1) then
Result := false
else
if (X1 = X2) then
Result := (AX = X1) and (AY >= Y1) and (AY <= Y2)
else
if (Y1 = Y2) then
Result := (AY = Y1) and (AX >= X1) and (AX <= X2)
else
Result := sqr((AX*2 - (X2+X1)) / (X2-X1)) + sqr((AY*2 - (Y1+Y2)) / (Y2 - Y1)) <= 1;
end;
{ TLazRegionPart }