anchor.diff:  
       Inc(linecnt);
     until linecnt >= FHeight;
  +{$endif}
   end;
   
   procedure TfpgImageBase.UpdateImage;
  
positive.code: unit fpg_base;
  
  {$mode objfpc}{$H+}
  
  interface
  
  
negative.code:   if (FImageData = nil) then
      Exit; //==>
  
  {$ifdef AGGCanvas}
    p := FImageData;
    if x < 0 then
      Inc(p, FWidth - 1)
  