anchor.diff:      Text := '';
     end;
   
  +  lbIndex := TfpgListBox.Create(tsIndex);
  +  with lbIndex do
  +  begin
  +    Name := 'lbIndex';
  +    SetPosition(4, 32, 242, 264);
  +    Anchors := [anLeft,anRight,anTop,anBottom];
  +    FontDesc := '#List';
  +    HotTrack := False;
  +    PopupFrame := False;
  +    TabOrder := 1;
  +  end;
  +
     {@VFD_BODY_END: MainForm}
     {%endregion}
   
  
positive.code:     //    OnChange  := @tvContentsChange;
    end;
  
    tvIndex := TfpgTreeView.Create(tsIndex);
    with tvIndex do
    begin
      Name := 'tvIndex';
      SetPosition(4, 32, 242, 264);
      Anchors := [anLeft,anRight,anTop,anBottom];
      FontDesc := '#Label1';
      TabOrder := 0;
    end;
  
    Splitter1 := TfpgSplitter.Create(bvlBody);
    with Splitter1 do
    begin
  
negative.code:     tsNotes: TfpgTabSheet;
      tsHistory: TfpgTabSheet;
      tvContents: TfpgTreeView;
      Splitter1: TfpgSplitter;
      Memo1: TfpgMemo;
      MainMenu: TfpgMenuBar;
  