anchor.diff:    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;
  
positive.code: {$IFNDEF NoGDIPlus}
  var
    InitToken: DWord;
    Startup: TGDIStartup;
    LibHandle: THandle;
    GDIPlusCount: integer;
  {$ENDIF}
  
negative.code:       @GdipBitmapSetPixel := GetProcAddress(LibHandle, 'GdipBitmapSetPixel');
  
        FillChar(Startup, sizeof(Startup), 0);
        Startup.GdiplusVersion := 1;
        Err := GdiPlusStartup(InitToken, @Startup, nil);
        GDIPlusActive := Err = 0;
        if not GDIPlusActive then
  