anchor.diff:  
   {$IFDEF WinCE}
     UnicodeEnabledOS := True;
  +  FontSmoothingType := DEFAULT_QUALITY;
   {$ELSE}
     WinVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
     GetVersionEx(WinVersion);
     UnicodeEnabledOS := (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_NT) or
       (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_CE);
  +    
  +  if SystemParametersInfo(SPI_GETFONTSMOOTHINGTYPE, 0, @FontSmoothingType, 0)
  +    and (FontSmoothingType = FE_FONTSMOOTHINGCLEARTYPE) then
  +      FontSmoothingType := CLEARTYPE_QUALITY
  +    else
  +      FontSmoothingType := ANTIALIASED_QUALITY;
   {$ENDIF}
   
   end.
  
positive.code:     lfUnderline      := 0;
      lfStrikeOut      := 0;
      lfCharSet        := DEFAULT_CHARSET; //0; //Byte(Font.Charset);
      lfQuality        := ANTIALIASED_QUALITY;
      { Everything else as default }
      lfOutPrecision   := OUT_DEFAULT_PRECIS;
      lfClipPrecision  := CLIP_DEFAULT_PRECIS;
  
negative.code: const
    WM_MOUSEWHEEL         = $020a;    // we could remove this since FPC 2.0.4
    VER_PLATFORM_WIN32_CE = 3;
    CLEARTYPE_QUALITY     = 5;
  
  var
    { Unicode selection variables }
    UnicodeEnabledOS: Boolean;
    WinVersion: TOSVersionInfo;
    { Font smoothing type selection variable }
    FontSmoothingType: Cardinal;
  
  type
    TfpgGContext = HDC;
  