anchor.diff:    hOrigFont := SelectFont(Handle, ctfSelected);
   
     { Draw character[s] }
  -
  -  if not SelectSupportedFontForText(Handle, Text) then
  -    SetTextColor(Handle, ColorToRGB(clRed));
   
     GetTextExtentPoint32W(Handle, PWideChar(Text), Length(Text), sz);
   
  
positive.code:   Description:      
    Create Date:      23 Aug 2006
  
    Modified Date:    4 Nov 2014
    Authors:          mcdurdin
    Related Files:    
    Dependencies:     
  
negative.code:       cch: Integer; FitRect, Uniscribe: Boolean): HRESULT;
      procedure CreateFonts;
      procedure SetShowPrefix(const Value: Boolean);
      function GetGlyphIndex(Handle: THandle; const Text: WideString;
        var Index: Integer): Boolean;
      function SelectFont(Handle: THandle; FFont: TClearTypeFont): THandle;
      procedure FreeFonts;
    public
      constructor Create;
  