anchor.diff:  const
     WM_MOUSEWHEEL         = $020a;    // we could remove this since FPC 2.0.4
     VER_PLATFORM_WIN32_CE = 3;
  -
  -{ Unicode selection variables }
  -var
  +  CLEARTYPE_QUALITY     = 5;
  +
  +var
  +  { Unicode selection variables }
     UnicodeEnabledOS: Boolean;
     WinVersion: TOSVersionInfo;
  +  { Font smoothing type selection variable }
  +  FontSmoothingType: Cardinal;
   
   type
     TfpgGContext = HDC;
  
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: 
  {$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.
  