diff options
| -rw-r--r-- | unicode/src/base/UFont.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unicode/src/base/UFont.pas b/unicode/src/base/UFont.pas index 8baab629..72409ac1 100644 --- a/unicode/src/base/UFont.pas +++ b/unicode/src/base/UFont.pas @@ -1574,9 +1574,9 @@ begin end; // if left or bottom bound was not set, set them to 0 - if (Result.Left = Infinity) then + if (IsInfinite(Result.Left)) then Result.Left := 0.0; - if (Result.Bottom = Infinity) then + if (IsInfinite(Result.Bottom)) then Result.Bottom := 0.0; end; |