From be678e2bf1ada7f133f9f09888abf84fb718dec4 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 4 Jun 2017 21:52:34 +0000
Subject: [PATCH] LCL: Use CompareText function in IsFontNameDefault.

git-svn-id: trunk@55224 -
---
 lcl/lclproc.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 90d836c42f..cdaba071f3 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -3013,9 +3013,9 @@ begin
           +IntToStr(1+StrToIntDef(copy(Identifier,p+1,length(Identifier)-p),0));
 end;
 
-function IsFontNameDefault(const AName: string): boolean; inline;
+function IsFontNameDefault(const AName: string): boolean;
 begin
-  Result := LowerCase(AName) = 'default';
+  Result := CompareText(AName, 'default') = 0;
 end;
 
 procedure FreeLineInfoCache;