diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 20:16:09 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 20:16:09 +0000 |
| commit | da300facd4d36730c3bbf69940d57e750b1bc3e4 (patch) | |
| tree | 58af7fefb447d2a3ddbdc2e68efac00567bde3b1 /unicode/src/base | |
| parent | 61bed792063274e3d16d2e78e77a9b843f979fb3 (diff) | |
| download | usdx-da300facd4d36730c3bbf69940d57e750b1bc3e4.tar.gz usdx-da300facd4d36730c3bbf69940d57e750b1bc3e4.tar.xz usdx-da300facd4d36730c3bbf69940d57e750b1bc3e4.zip | |
According to the Delphi doc for INFINITY it should not be used in comparisons. Use IsInfinit() instead.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1902 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base')
| -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; |