anchor.diff:  
   { TfpgImage }
   
  +function TfpgImage.CreateDisabledImage: TfpgImage;
  +begin
  +  Result := ImageFromSource;
  +  fpgApplyGreyFilter(Result);
  +end;
  +
   function TfpgImage.ImageFromSource: TfpgImage;
   var
     x, y: TfpgCoord;
  
positive.code: 
    TfpgImage = class(TfpgImageImpl)
    public
      function    ImageFromSource: TfpgImage;
      function    ImageFromRect(var ARect: TRect): TfpgImage; overload;
      function    ImageFromRect(var ARect: TfpgRect): TfpgImage; overload;
  
negative.code:   fpg_hint,
    fpg_extgraphics,
    fpg_utils,
    fpg_cmdlineparams,
    fpg_imgutils;
  
  var
    fpgTimers: TList;
  