anchor.diff:        cch: Integer; FitRect, Uniscribe: Boolean): HRESULT;
       procedure CreateFonts;
       procedure SetShowPrefix(const Value: Boolean);
  -    function SelectSupportedFontForText(Handle: THandle; const Text: WideString): Boolean;
       function GetGlyphIndex(Handle: THandle; const Text: WideString;
         var Index: Integer): Boolean;
       function SelectFont(Handle: THandle; FFont: TClearTypeFont): THandle;
  -    procedure SelectFallbackFont(Handle: THandle; const Text: WideString);
       procedure FreeFonts;
     public
       constructor Create;
  
positive.code:   Description:      
    Create Date:      23 Aug 2006
  
    Modified Date:    4 Nov 2014
    Authors:          mcdurdin
    Related Files:    
    Dependencies:     
  
negative.code:       end;
  begin
    SelectFont(Handle, ctfSelected);
    Result := DoCalcTextSize;
  end;
  
  