anchor.diff:        if IsValidBitmapIndex( BitmapIndex ) then
         begin
           Bitmap := FImages.Item[BitmapIndex].Image;
  -        Result := Trunc(Bitmap.Width
  -                  * FontWidthPrecisionFactor
  -                  * FHorizontalImageScale);
  +        Result := Trunc(Bitmap.Width * FHorizontalImageScale);
         end;
       end;
   
  
positive.code:           // so work out alignment
            X := GetStartX( Style, Line );
  
            if X div FontWidthPrecisionFactor
               > XToFind then
            begin
              // found before the start of the line
              // don't set link
  
negative.code: begin
    case Style.Alignment of
      taLeft:
        Result := Style.LeftMargin;
  
      taRight:
        Result :=   Style.LeftMargin
                  + FLayoutWidth
                  - Style.RightMargin
                  - Line.Width;
  
      taCenter:
  