anchor.diff:        Application.ProcessMessages;
       end;
     end;
  -  MouseScrolling := False;
  -  if MiddleScrollOn then
  +  Exclude(FViewerState, vsMouseScrolling);
  +  if vsMiddleScrollOn in FViewerState then
       PaintPanel.Cursor := UpDownCursor;
   end;
   
  
positive.code: var
    ARect: TRect;
  begin
    if not DontDraw then
    begin
      ARect := Rect(0, 1, PaintPanel.Width, PaintPanel.Height);
      FSectionList.Draw(PaintPanel.Canvas2, ARect, MaxHScroll,
        -HScrollBar.Position, 0, 0, 0);
    end;
  end;
  
  procedure ThtmlViewer.WMSize(var Message: TWMSize);
  begin
    inherited;
    if not HandleAllocated then
      Exit;
    if not FProcessing then
      Layout
    else
      DoScrollBars;
    if FMaxVertical < PaintPanel.Height then
      Position := 0
    else
  
negative.code:   OldFormData: TFreeList;
  
  begin
    if vsProcessing in FViewerState then
      Exit;
    if Filename <> '' then
    begin
  