Changeset 250

Timestamp:

Sep 21, 2007, 5:55:56 PM (18 years ago)

Author:

RBRi

Message:

fix usage of StrStartsWithIgnoringCase

File:

• trunk/Components/CustomFontDialog.PAS (modified) (2 diffs)

trunk/Components/CustomFontDialog.PAS ¶

@@ -138 +138 @@
 
   if Result = 'Roman' then
-    if StrStartsWithIgnoringCase( 'Tms Rmn', Font.FaceName ) then
+    if StrStartsWithIgnoringCase(Font.FaceName,'Tms Rmn') then
       // one particularly stupid example
       Result := 'Tms Rmn';
 
   if Result = 'Swiss' then
-    if StrStartsWithIgnoringCase( 'Helv', Font.FaceName ) then
+    if StrStartsWithIgnoringCase(Font.FaceName, 'Helv') then
       // one particularly stupid example
       Result := 'Helv';
@@ -161 +161 @@
 
   FamilyName := GetFontFamilyName( Font );
-  if StrStartsWithIgnoringCase( FamilyName, Result ) then
+  if StrStartsWithIgnoringCase(Result, FamilyName) then
   begin
     Result := StrSubstringFrom( Result, length( FamilyName ) + 1 );