anchor.diff:      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;
  +//  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);
   
  
positive.code: {----------------THtmlViewer.DoScrollBars}
  
  procedure THtmlViewer.DoScrollBars;
  var
    VBar, VBar1, HBar: Boolean;
    Wid, HWidth, WFactor, WFactor2, VHeight: Integer;
    ScrollInfo: TScrollInfo;
  begin
    ScrollWidth := Min(ScrollWidth, MaxHScroll);
    if (FBorderStyle = htNone) and not (csDesigning in ComponentState) then
  
negative.code:     procedure HTMLTimerTimer(Sender: TObject);
      procedure InitLoad;
      procedure Layout;
      procedure ScrollHorz(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
      procedure ScrollTo(Y: Integer);
      procedure ScrollVert(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
      procedure SetActiveColor(Value: TColor);
      procedure SetBase(Value: string);
      procedure SetBorderStyle(Value: THTMLBorderStyle);
  