anchor.diff:  
     { Draw character[s] }
   
  -  if not SelectSupportedFontForText(Handle, Text) then
  -    SetTextColor(Handle, ColorToRGB(clRed));
  -
     FOldAlign := SetTextAlign(Handle, TextAlign); // TA_CENTER or TA_TOP);
   
     FLTextOut(Handle, X, Y, @ARect, PWideChar(Text), Length(Text), Fit, Uniscribe); // RectBmp.Right div 2, 0, @RectBmp, PWideChar(ch), Length(ch));
  
positive.code:                     08 Jun 2012 - mcdurdin - I3310 - V9.0 - Unicode in Delphi fixes
                      28 Feb 2014 - mcdurdin - I4098 - V9.0 - OSK is still 8.0 style
                      04 Nov 2014 - mcdurdin - I4488 - V9.0 - The character map is not falling back to system fonts well when Code2000 missing
  *)
  unit CleartypeDrawCharacter;
  
  
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;
  