anchor.diff:      procedure   miHelpProdInfoClicked(Sender: TObject);
       procedure   miHelpAboutFPGui(Sender: TObject);
       procedure   miDebugHeader(Sender: TObject);
  +    procedure   miDebugHex(Sender: TObject);
       procedure   btnShowIndex(Sender: TObject);
       procedure   btnGoClicked(Sender: TObject);
       procedure   tvContentsChange(Sender: TObject);
  
positive.code:     AddMenuItem('Help using help', '', nil);
      AddMenuItem('-', '', nil);
      AddMenuItem('Debug: Header', '', @miDebugHeader);
      AddMenuItem('-', '', nil);
      AddMenuItem('About fpGUI Toolkit', '', @miHelpAboutFPGui);
      AddMenuItem('Product Information...', '', @miHelpProdInfoClicked);
  
negative.code:     ScrollWheelDelta := 60;
      ShowImages := True;
      TabOrder := 0;
          OnChange  := @tvContentsChange;
      //OnDoubleClick  := @tvContentsDoubleClick;
    end;
  
    Splitter1 := TfpgSplitter.Create(bvlBody);
  