From da300facd4d36730c3bbf69940d57e750b1bc3e4 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 20:16:09 +0000
Subject: 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
---
 unicode/src/base/UFont.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'unicode/src')

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;
 
-- 
cgit v1.2.3