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

* fix for #40069 add swapdimensions

Browse Source
This commit is contained in:
marcoonthegit 2022-12-30 15:41:47 +01:00
parent 69eebe4c0c
commit bfb904640a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/types.pp
View File

@ -171,6 +171,7 @@ type
function IsZero : Boolean; function IsZero : Boolean;
function Subtract(const asz : TSizeF): TSizeF; function Subtract(const asz : TSizeF): TSizeF;
function Subtract(const asz : TSize): TSizeF; function Subtract(const asz : TSize): TSizeF;
function SwapDimensions:TSizeF;
function Scale (afactor:Single) : TSizeF; function Scale (afactor:Single) : TSizeF;
function Ceiling : TSize; function Ceiling : TSize;
@ -889,6 +890,12 @@ begin
result.cy:=cy-asz.cy; result.cy:=cy-asz.cy;
end; end;
function TSizeF.SwapDimensions:TSizeF;
begin
result.cx:=cy;
result.cy:=cx;
end;
function TSizeF.Subtract(const asz: TSize): TSizeF; function TSizeF.Subtract(const asz: TSize): TSizeF;
begin begin
result.cx:=cx-asz.cx; result.cx:=cx-asz.cx;