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:                     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:   Description:      
    Create Date:      23 Aug 2006
  
    Modified Date:    24 Feb 2019
    Authors:          mcdurdin
    Related Files:    
    Dependencies:     
  