anchor.diff:      function GetWordAtCursor(X, Y: Integer; out St, En: Integer; out AWord: WideString): Boolean;
       procedure BackgroundChange(Sender: TObject);
       procedure DoHilite(X, Y: Integer); virtual;
  -    procedure DoImage(Sender: TObject; const SRC: ThtString; var Stream: TStream);
       procedure DoLogic;
       procedure DoScrollBars;
       procedure Draw(Canvas: TCanvas; YTop, FormatWidth, Width, Height: Integer);
       procedure DrawBorder;
       procedure FormControlEnterEvent(Sender: TObject);
  -    procedure HandleMeta(Sender: TObject; const HttpEq, Name, Content: ThtString);
       procedure HTMLDragDrop(Sender, Source: TObject; X, Y: Integer);
       procedure HTMLDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
       procedure HTMLTimerTimer(Sender: TObject);
  -    procedure InitLoad;
       procedure Layout;
       procedure Parsed(const Title, Base, BaseTarget: ThtString);
       procedure ParseHtml;
  
positive.code:   if ft in [HTMLType, TextType] then
      LoadDocument(TBuffer.Create(AStream, URL), URL, ft)
    else
    begin
      SaveOnImageRequest := OnImageRequest;
      try
        FImageStream := AStream;
        OnImageRequest := DoImage;
        LoadDocument(TBuffer.Create('<img src="' + URL + '">'), URL, HTMLType)
      finally
        FImageStream := nil;
        OnImageRequest := SaveOnImageRequest;
      end;
    end;
  end;
  
  //-- BG ---------------------------------------------------------- 20.02.2011 --
  
negative.code:     procedure SetOnExpandName(Handler: TExpandNameEvent);
      procedure SetOnFileBrowse(Handler: TFileBrowseEvent);
      procedure SetOnFormSubmit(Handler: TFormSubmitEvent);
      procedure SetOnImageRequested(Handler: TGottenImageEvent);
      procedure SetOnObjectBlur(Handler: ThtObjectEvent);
      procedure SetOnObjectChange(Handler: ThtObjectEvent);
  