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:     ScrollWheelDelta := 60;
      ShowImages := True;
      TabOrder := 0;
      //    OnChange  := @tvContentsChange;
      OnDoubleClick  := @tvContentsDoubleClick;
    end;
  
    Splitter1 := TfpgSplitter.Create(bvlBody);
  
negative.code:     Align := alLeft;
    end;
  
    //Memo1 := TfpgMemo.Create(bvlBody);
    //with Memo1 do
    //begin
    //  Name := 'Memo1';
    //  SetPosition(276, 36, 244, 232);
    //  FontDesc := '#Edit1';
    //  TabOrder := 2;
    //  Align := alClient;
    //end;
    Memo1 := TRichTextView.Create(bvlBody);
    with Memo1 do
    begin
      Name := 'Memo1';
      SetPosition(276, 36, 244, 232);
      TabOrder := 2;
      Align := alClient;
    end;
  