Ignore:
Timestamp:
May 22, 2016, 12:18:33 PM (9 years ago)
Author:
RBRi
Message:

remove usage of ACLStringUtility

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Components/CanvasFontManager.pas

    r15 r396  
    55Uses
    66  OS2Def,
    7   Classes, Forms, PMWIN, Graphics;
     7  Classes,
     8  Forms,
     9  PMWIN,
     10  Graphics;
    811
    912Const
    … …  
    132135
    133136uses
    134   PMWin, PMGpi, OS2Def, PmDev,
     137  PMWin,
     138  PMGpi,
     139  OS2Def,
     140  PmDev,
    135141  SysUtils,
    136   ACLStringUtility;
     142  StringUtilsUnit;
    137143
    138144Imports
    … …  
    243249    Face := FontFaces[ FaceIndex ];
    244250
    245     if StringsSame( Face.pName^, Name ) then
     251    if StrEqualIgnoringCase( Face.pName^, Name ) then
    246252    begin
    247253      Result := Face;
    … …  
    477483function SubstituteBitmapFontToOutline( const FaceName: string ): string;
    478484begin
    479   if StringsSame( FaceName, 'Helv' ) then
     485  if StrEqualIgnoringCase( FaceName, 'Helv' ) then
    480486    result := 'Helvetica'
    481   else if StringsSame( FaceName, 'Tms Rmn' ) then
     487  else if StrEqualIgnoringCase( FaceName, 'Tms Rmn' ) then
    482488    result := 'Times New Roman'
    483   else if StringsSame( FaceName, 'System Proportional' ) then
     489  else if StrEqualIgnoringCase( FaceName, 'System Proportional' ) then
    484490    result := 'Helvetica'
    485   else if StringsSame( FaceName, 'System Monospaced' ) then
     491  else if StrEqualIgnoringCase( FaceName, 'System Monospaced' ) then
    486492    result := 'Courier'
    487   else if StringsSame( FaceName, 'System VIO' ) then
     493  else if StrEqualIgnoringCase( FaceName, 'System VIO' ) then
    488494    result := 'Courier'
    489495  else
Note: See TracChangeset for help on using the changeset viewer.