anchor.diff:    if Assigned(FOnParseEnd) then
       FOnParseEnd(Self);
     try
  -    DontDraw := True;
  +    Include(FViewerState, vsDontDraw);
     {Load the background bitmap if any and if ViewImages set}
       FSectionList.GetBackgroundBitmap;
   
       DoLogic;
   
     finally
  -    DontDraw := False;
  +    Exclude(FViewerState, vsDontDraw);
     end;
   end;
   
  
positive.code:     if Assigned(FOnHotSpotCovered) then
        FOnHotSpotCovered(Self, URL);
    end;
    if (ssLeft in Shift) and not MouseScrolling
      and ((Y <= 0) or (Y >= Self.Height)) then
    begin
      MouseScrolling := True;
      PostMessage(Handle, wm_MouseScroll, 0, 0);
    end;
    if (ssLeft in Shift) and not FNoSelect then
  
negative.code:       Application.ProcessMessages;
      end;
    end;
    Exclude(FViewerState, vsMouseScrolling);
    if vsMiddleScrollOn in FViewerState then
      PaintPanel.Cursor := UpDownCursor;
  end;
  
  