paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Eric Grange to fix TRectF.FitInto

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-24 11:53:05 +01:00
parent d2f5bbac50
commit 28fc3da2bd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/types.pp
View File

@ -1701,8 +1701,9 @@ begin
exit(Self);
Result.Width:=Self.Width / Ratio;
Result.Height:=Self.Height / Ratio;
Result.Left:=Self.Left + (Self.Width - Result.Width) / 2;
Result.Top:=Self.Top + (Self.Height - Result.Height) / 2;
// Center the result within the Dest rectangle
Result.Left:=Dest.Left + (Dest.Width - Result.Width) / 2;
Result.Top:=Dest.Top + (Dest.Height - Result.Height) / 2;
end;
function TRectF.FitInto(const Dest: TRectF): TRectF;