anchor.diff:      FrameOwner: TObject;
       HScrollBar: TScrollBar;
       Visited: ThtStringList; {visited URLs}
  -    VScrollBar: T32ScrollBar;
  +    VScrollBar: TScrollBar;
   
       constructor Create(AOwner: TComponent); override;
       destructor Destroy; override;
  
positive.code:     procedure Paint; override;
    end;
  
    T32ScrollBar = class(TScrollBar) {a 32 bit scrollbar}
    private
      FPosition: Integer;
      FMin, FMax, FPage: Integer;
      procedure SetPosition(Value: Integer);
      procedure SetMin(Value: Integer);
      procedure SetMax(Value: Integer);
  {$ifdef LCL}
      procedure CNVScroll(var Message: TLMVScroll); message LM_VSCROLL;
  {$else}
      procedure CNVScroll(var Message: TWMVScroll); message CN_VSCROLL;
  {$endif}
    public
      property Position: Integer read FPosition write SetPosition;
      property Min: Integer read FMin write SetMin;
      property Max: Integer read FMax write SetMax;
      procedure SetParams(APosition, APage, AMin, AMax: Integer);
    end;
  
    THtmlFileType = (HTMLType, TextType, ImgType, OtherType);
  
  
negative.code:   end
    else
      VScrollBar.Visible := VBar;
    if VScrollBar.Visible then
    begin
      VScrollBar.LargeChange := PaintPanel.Height - VScrollBar.SmallChange;
      VScrollBar.SetBounds(Width - sbWidth - WFactor, WFactor, sbWidth, VHeight);
      SetPageSizeAndMax(VScrollBar, PaintPanel.Height + 1, Max(PaintPanel.Height + 1, FMaxVertical));
    end;
  end;
  
  