anchor.diff:  
     p         := bmp;
     PByte(bh) := p;
  +
  +  if bh^.signature = $4d62 then { 'bM' }
  +  begin
  +    ReadImage_OS2BMP(img, bmp, bmpsize);
  +    exit;
  +  end;
  +
     ppal      := nil;
     if bh^.filesize <> bmpsize then
       Exit; //==>
  
positive.code:   img.UpdateImage;
  end;
  
  end.
  
  
negative.code: 
  uses
    fpg_utils;
  
  
  procedure ReadImage_OS2BMP(img: TfpgImage; bmp: Pointer; bmpsize: longword); forward;
  
  
  function CreateImage_BMP(bmp: Pointer; bmpsize: longword): TfpgImage;
  