anchor.diff:    TfpgGDIImage = class(TfpgImageBase)
     private
       FIsTwoColor: boolean;
  +    FBMPHandle: HBITMAP;
  +    FMaskHandle: HBITMAP;
  +  protected
       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;
  
positive.code: 
  { TfpgGDICanvas }
  
  constructor TfpgGDICanvas.Create;
  begin
    inherited;
    FDrawing      := False;
    FDrawWindow   := nil;
    FBufferBitmap := 0;
  
negative.code:     procedure   DoDrawPolygon(Points: PPoint; NumPts: Integer; Winding: boolean = False); override;
      property    DCHandle: TfpgDCHandle read Fgc;
    public
      constructor Create(awin: TfpgWindowBase); override;
      destructor  Destroy; override;
    end;
  
  