anchor.diff:      procedure   DoDrawPolygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override;
       property    DCHandle: TfpgDCHandle read Fgc;
     public
  -    constructor Create; override;
  +    constructor Create(awin: TfpgWindowBase); override;
       destructor  Destroy; override;
     end;
   
  
positive.code:   TfpgGDIImage = class(TfpgImageBase)
    private
      FIsTwoColor: boolean;
      property    BMPHandle: HBITMAP read FBMPHandle;
      property    MaskHandle: HBITMAP read FMaskHandle;
    protected
      FBMPHandle: HBITMAP;
      FMaskHandle: HBITMAP;
      procedure   DoFreeImage; override;
      procedure   DoInitImage(acolordepth, awidth, aheight: integer; aimgdata: Pointer); override;
      procedure   DoInitImageMask(awidth, aheight: integer; aimgdata: Pointer); override;
  
negative.code: 
  { TfpgGDICanvas }
  
  constructor TfpgGDICanvas.Create(awin: TfpgWindowBase);
  begin
    inherited Create(awin);
    FDrawing      := False;
    FDrawWindow   := nil;
    FBufferBitmap := 0;
  