anchor.diff:        @GdipBitmapSetPixel := GetProcAddress(LibHandle, 'GdipBitmapSetPixel');
   
         FillChar(Startup, sizeof(Startup), 0);
  -      Startup.Version := 1;
  +      Startup.GdiplusVersion := 1;
         Err := GdiPlusStartup(InitToken, @Startup, nil);
         GDIPlusActive := Err = 0;
         if not GDIPlusActive then
  
positive.code:   UnitPixel = 2;
  begin
    GdipDrawImageRectRectI(fGraphics, Image.fHandle, dx, dy, dw, dh,
      sx, sy, sw, sh, UnitPixel, 0, nil, 0);
  
  end;
  
  
negative.code:   GdiPlusLib = 'GdiPlus.dll';
  
  type
    ARGB = DWORD;
    TARGB = ARGB;
    GpStatus = Integer;
    PixelFormat = Integer;
    NotificationHookProc = function (out token : ULONG) : GpStatus stdcall;
    NotificationUnhookProc = procedure (token : ULONG) stdcall;
  
    DebugEventLevel = Integer;
    DebugEventProc = procedure (level : DebugEventLevel; message_ : PAnsiChar) stdcall;
    GdiplusStartupInput = packed record
      GdiplusVersion : DWORD;  // Must be 1  (or 2 for the Ex version)
      DebugEventCallback : DebugEventProc; // Ignored on free builds
      SuppressBackgroundThread : BOOL; // FALSE unless you're prepared to call
                                         // the hook/unhook functions properly
      SuppressExternalCodecs : BOOL; // FALSE unless you want GDI+ only to use
                                         // its internal image codecs.
    end;
    TGdiplusStartupInput = GdiplusStartupInput;
    PGdiplusStartupInput = ^TGdiplusStartupInput;
    GdiplusStartupOutput = record
      NotificationHook : NotificationHookProc;
      NotificationUnhook : NotificationUnhookProc;
    end;
    TGdiplusStartupOutput = GdiplusStartupOutput;
    PGdiplusStartupOutput = ^TGdiplusStartupOutput;
    PGpGraphics = Pointer;
    PGpImage = Pointer;
    PGpBitmap = Pointer;
    GpUnit = Integer; //enumeration
    GpMatrixOrder = Integer;
    InterpolationMode = Integer;
    TInterpolationMode = InterpolationMode;
    PGpImageAttributes = Pointer;
    ImageAbort = function : BOOL stdcall;
    DrawImageAbort = ImageAbort;
    EGDIPlus = class(Exception);
  
    //TRectF = record
    //  X: Single;
    //  Y: Single;
  