anchor.diff:  
     {$IFNDEF wince}
     SetDIBits(wapplication.display, FBMPHandle, 0, aheight, aimgdata, bi, DIB_RGB_COLORS);
  +  {$else}
  +  WinCESetDibBits(FBMPHandle, awidth, aheight, aimgdata, bi);
     {$ENDIF}
   
     FIsTwoColor := (acolordepth = 1);
  
positive.code:   end;
  end;
  
  procedure GetWindowBorderDimensions(const w: TfpgWindowBase; var dx, dy: integer);
  var
    bx: integer;  // left/right border width
  
negative.code:   pbi := @bi;
    {$IFNDEF wince}
    SetDIBits(wapplication.display, FMaskHandle, 0, aheight, aimgdata, pbi^, DIB_RGB_COLORS);
    {$ELSE}
    WinCESetDibBits(FMaskHandle, awidth, aheight, aimgdata, pbi^);
    {$ENDIF}
  end;
  
  