anchor.diff:      tsHistory: TfpgTabSheet;
       lbHistory: TfpgListBox;
       Splitter1: TfpgSplitter;
  +    bvlContentArea: TfpgBevel;
  +    pnlTitle: TfpgPanel;
       RichView: TRichTextView;
       MainMenu: TfpgMenuBar;
       miFile: TfpgPopupMenu;
  
positive.code:     sep := ' > ';
    end;
    SetStatus(s);
  end;
  
  procedure TMainForm.EnableControls;
  
negative.code:   with tsIndex do
    begin
      Name := 'tsIndex';
      SetPosition(3, 24, 254, 279);
      Anchors := [anLeft,anRight,anTop,anBottom];
      Text := 'Index';
    end;
  
  