anchor.diff:                  GuessHt := Trunc(SpecHt.Value);
   
                 wtPercent:
  -                GuessHt := Trunc(SpecHt.Value * AHeight / 100.0);
  +                GuessHt := Trunc(SpecHt.Value * AHeight / 1000.0);
               else
                 GuessHt := 0;
               end;
  
positive.code:           end;
          end;
        end;
    end;
  
  var
  
negative.code: var
    IsTiledGpImage: Boolean;
  begin
    if (IW = 0) or (IH = 0) then
      exit;
  
    if (BGImage.Image is TBitmap) then
    begin
      TheGpObj := TBitmap(BGImage.Image);
  