anchor.diff:      lfUnderline      := 0;
       lfStrikeOut      := 0;
       lfCharSet        := DEFAULT_CHARSET; //0; //Byte(Font.Charset);
  -    lfQuality        := ANTIALIASED_QUALITY;
  +    lfQuality        := Byte(FontSmoothingType);
       { Everything else as default }
       lfOutPrecision   := OUT_DEFAULT_PRECIS;
       lfClipPrecision  := CLIP_DEFAULT_PRECIS;
  
positive.code: 
  {$IFDEF WinCE}
    UnicodeEnabledOS := True;
  {$ELSE}
    WinVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
    GetVersionEx(WinVersion);
    UnicodeEnabledOS := (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_NT) or
      (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_CE);
  {$ENDIF}
  
  end.
  
negative.code:       lf.lfItalic := 1
      else if prop = 'ANTIALIAS' then
        if propval = 'FALSE' then
          lf.lfQuality := NONANTIALIASED_QUALITY else
        if propval = 'DEFAULT' then
          lf.lfQuality := DEFAULT_QUALITY;
    end;
  
  